Hm.. was ist an dem Source falsch???

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
  newtabsheet : ttabsheet;
  ini : tinifile;
begin
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'set.ini');
for i := 1 to 4 do
begin
  try
    NewTabSheet := TTabSheet.Create(PageControl1);
    NewTabSheet.PageControl := PageControl1;
    NewTabSheet.caption := ini.readstring('settings',inttostr(i),'');
  finally
    ini.free;
  end;
end;
end;

In der ini steht dann z.B. 1=Tab1, 2=TabXYZ.

Aber ich hab echt kp, warum das nicht funktioniet!?


Ich bekomme beim 2. Durchlauf der Schleife eine Accessviolation...

na ich fass es nicht. fehler schon gefuden (dumm von mir)