Hey Leute,

ich schreibe grad an nem wichtigen Projekt für die Schule. Und jetzt spuckt mir Delphi plötzlich ne komische Fehlermeldung aus:

[Fatal Error] Internal error: L973

Ich hab mal alles was ich seit dem vorigen Speichern neu gemacht habe wieder rausgenommen, die Fehlermeldung bleibt.

Hat jemand ne Ahnung was das ist und vor allem woran das liegen könnte? Bin echt ratlos!

Hi,

das "L" in der Meldung weist auf einen internen Fehler im Linker hin.
Versuch mal alle DCU-Dateien aus Deinem Projektverzeichnis zu löschen und versuche es anschließend mal erneut.

mfG
mirage228

Wo muss ich denn nach DCU-Dateien gucken?

(vielleicht ne dumme Frage aber bin recht unwissend)

Meist im gleichen Verzeichnis in dem Deine *.exe steht.

da hab ich nur eine .dcuil datei... aber wenn ich die lösche und das neu starte passiert genau das selbe wie immer

Die gleiche Diskussion wird schon hier geführt,
hat aber auch noch kein Ergebnis gebracht wie mir scheint.

Grüße
Klaus

Hi,

hab das ganze jetzt noch mal versucht neu aufzubauen und dabei rausgefunden, dass er den Fehler schon nach der Typn-Deklaration anzeigt, genauer gesagt beim Record liegen muss. Da genau das der Teil ist, der neu für mich ist, stell ich grad mal den Quelltext rein und hoffe/denke dass sich jemand damit besser auskennt als ich und vielleicht den möglichen Fehler entdeckt:

zusammenfalten · markieren

Delphi-Quellcode:

type
  Tzweiter_Versuch = class(TForm)
    BitBtn_Auto: TBitBtn;
    BitBtn_Bus: TBitBtn;
    BitBtn_LKW: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;


  TFahrzeug = class
  public
  FPosX: integer;
  FPosY: integer;
  FWidth: integer;
  FHeight: integer;
  FArt: string;
  FDelay: integer;
  end;


  TFahrzeuginstanz = record
  Instanz: TFahrzeug;
  empty: boolean;
  end;

var
  zweiter_Versuch: Tzweiter_Versuch;
  Fahrzeuge: array[0..15] of TFahrzeuginstanz;
  end

Danke schon mal

[edit=sakura] [delphi]-Tags. Mfg, sakura[/edit]

Kann es sein, das in der Record Deklaration keine Klasse aufgeführt werden darf.

Wenn Du anstellen von diesem Code:

markieren

Delphi-Quellcode:

TFahrzeug = class
  public
  FPosX: integer;
  FPosY: integer;
  FWidth: integer;
  FHeight: integer;
  FArt: string;
  FDelay: integer;
  end;

diesen nimmst:

markieren

Delphi-Quellcode:

TFahrzeug = record
  FPosX: integer;
  FPosY: integer;
  FWidth: integer;
  FHeight: integer;
  FArt: string[50];
  FDelay: integer;
end;

sollte es auch so gehen.

markieren

Delphi-Quellcode:

TFahrzeuginstanz = record
  Instanz: TFahrzeug;
  empty: boolean;
end;

Grüße
Klaus

Das allerletzte "end" in deinem (dassi87) Quellcode verstehe ich nicht. Wofür steht dieses?