ГЛЮКИ

← →
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");

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

есть

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