при сохранение данных в файл данные сохранились в скрытый файл ini

[alman12]

Сообщение от Stilet

А теперь покажи код функции SaveStringGrid().
После чего убери SetFileAttributes - проверь отработает ли программа.

вот SaveStringGrid()

 var
   f:    TextFile;
   i, k: Integer;
 begin
   AssignFile(f, FileName);
   Rewrite(f);
   with StringGrid do
   begin
     // Write number of Columns/Rows
    Writeln(f, ColCount);
     Writeln(f, RowCount);
     // loop through cells
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
         Writeln(F, Cells[i, k]);
   end;
   CloseFile(F);
 end;

[Stilet]

Допустим. убери SetFileAttributes - проверь отработает ли программа.

[alman12]

Сообщение от Stilet

Допустим. убери SetFileAttributes - проверь отработает ли программа.

тогда работает но не бывает скрытый

[Stilet]

Значит нужно перед сохранением снимать атрибут скрытности.

[alman12]

а как сделат скрытый ?

[Stilet]

Вставь его в SaveStringGrid

 var
   f:    TextFile;
   i, k: Integer;
 begin
SetFileAttributes(PChar(FileName), FILE_ATTRIBUTE_NORMAL);
   AssignFile(f, FileName);
   Rewrite(f);
   with StringGrid do
   begin
     // Write number of Columns/Rows
    Writeln(f, ColCount);
     Writeln(f, RowCount);
     // loop through cells
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
         Writeln(F, Cells[i, k]);
   end;
   CloseFile(F);
SetFileAttributes(PChar(FileName), FILE_ATTRIBUTE_HIDDEN);
 end;

И не надо вызывать его отдельно.
P.S. Ума не приложу зачем тебе это понадобилось...

[alman12]

Сообщение от Stilet

Вставь его в SaveStringGrid

 var
   f:    TextFile;
   i, k: Integer;
 begin
SetFileAttributes(PChar(FileName), FILE_ATTRIBUTE_NORMAL);
   AssignFile(f, FileName);
   Rewrite(f);
   with StringGrid do
   begin
     // Write number of Columns/Rows
    Writeln(f, ColCount);
     Writeln(f, RowCount);
     // loop through cells
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
         Writeln(F, Cells[i, k]);
   end;
   CloseFile(F);
SetFileAttributes(PChar(FileName), FILE_ATTRIBUTE_HIDDEN);
 end;

И не надо вызывать его отдельно.
P.S. Ума не приложу зачем тебе это понадобилось...

спасибо за помощ брат

[Stilet]

Не за что )