//Hier werden die Sätze aus der Ini Datei ins StringGrid geladen
procedure TfrmKundenstamm.LoadStringGrid(FileName : TFileName; var StringGridKunden1 : TStringGrid);
var
IndexA : Integer;
IndexB : Integer;
IniFile : TIniFile;
Kunden_ID : string;
begin
if (FileExists(FileName)) then
begin
IniFile := TIniFile.Create(FileName);
try
Kunden_ID := 'Kunde1';
IniFile.ReadSectionValues(Kunden_ID, Inhalt);
SaveToStringGrid( Inhalt.Values['KundenNr'],Inhalt.Values['Name'],Inhalt.Values['Ansprechpartner'],
Inhalt.Values['Telefon'],Inhalt.Values['Email'],Inhalt.Values['Postleitzahl'],
Inhalt.Values['Ort'],Inhalt.Values['Straße']);
finally
FreeAndNil(IniFile);
end;
end;
end;
//buttonclick wird der ihnalt ins stringgrid geladen
procedure TfrmKundenstamm.btnLadenClick(Sender: TObject);
begin
LoadStringGrid('C:\Users\\GridIni.ini',StringGridK unden);
end;
IniDatei
[Kunde1]
KundenNr = 1
Name = Hans
Ansprechpartner = Herr Hans
Telefon = 0220 0000000
Email =
hans@hans.de
Postleitzahl = 00000
Ort = Hansestadt
Straße = Hansestraße.7
[Kunde2]
KundenNr = 2
Name = Peter
Ansprechpartner = Herr Peter
Telefon = 0123456789
Email =
Peter@peter.de
Postleitzahl = 11111
Ort = Peterstadt
Straße = Peterstraße.7
Meine Frage ist: Wie bekomme ich es hin dass die zweite section [Kunde2] auch ins StringGrid geladen wird und das auch wenn ich mehrere sections habe das automatisch passiert?