Показать сообщение отдельно
  #4  
Старый 11.06.2008, 00:10
Жендос Жендос вне форума
Прохожий
 
Регистрация: 10.06.2008
Адрес: Ижевск
Сообщения: 8
Репутация: 10
По умолчанию

Используй 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;
__________________
Я бы изменил мир, но бог исходников не дает!
Ответить с цитированием