[ERLEDIGT]class function -> grundsätzliche frage

[kiar]

hallo,

ich ertselle ein neues object, und möchte nun einen instanzen zähler hinzufügen

Delphi-Quellcode:

type

   TStatus = class
           FID          : integer;
           Fdienst      : boolean;
           Ftopcolor    : TColor;
           FbottomColor : Tcolor;
           private
           class function  Counter : integer;
   end;

in der implementierung rufe ich die funktion wie folgt auf

Delphi-Quellcode:

class Function TStatus.Counter :integer;
     begin
            result := erzeug;
     end;

ich will damit erreichen, das ich schon vor der erzeugung auf das object zugreifen kann, was ja bei einer class function geht.

erzeug ist ein integer , welcher in der initialisierung mit 0 belegt wird, also müsste mir doch diese function den wert null zurükgeben.

macht sie aber nicht, warum?

fehlermeldung: fehler beim lesen auf adresse .....
edit :
wenn ich die counter - funktion nach dem create aufrufe, ist es aber i.o. :wall:

raik

[teebee]

Also bei mir funktioniert das sehr gut, habe 'erzeug' als globale Variable deklariert. Kann den Fehler nicht reproduzieren, habe Deinen Code 1:1 übernommen.

Gruß, teebee

[kiar]

:mrgreen:

ich erstelle eine class function, um ohne instanz einen zähler zu erhalten und greife dann über eine instanz darauf zu

Delphi-Quellcode:

var
 FStatus : TStatus;
 iCount  : Integer;
begin
  iCount:= FStatus.Counter  // ich vollidiot, das ist falsch
  iCount:= TStatus.Counter; // das ich richtig
  Fstatus:= TStatus.create;
....
end;

dank, an alle die gelacht haben

raik