Delphi-Quellcode:
type
TStringManager = class
private
{Felder}
public
constructor Create;
destructor Destroy; override;
end;
constructor TStringManager.Create;
begin
// Felder erstellen
// also der Initialize-Code
end;
destructor TStringManager.Destroy;
begin
// der Close-Code
inherited;
end;
Das sollte man als OOPer aber wissen.