Warum erscheint eine Fehlermeldung?

[ThaiSon96]

Hallo,
ich habe ein Programm erstellt, dass ein Datum einliest und auf Wunsch des Benutzers in amerikanischem oder europäischen Format ausgibt. Es funktioniert zwar, aber wenn das Programm geschlossen wird, erscheint eine Fehlermeldung.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  tDatum = class
    tag, monat, jahr : integer;
    procedure drucke(pcheck:string);
    procedure setze(ptag, pmonat, pjahr: integer);
    procedure loeschen;
    //function xmascheck():boolean;
    function datumcheck():boolean;

    end; // of class

//Implementation-----------------------------------------------------

procedure tDatum.loeschen;
begin
  Tag := 0;
  Monat := 0;
  Jahr := 0;
end;

procedure tDatum.drucke(pcheck:string);
begin
  if datumcheck() then
  begin

    if pcheck = 'E' then
      writeln(tag,'.',monat,'.',jahr)

  else

    if pcheck = 'A' then
       writeln(monat,'/',tag,'/',jahr)

  end
  else writeln('ERROR');
end;

//function tDatum.xmascheck() : boolean;
//begin
  //if (tag = 24) AND (monat = 12) then
    //result := true
  //else
    //result := false;
//end;


Function tdatum.datumcheck(): boolean;
Begin
   If (tag in [1..31]) AND (monat in [1..12]) then
     Result := true
  else
    Result := false
End;


procedure tDatum.setze(ptag, pmonat, pjahr: integer);
begin
  if datumcheck() then
  begin
    tag := ptag;
    monat := pmonat;
    jahr := pjahr;
  end
end;


var
  heute: tDatum;
  check : string;

begin // Hauptprogramm -------


heute.loeschen;
write('Tag: '); readln(heute.tag);
write('Monat: '); readln(heute.monat);
write('Jahr: '); readln(heute.jahr);

heute.setze(heute.tag,heute.monat,heute.jahr);

writeln;
writeln('Amerikanisch (A) oder Europaeisch (E)?');
readln(check);
heute.drucke(check);
readln;
end.

Die Fehlermeldung: "In Projekt C:\<...> \Project1.exe trat ein folgendes Problem mit folgender Meldung auf: 'access violation at 0x7c93a3a2: read of adress 0x000007ea.'. Prozess angehalten. Mit Einzelne Anweisungen oder Start fortsetzen."

Es öffnet sich ein Fenster mit der Überschrift CPU und eine Zeile ist markiert:
7C93A9A2 8B02 mov eax,[edx]

Kann jemand den Grund erkennen?
Gruß

[himitsu]

Weil du keine Instanz von deinem tDatum erstellt hast!

Ich wundere mich allerdings nur, daß es nicht gleich in "loeschen" knallt.
Welche Delphi/Lazarus-Version nutzt du denn?



PS: Dein datumcheck in setze "checkt" die falschen Werte.

Und der Code in drucke macht nicht das, was einem die Formatierung versucht einzureden.

[Stevie]

Unter Delphi zumindest kann das Programm überhaupt nicht funktionieren.

Du erstellst nämlich an keiner Stelle eine Instanz von TDatum. Und da du eine globale Variable benutzt, welche auf nil initialisiert ist, bekommst du eine Zugriffverletzung in der ersten Zeile der Loeschen Methode. Das sollte der Compiler übrigens mit der Warnung "Variable nicht initialisiert" quittieren.

[ThaiSon96]

Könnt ihr die Mängel bitte etwas genauer erläutern?
Wie oben bereits beschrieben wurde: Das Programm funktioniert.

[Stevie]

Zitat von ThaiSon96:

Könnt ihr die Mängel bitte etwas genauer erläutern?
Wie oben bereits beschrieben wurde: Das Programm funktioniert.

Objekte kann man nicht einfach benutzen, ohne eine Instanz davon zu erstellen, da sonst kein Speicher für die Felder allokiert wurde. Entweder knallt es direkt (wie es hier eigentlich sollte) oder du schreibst wild auf irgendnem Speicher rum - entweder merkst du es nicht, oder du bekommst irgendwann später die Quittung, wie scheinbar in deinem Fall, beim Beenden - ich würde das nicht "funktionieren" nennen

P.S. Du bist uns immer noch die benutzte Delphi Version schuldig - eventuell können wir uns dann das von unseren Erwartungen abweichende Verhalten erklären.

[sx2008]

Eine Instanz erstellen bedeutet in Delphi dass man den Konstruktor, der fast immer Create heisst, explizit aufrufen muss:

Delphi-Quellcode:

var
  heute: tDatum;
  check : string;
begin // Hauptprogramm -------
  heute := tDatum.Create;  // Konstruktor aufrufen, dieser liefert eine neue Instanz (ein Objekt) zurück
  heute.loeschen;
  ...
  // und ganz zum Schluss muß man das Objekt wieder freigeben
  heute.Free;
end;

[Sir Rufo]

Zitat von sx2008:

Eine Instanz erstellen bedeutet in Delphi dass man den Konstruktor, der fast immer Create heisst, explizit aufrufen muss:

Delphi-Quellcode:

var
  heute: tDatum;
  check : string;
begin // Hauptprogramm -------
  heute := tDatum.Create;  // Konstruktor aufrufen, dieser liefert eine neue Instanz (ein Objekt) zurück
  heute.loeschen;
  ...
  // und ganz zum Schluss muß man das Objekt wieder freigeben
  heute.Free;
end;

Korrekterweise erstellt der Konstruktor eine Instanz und liefert eine Referenz zur Instanz (Zeiger auf den Speicherbereich der Instanz) zurück.

[ThaiSon96]

Vielen Dank für die nachvollziehbaren Erklärungen!
Ich habe nochmal meinen Lehrer gefragt und er meinte, dass wir das noch nicht wissen können...
Benutze Delphi 7, aber es hat sich ja erledigt

[himitsu]

Der bringt euch den Aufbau von Klassen bei, aber den wichtigstens Teil nicht als Erstes?

Deine Version kannst du auch direkt im Profil angeben, dann wird es nicht mehr vergessen und ist immer gleich erkenntlich.
(und in einigen Unterforen könnte man das nochmal zusätzlich im neuen Thema/Thread angeben ... für die mit mehreren Versionen)




Im D7 sollte das eigentlich "richtig" funktionieren und müsste gleich am Anfang einen Fehler werfen.

[Helmi]

Zitat von himitsu:

Im D7 sollte das eigentlich "richtig" funktionieren und müsste gleich am Anfang einen Fehler werfen.

Ich hab in D7 den Code von oben mal getestet - eigenartigerweise geht das wirklich - nur knallte es bei mir einmal gleich nach der Frage:
writeln('Amerikanisch (A) oder Europaeisch (E)?'); und der darauf folgenden Eingabe A und einmal am Ende vom Programm

Unter XE2 knallt's gleich nach dem Start vom Programm: Computer sagt Nein