ModelMaker: Pattern bearbeiten

[barnti]

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;