Einzelnen Beitrag anzeigen

Subsidenz

Registriert seit: 24. Mai 2008
Ort: Dresden
34 Beiträge
 
#1

LoadDialog mit TMainMenu funktioniert nicht korrekt.

  Alt 15. Jun 2008, 14:43
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.

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
Ich würde mich ja gerne mit dir geistig duellieren,
aber wie ich sehe bist du unbewaffnet.
  Mit Zitat antworten Zitat