Absturz beim Ausführen eines Progs

Gast Erhaltene Danke: 1

Moin!

Ein Freund hat sein Prog mit zu mir gebracht, damit wir ran proggen können. Aber jedes Mal, wenn ich es ausführen will, dann hängt sich mein Rechner auf.

Das Programm funktioniert aber eigentlich tadellos.

Rechner des Freunds: Win2k und Delphi 6
Schulrechner: Win2k und Delphi 6
Mein Rechner: Win98 und Delphi 6

Wir haben es inzwischen schon hinbekommen, dass der Rechner erst abstürzt, wenn das Programm (Pacman-Sim) das halbe Spielfeld geladen hat.

Und ehe ich es vergesse: Die während der Laufzeit geladenen BIlder und Dateien sind auch an der richigen Stelle.

Bitte hilft schnell!

UGrohne · Verfasst: Do 30.01.03 16:25

Was wird denn am Anfang gemacht?

Es könnte irgendwas mit der SPeicherverwaltung zu tun haben, wenn der Entwicklungsrechner Win2k ist und Du 98 hast.

Gruß

Gast Erhaltene Danke: 1

Zu Beginn werden ein Array of TImage und eine StringList erzeugt.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.FormCreate(Sender: TObject);
  var x, y, Zeile : Integer;
begin
 Level:= TStringList.Create;
 Level.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Level 2.txt');
 Zeile:= 0;

 for x:= 0 to 19 do begin
  for y:= 0 to 19 do begin
   BilderElemente[x,y]:= TImage.Create(Self);

   LevelReal:= Level.Strings[Zeile];
   if (LevelReal = 'BodenV.bmp') then Inc(NahrungGesamt);
   if (x = 19) and (y = 1) then BilderElemente[x, y].Enabled := True;
   BilderElemente[x,y].Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + LevelReal);
   BilderElemente[x,y].transparent:=true;
   BilderElemente[x,y].enabled:=False;

   Inc(Zeile);
   BilderElemente[x,y].Parent:= Self;
   BilderElemente[x,y].SetBounds(x * 20, y * 20, 20, 20);
  end;
 end;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme