Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.409 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Richtig in Ini Datei abspeichern

  Alt 27. Mär 2015, 10:27
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;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat