Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.04;
Скачать: CL | DM;

Вниз

То ли ReadLn не ридит, то ли ListBox не листит. Или одно из семи?   Найти похожие ветки 

 
Mr.D!   (2002-10-24 01:25) [0]

В ListBox не попадают пустые строки из текстового файла. HELP!

P.S. Дебагером проверил - так и есть - нет циклов для строк с пустыми значениями строк 8-(( Что за Х... ? Прошу помощи.
Если можно ответы кидайте на мыло dennny@e-mail.ru

Вот код который заносит в ListBox только "значимые" строки:
var
TextFileHandle : TextFile;
Str : string;
begin
Form6.Memo1.Clear;
AssignFile (TextFileHandle,Form1.ListBox2.Items [0]);
Reset (TextFileHandle);

Readln(TextFileHandle,Str);
while (not SeekEof(TextFileHandle)) do
begin
Form6.Memo1.Lines.Add (Str);
Readln(TextFileHandle,Str);
end;
Form6.Memo1.Lines.Add (Str);

CloseFile (TextFileHandle);
end;


 
Mr.D!   (2002-10-24 01:30) [1]

В прошлое сообщение попал текст неверный хотя и там проблема сохраняется. Вот исходный текст проблемы:

var
TextFileHandle : TextFile;
Str : string;
begin
Form6.ListBox1.Clear;
AssignFile (TextFileHandle,Form1.ListBox2.Items [0]);
Reset (TextFileHandle);

Readln(TextFileHandle,Str);
while (not SeekEof(TextFileHandle)) do
begin
Form6.ListBox1.Items.Add (Str);
Readln(TextFileHandle,Str);
end;
Form6.ListBox1.Items.Add (Str);
CloseFile (TextFileHandle);
end;


 
Separator ©   (2002-10-24 06:44) [2]

А не легче использовать ListBox1.Items.LoadFromFile()


 
SVM (Perm)   (2002-10-24 08:52) [3]

SeekEOF игнорирует пустые строки. Используй EOF.


 
Mr.D!   (2002-10-24 12:46) [4]

Огромное спасибо Господа !!!



Страницы: 1 вся ветка

Текущий архив: 2002.11.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
14-11460
Стас
2002-10-14 09:46
2002.11.04
Константа


3-11131
Юра
2002-10-16 14:23
2002.11.04
Нарисовать разделитель в DBGrid


14-11466
Вадим
2002-10-15 20:17
2002.11.04
Частота обновления экрана (герцовка) в играх


4-11544
d-coder
2002-09-22 14:15
2002.11.04
Перемещение текста синхронно с прокручиванием скрола


1-11289
Демонов Е.В.
2002-10-23 15:22
2002.11.04
Вопрос про дерективу