Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
ВнизТо ли 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c