StringGrid einträge speichern

[Blup]

Delphi-Quellcode:

type
  TBenutzer = record
    Name: string;
    Kennwort: string;
    Rechte: string;
  end;

function ReadFromGrid(AZeile: Integer): TBenutzer;
const
  SpalteBenutzer = 1;
  SpalteKennwort = 2;
  SpalteRechteVon = 3;
  SpalteRechteBis = 6;
var
  Spalte: Integer;
  Recht: string;
begin
  Result.Name := StringGridVerwaltung.Cells[SpalteBenutzer, AZeile];
  Result.Kennwort := StringGridVerwaltung.Cells[SpalteKennwort, AZeile];
  Result.Rechte := '';
  for Spalte := SpalteRechteVon to SpalteRechteBis do
  begin
    Recht := StringGridVerwaltung.Cells[Spalte, AZeile];
    if Recht <> '' then
    begin
      if Result.Rechte <> '' then
        Result.Rechte := Result.Rechte + ',';
      Result.Rechte := Result.Rechte + Recht;
    end;
  end;
end;

procedure SaveToIni(AIni: TIniFile; const ABenutzer: TBenutzer);
const
  SectionBenutzer = 'Benutzer';
  SectionZugang = 'Zugang';
begin
  AIni.WriteString(SectionBenutzer, ABenutzer.Name, ABenutzer.Kennwort);
  AIni.WriteString(SectionZugang, ABenutzer.Name, ABenutzer.Rechte);
end;

// je Kunde
Benutzer := ReadFromGrid(Zeile);
SaveToIni(Ini, Benutzer);