Entwickler-Ecke

Sonstiges (Delphi) - Absturz beim Ausführen eines Progs


Anonymous - Do 30.01.03 16:14
Titel: Absturz beim Ausführen eines Progs
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 - 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ß


Anonymous - Do 30.01.03 16:36

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


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;