Hi,
verstehe ich das richtig? In dem betreffenden Thread ist die typisierte Kontante durch eine globale Variable ersetzt worden?
Delphi-Quellcode:
var
FInstance: TTest =
nil;
class function TTest.AccessInstance(Request: Integer): TTest;
begin
case Request
of
0 : ;
1 :
if not Assigned(FInstance)
then FInstance := CreateInstance;
2 : FInstance :=
nil;
else
raise Exception.CreateFmt('
Illegal request %d in AccessInstance', [Request]);
end;
Result := FInstance;
end;