Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

То ли ReadLn не ридит, то ли ListBox не листит. Или одно из семи? [D6, Win2k]

Mr.D! © (2002-10-24 01:25:00)
В 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 12:46:00) [1]
Огромное спасибо Господа !!!

SVM (Perm) (2002-10-24 08:52:00) [2]
SeekEOF игнорирует пустые строки. Используй EOF.

Separator (2002-10-24 06:44:00) [3]
А не легче использовать ListBox1.Items.LoadFromFile()

Mr.D! (2002-10-24 01:30:00) [4]
В прошлое сообщение попал текст неверныйхотя и там проблема сохраняется. Вот исходный текст проблемы:

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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »