LoadDialog mit TMainMenu funktioniert nicht korrekt.

[NickelM]

Delphi-Quellcode:

procedure TForm1.oeffnenClick(Sender: TObject); 
var a1 : Integer;
    n2 : Integer;
begin 
If open.execute then //nur wenn ne datei ausgewählt ist
begin 
u:=open.Filename; 
  sl := TStringList.Create; 
  ini := TIniFile.Create(open.Filename); //ist einfacher und ist sicherer
  try 
    Ini.ReadSectionValues(t+IntToStr(0),sl); 
    b := sl.Count; 
    finally 
    FreeAndNil(sl); 
end; 
grid.RowCount:=b+1; 
for a1:=1 to b do 
  for n1:=0 to 4 do 
   grid.Cells[n,a]:=ini.ReadString(t+IntToStr(n), IntToStr(a), ''); 
end; 
ShowMessage('Ladevorgang war erfolgreich!'); 
ini.free; 
end;

Sonst weiß ich auch nicht woran es liegt.