Ini Datein in ein StringGrid Laden

[DeddyH]

Quick And Dirty, gewinnt so keinen Schönheitspreis:

Delphi-Quellcode:

uses IniFiles;

const
  IniName = 'C:\Test\Test.ini';

procedure TForm38.Button1Click(Sender: TObject);
var
  Ini: TIniFile;
  Sections: TStringlist;
  i: integer;
begin
  Sections := nil;
  Ini := TIniFile.Create(IniName);
  try
    Sections := TStringList.Create;
    Ini.ReadSections(Sections);
    StringGrid1.RowCount := StringGrid1.FixedRows + Sections.Count;
    for i := 0 to Sections.Count - 1 do
      begin
        StringGrid1.Cells[StringGrid1.FixedCols, StringGrid1.FixedRows + i] := Ini.ReadString(Sections[i], 'KundenNr', '');
        StringGrid1.Cells[StringGrid1.FixedCols + 1, StringGrid1.FixedRows + i] := Ini.ReadString(Sections[i], 'Name', '');
        StringGrid1.Cells[StringGrid1.FixedCols + 2, StringGrid1.FixedRows + i] := Ini.ReadString(Sections[i], 'Ansprechpartner', '');
        (* etc. pp. *)
      end;
  finally
    Ini.Free;
    Sections.Free;
  end;
end;

Meine Ini sieht so aus:

Code:

[Kunde1]
KundenNr=1
Name=Hans Wurst
Ansprechpartner=Jim Beam
EMail=[e-mail]
Telefon=012345/98765
Ort=Musterstadt
Straße=Sesamstraße
PLZ=11111

[Kunde2]
KundenNr=2
Name=Hans Käse
Ansprechpartner=Johnny Walker
EMail=[e-mail]
Telefon=012345/56789
Ort=Musterstadt
Straße=Einbahnstraße
PLZ=11111