Чтение из файла

← →
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;
...

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

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