Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

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

Последний раз редактировалось Жендос, 11.06.2008 в 00:18.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025