Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c