| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ГЛЮКИ

Officeman ©   (2005-11-21 17:58:00) 

реально. после 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;


---

umbra   (2005-11-21 18:30:00) [1]

есть

---

Officeman   (2005-11-21 18:15:00) [2]

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

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

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

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

---

Наверх