Einzelnen Beitrag anzeigen

Rippo

Registriert seit: 10. Feb 2015
75 Beiträge
 
Delphi 10 Seattle Professional
 
#1

StringGrid einträge speichern

  Alt 18. Mär 2015, 13:36
Hallo

ich habe eine ini datei die so aussieht

[Benutzer]
Admin=a

[Zugang]
Admin=1,2,3,4

Admin ist der Benutzername und das a ist sein Passwort
beim zugang sind die zahlen dazu da um berechtigung zu setzten

jetzt möchte ich die einträge aus meinem stringgrid in die ini datei laden.

die einträge bei Benutzername und Passwort sollen in die Section [Benutzername]
Benutzername, Kunde,Lieferant,personal und Verwaltung sollen in die Section [Zugang]

Delphi-Quellcode:
procedure TfrmBenutzerverwaltung.btnSpeichernClick(Sender: TObject);
var
  Zeile, Spalte : integer;
  Titel: string;
  Ini: TIniFile;
Begin
 SaveToStringGrid(edtName.Text,edtPasswort.Text,edtKunde.Text,edtLieferant.Text,edtPersonal.Text,edtVerwaltung.Text);

 Ini := TIniFile.Create('C:\Users\Verwaltung.ini');
 try
  // Lösche Alle Sectionen aus der Ini Datei
  DeleteAllSections(ini);

  // Speicher alle Zeilen
  for Zeile := StringGridVerwaltung.FixedRows to StringGridVerwaltung.RowCount - 1 do
  Begin
    // je Kunde
    for Spalte := StringGridVerwaltung.FixedCols to StringGridVerwaltung.ColCount - 1 do
    begin
      // Kundendetails
      Titel := StringGridVerwaltung.Cells[Spalte, 0];
      Ini.WriteString('BenutzerName' + IntToStr(Zeile), Titel, StringGridVerwaltung.Cells[Spalte, Zeile]);
    end;

  End;
 finally
  Ini.Free;
 end;
end;


wir müss ich es so umsetzten das ich die einträge in die richtige section setzte?
Miniaturansicht angehängter Grafiken
verwaltung.png  
  Mit Zitat antworten Zitat