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