also brauch ich quasi nur
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
i,x:integer;
dateiname:string;
begin
for i:=1 to 240 do
begin
dateiname:='p'+ inttostr(i);
planet[i]:= Tpicture.Create;
planet[i].loadfromfile('Planet1/' + dateiname +'.jpg') ;
end;
end;
durch
Delphi-Quellcode:
var
dateiname, BaseDir: string;
i:integer;
begin
for i:=1 to 240 do
begin
dateiname:='p'+ inttostr(i);
BaseDir := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
planet[i].loadfromfile(BaseDir + 'Planet1\' + dateiname + '.jpg');
end
end;
zu ersetzen und dann funktionier das also dann auch die schlleife die in TImage1 onclick stehent?