![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Помогите найти побольше информации как работать со списками.
Вот у меня есть текст, который нужно считать построчно и найти и вывести в нём нужную информацию, как это можно сделать? |
#2
|
|||
|
|||
![]() есть тип TList в делфи, с помощью него можно
|
#3
|
|||
|
|||
![]() Извращенец!
![]() Тут же написано - текст. Проблема в том, что с использованием списка (в данном случае TStringList) файл будет считан целиком. Т.е. если тебе надо остановиться и не считывать файл целиком, то придется городить свое чтение. Поиск а TStringList либо перебирая построчно, либо сразу в TStringList.Text. |
#4
|
|||
|
|||
![]() Используй TListBox
У него есть функция LoadFromFile(const FileName: string) Она считыват весь файл и выводит его построчно в ListBox, в этом случае он считает и выведет в TListBox весь файл! Код:
ListBox1.Items.LoadFromFile('C:\1.txt'); Или же если нужно отсортировать содержимое по каким то критериям, то можно использовать вот этот код: Код:
Var F: TextFile; s: String; Begin AssignFile(f,'C:\1.txt'); Reset(f); //Запускаем цикл, который будет считывать файл построчно, пока недостигнет конца файла While not eof(F) do Begin ReadLn(f,s); //Например отсеим строки, которые больше 20 символов If Length(s)>=20 then ListBox1.Items.Add(s); End; CloseFile(f); End; Я бы изменил мир, но бог исходников не дает! Последний раз редактировалось Жендос, 11.06.2008 в 00:18. |