Текущий архив: 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.019 c