Zitat von
_frank_:
erstelle die Instanzen einfach im form.OnCreate
Delphi-Quellcode:
for i:=1 to 11 do
begin
cpuliste[i].create;
//laden vielleicht???
cpuliste[i].LoadFromFile(...);
end;
Oh, Spezial-Delphi oder warum sehen deine Constructoren so komisch aus? Ich würde lieber folgendes empfehlen:
cpuliste[i] := TStringList.Create;
/EDIT: Und schwupps, schon wurde es richtig (falsch) abgeschrieben...
Zitat von
guitar1:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
createdir(ExtractFilePath(ParamStr(0))+'/mb');
for I := 1 to 11 do begin
Mainboardliste1[i].Create;
end;
mainboardliste1[ 1].LoadFromFile(ExtractFilePath(ParamStr(0))+'/mb/herst.txt');
...
mainboardliste1[11].LoadFromFile(ExtractFilePath(ParamStr(0))+'/mb/preis.txt');
end;
Lieber so:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
createdir(ExtractFilePath(ParamStr(0))+'/mb');
for I := 1 to 11 do
Mainboardliste1[i] := TStringList.Create;
mainboardliste1[ 1].LoadFromFile(ExtractFilePath(ParamStr(0))+'/mb/herst.txt');
...
mainboardliste1[11].LoadFromFile(ExtractFilePath(ParamStr(0))+'/mb/preis.txt');
end;