Planeten drehen

[turboPASCAL]

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))); // muss ja nicht jedes mal sein oder !?!

  planet[i].loadfromfile(BaseDir + 'Planet1\' + dateiname + '.jpg');
end
end;

besser ?:

Delphi-Quellcode:

procedure Txyz.FormCreate(..);
var
  dateiname, BaseDir: string;
  i:integer;
begin
  BaseDir := ExtractFilePath(ParamStr(0));
  for i := 0 to 240 - 1 do
  begin
    dateiname := 'p'+ inttostr(i + 1);
    planet[i].loadfromfile(BaseDir + '\Planet1\' + dateiname + '.jpg');
  end;
end;

// nicht vergessen:

procedure Txyz.FormDestroy(..);
var i: integer;
begin
  for i := 0 to 240 - 1 do
  begin
    if assigned(planet[i]) then Planet[i].Free;
  end;
end;

var  
  n: integer; // könnte eigentlich in die "Private-Abteilung"

procedure Txyz.TimerXTimer(..);
begin
  in n < 240 - 1 then inc(n) else n := 0;
  if assigned(planet[n]) then
    ImageX.Picture.Assign(planet[n]);
  ImageX.Invalidate;
end;