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

[alman12]

как сделать при сохранение данных из stringgrid данные сохранилисъ в скрытый файл ini и загрузит данных обратно
у меня код такой

SaveStringGrid(StringGrid1,(extract filepath(paramstr(0))+'Fi5le.ini')) ;

[Stilet]

Ну и чем не устраивает?

[Alex11223]

Ну видимо скрытость файла не устраивает.

у меня код такой

SaveStringGrid(StringGrid1,(extract filepath(paramstr(0))+'Fi5le.ini')) ;

А у меня такой:

MakeEverythingOk();

[GNDragonFly]

Жутко безграмотный вопрос + нет знаков пунктуации, аналогично известному выражению

Казнить нельзя помиловать

Как я понял человеку надо:
1) сохранить данные из stringgrid в ini-файл;
2) сделать ini-файл скрытым
3) заполнить stringgrid данными из ini-файла.

«Мысли, как дети, легче родить, чем довести до ума.» Валентин Домиль

Вот кстати код:

procedure TForm1.LoadStrGrFromIni(FIniName: string);
var // не забываем про Uses IniFiles
  Ini: TMemIniFile;
  r, c: integer;
  i, j: integer;
  RC: string;
begin
  if FIniName = '' then
    FIniName := ChangeFileExt(ParamStr(0), '.ini');
  try
    Ini := TMemIniFile.Create(FIniName);
    try
      r := Ini.ReadInteger('StrGrid', 'RowCount', 0);
      c := Ini.ReadInteger('StrGrid', 'ColCount', 0);
      StrGrid.RowCount := r;
      StrGrid.ColCount := c;

      for i := 0 to r - 1 do
      begin
        RC := 'Row' + IntToStr(i);
        for j := 0 to c - 1 do
          StrGrid.Cells[j, i] := Ini.ReadString(RC, 'Col' + IntToStr(j), '');
      end;
    except
    end;
    Ini.Free;
  except
  end
end;

function TForm1.SaveStrGrToIni(FIniName: string): boolean;
var // не забываем про Uses IniFiles
  Ini: TMemIniFile;
  i, j: integer;
  RC: string;
begin
  Result := false;
  if FIniName = '' then
    FIniName := ChangeFileExt(ParamStr(0), '.ini');

  // можно удалять существующий файл, если в StringGrid меняется кол-во строк и/или столбцов
  { if FileExists(FIniName) then
    DeleteFile(FIniName); }

  try
    Ini := TMemIniFile.Create(FIniName);
    try
      Ini.Clear;
      Ini.UpdateFile;
      Ini.WriteInteger('StrGrid', 'ColCount', StrGrid.ColCount);
      Ini.WriteInteger('StrGrid', 'RowCount', StrGrid.RowCount);

      for i := 0 to StrGrid.RowCount - 1 do
      begin
        RC := 'Row' + IntToStr(i);
        for j := 0 to StrGrid.ColCount - 1 do
          Ini.WriteString(RC, 'Col' + IntToStr(j), StrGrid.Cells[j, i]);
      end;

      Ini.UpdateFile;
      Result := true;
    except
      Result := false;
    end;
    Ini.Free;
  except
    Result := false;
  end;
end;

function TForm1.SetInvisIni(FIniName: string): boolean;
begin
  Result := false;
  if FIniName = '' then
    FIniName := ChangeFileExt(ParamStr(0), '.ini');
  if FileExists(FIniName) then
    if FileSetAttr(FIniName, faHidden) > 0 then
      Result := true;
  { faReadOnly : 1  - Файл только для чтения
    faHidden : 2  - Скрытый файл
    faSysFile : 4  - Системный файл
    faVolumeID : 8  - Файл идентификатора объёма
    faDirectory : 16  - Файл директории
    faArchive : 32  - Архивный файл
    faSymLink : 64  - Ярлык
    атрибуты записываются через или (or) }
end;

Где SaveStrGrToIni - сохраняет данные из грида, SetInvisIni - делает файл скрытым (лучше вызывается сразу после SaveStrGrToIni), LoadStrGrFromIni - читает данные из ини-файла в грид. функции описаны в классе TForm1 в секции private.
А StrGrid - TStringGrid, которая находится на главной форме приложения. Но если хочется - можете передавать ее как параметр в функции (через var).

[Аватар]

ТС надеется, что скрытый файл защитит данные от наглого юзера? Наивный

[apromix]

Если нужно защитить данные, то лучше пишите в реестр.

[Stilet]

то лучше пишите в реестр.

Это шутка такая?

[alman12]

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

Жутко безграмотный вопрос + нет знаков пунктуации, аналогично известному выражению
Как я понял человеку надо:
1) сохранить данные из stringgrid в ini-файл;
2) сделать ini-файл скрытым
3) заполнить stringgrid данными из ini-файла.


Вот кстати код:

procedure TForm1.LoadStrGrFromIni(FIniName: string);
var // не забываем про Uses IniFiles
  Ini: TMemIniFile;
  r, c: integer;
  i, j: integer;
  RC: string;
begin
  if FIniName = '' then
    FIniName := ChangeFileExt(ParamStr(0), '.ini');
  try
    Ini := TMemIniFile.Create(FIniName);
    try
      r := Ini.ReadInteger('StrGrid', 'RowCount', 0);
      c := Ini.ReadInteger('StrGrid', 'ColCount', 0);
      StrGrid.RowCount := r;
      StrGrid.ColCount := c;

      for i := 0 to r - 1 do
      begin
        RC := 'Row' + IntToStr(i);
        for j := 0 to c - 1 do
          StrGrid.Cells[j, i] := Ini.ReadString(RC, 'Col' + IntToStr(j), '');
      end;
    except
    end;
    Ini.Free;
  except
  end
end;

function TForm1.SaveStrGrToIni(FIniName: string): boolean;
var // не забываем про Uses IniFiles
  Ini: TMemIniFile;
  i, j: integer;
  RC: string;
begin
  Result := false;
  if FIniName = '' then
    FIniName := ChangeFileExt(ParamStr(0), '.ini');

  // можно удалять существующий файл, если в StringGrid меняется кол-во строк и/или столбцов
  { if FileExists(FIniName) then
    DeleteFile(FIniName); }

  try
    Ini := TMemIniFile.Create(FIniName);
    try
      Ini.Clear;
      Ini.UpdateFile;
      Ini.WriteInteger('StrGrid', 'ColCount', StrGrid.ColCount);
      Ini.WriteInteger('StrGrid', 'RowCount', StrGrid.RowCount);

      for i := 0 to StrGrid.RowCount - 1 do
      begin
        RC := 'Row' + IntToStr(i);
        for j := 0 to StrGrid.ColCount - 1 do
          Ini.WriteString(RC, 'Col' + IntToStr(j), StrGrid.Cells[j, i]);
      end;

      Ini.UpdateFile;
      Result := true;
    except
      Result := false;
    end;
    Ini.Free;
  except
    Result := false;
  end;
end;

function TForm1.SetInvisIni(FIniName: string): boolean;
begin
  Result := false;
  if FIniName = '' then
    FIniName := ChangeFileExt(ParamStr(0), '.ini');
  if FileExists(FIniName) then
    if FileSetAttr(FIniName, faHidden) > 0 then
      Result := true;
  { faReadOnly : 1  - Файл только для чтения
    faHidden : 2  - Скрытый файл
    faSysFile : 4  - Системный файл
    faVolumeID : 8  - Файл идентификатора объёма
    faDirectory : 16  - Файл директории
    faArchive : 32  - Архивный файл
    faSymLink : 64  - Ярлык
    атрибуты записываются через или (or) }
end;

Где SaveStrGrToIni - сохраняет данные из грида, SetInvisIni - делает файл скрытым (лучше вызывается сразу после SaveStrGrToIni), LoadStrGrFromIni - читает данные из ини-файла в грид. функции описаны в классе TForm1 в секции private.
А StrGrid - TStringGrid, которая находится на главной форме приложения. Но если хочется - можете передавать ее как параметр в функции (через var).

ошибку выдоет в процедуре

[Аватар]

В том коде как бэ три процедуры. Не изволите подсказать в какой из них, на какой команде и, страшно вслух сказать, какой текст той неблагодарной ошибки. И, осмелюсь напомнить, надои не очень с программированием коррелируются, не кажется?

[alman12]

Сообщение от Аватар

В том коде как бэ три процедуры. Не изволите подсказать в какой из них, на какой команде и, страшно вслух сказать, какой текст той неблагодарной ошибки. И, осмелюсь напомнить, надои не очень с программированием коррелируются, не кажется?

procedure TForm1.LoadStrGrFromIni(FIniName: string);
var // не забываем про Uses IniFiles
  Ini: TMemIniFile;
  r, c: integer;
  i, j: integer;
  RC: string;
begin
  if FIniName = '' then
    FIniName := ChangeFileExt(ParamStr(0), '.ini');
  try
    Ini := TMemIniFile.Create(FIniName);
    try
      r := Ini.ReadInteger('StrGrid', 'RowCount', 0);
      c := Ini.ReadInteger('StrGrid', 'ColCount', 0);
      StrGrid.RowCount := r;

сделал так , правилно ли этот код ?

begin
SaveStringGrid(StringGrid1,(extractfilepath(paramstr(0))+'Fi5le.ini'));
SetFileAttributes(PChar(extractfilepath(paramstr(0))+'Fi5le.ini'), FILE_ATTRIBUTE_HIDDEN);
end;