optionale Parameter mit object-type?

[Sir Rufo]

Mach es doch gleich richtig

Delphi-Quellcode:

type 
  TScript = class
  private
   FLine: word;
   FState: TStatus;
   FLines:TStringList;
   FError:string;
  public
    property Error: string read FError;
    property Lines: TStringList read FLines;
  public
   constructor Create( aScriptFile : string );
   destructor Destroy; override;
  end;

constructor TScript.Create( aScriptFile : string );
begin
  inherited Create;
  FLines := TStringList.Create;
  FLines.LoadFromFile( aScriptFile );
end;

destructor TScript.Destroy;
begin
  FLines.Free;
  inherited;
end;

Kaum ein Unterschied zu object nur dass wir jetzt die Instanz erzeugen (statt Init ) und wieder freigeben (wenn nicht mehr benötigt). Bei der Freigabe räumen wir aber auch den Speicher kontrolliert auf:

Delphi-Quellcode:

procedure Foo;
var
  lScript: TScript;
  lStatus: TStatus;
begin
  lScript := TScript.Create( 'whatever.script' );
  try
    LStatus := Interpreter( '42', TModus.Whatever, lScript ); 
  finally
    lScript.Free;
  end;
end;