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