LoadDialog mit TMainMenu funktioniert nicht korrekt.

**Subsidenz**

Hallo,

Ich habe mal wieder eine Frage

.

Es geht um folgendes:
Ich möchte mit dem Klicken des Elements "Open" in einer TMainMenu (also der Leiste oben) alle Einträge in einer ini-Datei auslesen. Dabei habe ich schon eine Lösung nur lädt der nur (bzw. zeigt nur) die erste Zeile in meiner Tabelle an. Nur die Tabellenüberschriften werden geladen sonst nichts. Irgendetwas stimmt mit meiner Prozedur nicht. Vielleicht könnt ihr mir helfen.

zusammenfalten · markieren

Delphi-Quellcode:

			var

   name,t     : String;

[...]

procedure TForm1.oeffnenClick(Sender: TObject);

begin

open.execute;

t:=open.Filename;

try

ini := TIniFile.Create(ExtractFilePath( ParamStr(0))+name);

begin

a:=1;

n:=0;

t:='t';

 begin

  sl := TStringList.Create;

  try

    Ini.ReadSectionValues(t+IntToStr(0),sl);

    b := sl.Count;

    finally

    FreeAndNil(sl);

  end;

grid.RowCount:=b+1;

 for a:=1 to b do

  for n:=0 to 4 do

   grid.Cells[n,a]:=ini.ReadString(t+IntToStr(n), IntToStr(a), '');

end;

ShowMessage('Ladevorgang war erfolgreich!'); end;

finally

ini.free;

end; end;

Mit freundlichen Grüßen Subsidenz

LoadDialog mit TMainMenu funktioniert nicht korrekt.

LoadDialog mit TMainMenu funktioniert nicht korrekt.

Forumregeln