Главная страница
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.029 c
1-11334
volph777
2002-10-24 11:55
2002.11.04
Как скопировать строку типа string в Clipboard?


14-11406
kull
2002-10-14 13:04
2002.11.04
Как правильней перевести?


1-11199
Sego
2002-10-24 19:58
2002.11.04
чтение открытого текстового файла.


1-11311
---vec---
2002-10-23 19:56
2002.11.04
Подскажите где можно почитать о Delphi 7


7-11528
МИФИст
2002-08-28 16:17
2002.11.04
Быстрый поиск в RichEdit е...