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

Вниз

ГЛЮКИ   Найти похожие ветки 

← →
Officeman   (2005-11-21 17:58) [0]

реально. после 11 часов перед ящиком - у меня пошли глюки.

обычная процедурка чтения файла.
читаем все ячейки TListView и шичем в файл

-глюки при подсчёте колонок "y" (немогу понять где ошибка)

-и файл  "stones" иногда не закрыватся из за этой ошибки
как мне его проверить перед открытием. что если он открыт уже
(от прошлой ошибки), то сначало закрываем, а потом заново открываем =)


var
f:textfile;
x,y:integer;
Sx,Sy:String;
begin

assignfile (f,Dirbase.text+"stones.cfg");
rewrite (f);

For X:=0 to LVs.Items.Count-1 do
begin
   sx:=LVs.Items.Item[x].Caption+";";
  For y:=0 to LVs.Columns.Count-1 do
     begin
  sx:=sx+LVs.Items.Item[x].SubItems[y]+";";
  end;
  writeln (F, Sx);
end;
closefile (f);

end;


---

← →
Officeman   (2005-11-21 18:15) [1]

понятно всё. в этом коде ошибок нет.

до этого я открываю этот файл. и грузу из него структуру для ListView

f.LoadFromFile(dirbase.Text+"stones.cfg");

вот таким образом.
есть ли вероятность что именно это мешало - сохранению. ???

---

← →
umbra ©   (2005-11-21 18:30) [2]

есть

---

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

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

Наверх

Память: 0.47 MB
Время: 0.036 c