Create Prozedur von Unit ändern

[Muetze1]

Moin!

Beispiel mit einer einfachen Klasse und einer internen Variable, die beim Create() auf 5 initialisiert wird.

Delphi-Quellcode:

Unit Klasse1;

Interface

Type
  TKlasse1 = Class
  Private
    fInterneVar : Integer;
  Public
    Constructor Create; Virtual;
  End;

Implementation

Constructor TKlasse1.Create; 
Begin
  Inherited Create;

  fInterneVar := 5;
End;

End.

MfG
Muetze1