Главная страница
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.015 c
1-73314
Serhy
2002-05-12 03:31
2002.05.23
Из 8.3 в норму


14-73398
Rammish
2002-04-13 12:05
2002.05.23
Как проинсталлировать компонент?


4-73456
Alex_LG
2002-03-23 17:21
2002.05.23
Как получить хендл и (или) ссылку на ресурсы ({$R файл.res})?


3-73087
Pavlinchik
2002-04-26 21:00
2002.05.23
ПОМОГИТЕ!!! ПРОПАДАЮ!!!


14-73365
Alx2
2002-04-12 07:53
2002.05.23
Космонавтов - с прадником!