Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация

Цикл

-

Вопросы и ответы, обсуждения

- Ваши вопросы по Pascal/Delphi только в данном разделе

Ответ
 
Опции темы Опции просмотра
Старый 27.10.2011, 22:20   #1
Заблокирован
 Пехотинец
Аватар для Number/1/
 
Number/1/ на правильном путиNumber/1/ на правильном пути
Регистрация: 11.11.2010
Сообщений: 95
Популярность: 188
Сказал(а) спасибо: 106
Поблагодарили 111 раз(а) в 70 сообщениях
 
По умолчанию Цикл

у меня возникла такая проблема , в цикле происходит парсинг данных из файла , для первого цикла нужно выташить данные из первой сточки ,а во втором цикле чтобы из второй строчки данные вытягивались , как бы это реализовать?
  Ответить с цитированием
Старый 27.10.2011, 22:39   #2
Бандеровец
 Лейтенант-командор
Аватар для VeTaL_UA
 
VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(
Регистрация: 12.08.2010
Сообщений: 729
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
Отправить сообщение для VeTaL_UA с помощью ICQ Отправить сообщение для VeTaL_UA с помощью Skype™
 
По умолчанию Re: Цикл

Цитата:
Сообщение от Number/1/Посмотреть сообщение
для первого цикла нужно выташить данные из первой сточки

Цитата:
Сообщение от Number/1/Посмотреть сообщение
во втором цикле чтобы из второй строчки данные вытягивались

Код:
var
s:TStringList;
str1,str2:String;
begin
s:=TStringList.Create;
...
Ну так загрузи файл в TStringList:
Код:
s.LoadFromFile('blabla.txt');
Потом загрузи первую строку файла в str1, а вторую в str2:
Код:
str1:=s.Strings[1];
str2:=s.Strings[2];
Ну а потом уже парси данные из этих переменных...
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.

Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.


  Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
=Kostanakis= (27.10.2011), Number/1/ (27.10.2011)
Старый 28.10.2011, 00:17   #3
Reaper
 Фельдмаршал
Аватар для Dinmaite
 
Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(
Регистрация: 13.08.2009
Сообщений: 1,003
Популярность: 23488
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 109
Поблагодарили 829 раз(а) в 394 сообщениях
Отправить сообщение для Dinmaite с помощью ICQ
 
По умолчанию Re: Цикл

Эм...
Код:
procedure _name (Filename:string);
var
  s:string;
  f:TextFile;
begin
  assignfile(f, Filename);
  reset(f);
  while not eof(f) do
    begin
      readln(f,s);
      // тут парсим строку s
   end;
  closefile(f);
end;
Собственно зачем лишние сложности?
  Ответить с цитированием
Пользователь сказал cпасибо:
Number/1/ (28.10.2011)
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Помогите!] Как цикл как к нему привязать progressbar? Cranerel Вопросы и ответы, обсуждения 1 02.03.2011 14:38

www.webmoney.ru
Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 00:53.

Пишите нам: [email protected]
Copyright © 2020 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net