Ini Datei in StringGrid Laden

[Rippo]

//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 = [e-mail]
Postleitzahl = 00000
Ort = Hansestadt
Straße = Hansestraße.7

[Kunde2]
KundenNr = 2
Name = Peter
Ansprechpartner = Herr Peter
Telefon = 0123456789
Email = [e-mail]
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?

[haentschman]

Bitte, bitte benutzte die Delphi Tags für Quelltext... Den Text markieren und auf den Delphi Helm klicken... Dann kannst du deine Einrückungen nochmal überprüfen.

[EWeiss]

OT. Wie viele Threads erstellen wir dafür?
http://www.delphipraxis.net/183878-i...-new-post.html

gruss

[Der schöne Günther]

Hallo-

1. Die Zeile mit
   Delphi-Quellcode:

   Kunden_ID := 'Kunde1';
   IniFile.ReadSectionValues(Kunden_ID, Inhalt);

   hast du gesehen, oder?
2. Interessant wäre jetzt noch die Methode "SaveToStringGrid" welche du weggelassen hat.
3. Kannst du den Code bitte in (DELPHI)-Tags packen (Der Knopf mit dem Hopliten-Helm). So reingeklatscht kann man das nicht vernünftig lesen
4. Wie spielt das hiermit zusammen? http://www.delphipraxis.net/183859-s...und-laden.html

[Rippo]

Delphi-Quellcode:

Procedure TfrmKundenstamm.SaveToStringGrid( KundenNr,Name,Ansprechpartner,Telefon,Email,Postleitzahl,Ort,Straße : string);
Begin
    StringGridKunden.Cells[1,StringGridKunden.Row] := KundenNr;
    StringGridKunden.Cells[2,StringGridKunden.Row] := Name;
    StringGridKunden.Cells[3,StringGridKunden.Row] := Ansprechpartner;
    StringGridKunden.Cells[4,StringGridKunden.Row] := Telefon;
    StringGridKunden.Cells[5,StringGridKunden.Row] := Email;
    StringGridKunden.Cells[6,StringGridKunden.Row] := Postleitzahl;
    StringGridKunden.Cells[7,StringGridKunden.Row] := Ort;
    StringGridKunden.Cells[8,StringGridKunden.Row] := Straße;

    // Erzeuge eine neue Zeile (ROW)
    StringGridKunden.RowCount := StringGridKunden.RowCount +1;
     //Positioniere den Cursor
    StringGridKunden.Row := StringGridKunden.RowCount-1;
    //Nummerierung
    StringGridKunden.Cells[0,StringGridKunden.Row] := IntToStr(StringGridKunden.Row);

End;

[DeddyH]

Schau doch nochmal hier und frage Dich, wieso ich die Sektionen mit ReadSections in eine Stringliste lade und die dann durchgehe.

[EWeiss]

Zitat von DeddyH:

Schau doch nochmal hier und frage Dich, wieso ich die Sektionen mit ReadSections in eine Stringliste lade und die dann durchgehe.

OT
Kann man die Threads zusammenfassen?
Sind jetzt schon 3 für ein und das gleiche Thema.

gruss

[DeddyH]

Ich bin auch dafür, sonst verliert man ja total den Überblick.

[Captnemo]

Kundenstammdaten => Inidatei