Richtig in Ini Datei abspeichern

[DeddyH]

So, damit es auch schön kompliziert aussieht:

Delphi-Quellcode:

uses IniFiles, math;

function RightsToString(RightsList: TStrings;
  Columns: array of integer): string;
var
  Rights: TStringlist;
  i: integer;
begin
  Result := '';
  Rights := TStringlist.Create;
  try
    for i := Low(Columns) to High(Columns) do
      if RightsList[Columns[i]] <> '' then
        Rights.Add(RightsList[Columns[i]]);
    Result := Rights.CommaText;
  finally
    Rights.Free;
  end;
end;

procedure SaveUserToIni(AIni: TIniFile; DataList: TStrings;
  NameIndex, PWIndex: integer; RightsList: array of integer);
const
  USERSECTION   = 'Benutzer';
  ACCESSSECTION = 'Zugang';
begin
  Assert(Assigned(AIni), 'Keine IniFile-Instanz übergeben');
  Assert(Assigned(DataList), 'Keine Liste übergeben');
  if DataList.Count - 1 < MaxIntValue([NameIndex, PWIndex,
    MaxIntValue(RightsList)]) then
    raise Exception.Create('Liste enthält zuwenig Elemente');
  AIni.WriteString(USERSECTION, DataList[NameIndex], DataList[PWIndex]);
  AIni.WriteString(ACCESSSECTION, DataList[NameIndex],
    RightsToString(DataList, RightsList));
end;

Und benutzt hab ich das dann so:

Delphi-Quellcode:

procedure TFormTest.ButtonSaveClick(Sender: TObject);
const
  NAMECOLUMN                               = 1;
  PWCOLUMN                                 = 2;
  RIGHTSCOLUMNS: array [0 .. 3] of integer = (3, 4, 5, 6);
  ININAME                                  = 'C:\Temp\Test.ini'; //Ist ja nur zum Testen
var
  Ini: TIniFile;
  Row: integer;
begin
  Ini := TIniFile.Create(ININAME);
  try
    for Row := Grid.FixedRows to Grid.RowCount - 1 do
      SaveUserToIni(Ini, Grid.Rows[Row], NAMECOLUMN, PWCOLUMN, RIGHTSCOLUMNS);
  finally
    Ini.Free;
  end;
end;