Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

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

AW: Ini Datein in ein StringGrid Laden

  Alt 10. Feb 2015, 12:12
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=HansWurst@kunde.de
Telefon=012345/98765
Ort=Musterstadt
Straße=Sesamstraße
PLZ=11111

[Kunde2]
KundenNr=2
Name=Hans Käse
Ansprechpartner=Johnny Walker
EMail=HansKaese@nochnkunde.de
Telefon=012345/56789
Ort=Musterstadt
Straße=Einbahnstraße
PLZ=11111
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