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

Вниз

Чтение из файла   Найти похожие ветки 

 
anod ©   (2002-05-13 23:26) [0]

if not FileExists(fname) then begin
Rewrite(f);
CloseFile(f);
end;
AssignFile(f,fname);
Reset(f);
While not Eof(f) do
Readln(f,sScrSize);
szScrSize:=PCHAR(sScrSize);
if sScrSize<>"" then SendMessage(LISTBOX2,LB_ADDSTRING, 0, integer(szScrSize));
end;
CloseFile(f);


В листбоксе отображается только последняя строка в файле???


 
Song ©   (2002-05-13 23:34) [1]

:)))
Чисто невнимательность...
...
While not Eof(f) do begin</b
Readln(f,sScrSize);
szScrSize:=PCHAR(sScrSize);
if sScrSize<>"" then SendMessage(LISTBOX2,LB_ADDSTRING, 0, integer(szScrSize))
end;
...


 
DeMoN-777 ©   (2002-05-13 23:34) [2]

>anod © (13.05.02 23:26)
>В листбоксе отображается только последняя строка в файле???

А самому проверить не судьба ?


 
Song ©   (2002-05-13 23:35) [3]

Тьфу нафик тег не закрыл...
:)))
Чисто невнимательность...
...
While not Eof(f) do begin
Readln(f,sScrSize);
szScrSize:=PCHAR(sScrSize);
if sScrSize<>"" then SendMessage(LISTBOX2,LB_ADDSTRING, 0, integer(szScrSize))
end;
...


 
anod ©   (2002-05-13 23:58) [4]

Извините, позновато наверное сидеть, сам нашел.
Столько begin и end"ов, что все работало правильно.



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
6-73338
Nevmerj
2002-03-14 02:28
2002.05.23
ReadFile/WriteFile


1-73277
Mihan
2002-05-11 08:12
2002.05.23
Использование Record


3-73063
Voldemar
2002-04-28 02:01
2002.05.23
Помогите со структурой базы, плз...


4-73460
gera-killer
2002-03-25 10:23
2002.05.23
как получить список всех файлов в заданном каталоге.


6-73349
AlexeyVr
2002-03-10 22:23
2002.05.23
Чтение HTML почты