Rückgabewert von Funktionen / evtl. Problem mit try..finally

[MaBuSE]

Zitat von changlee:

Ich werde es jetzt wohl mit var-Parametern lösen.

Ich würde es so machen:

Delphi-Quellcode:

function meineFkt(str: String): TMeinTyp; 
begin 
  Result := TMeinTyp.Create; 
  Result.Property1 := 'Hallo 1'; 
  Result.Property2 := 'Hallo 2'; 
end;

bzw bei vielen Properties:

Delphi-Quellcode:

function meineFkt(str: String): TMeinTyp; 
begin 
  Result := TMeinTyp.Create; 
  with Result do
  begin
    Property1 := 'Hallo 1'; 
    Property2 := 'Hallo 2'; 
    Property3 := 'Hallo 3'; 
    Property4 := 'Hallo 4'; 
    Property5 := 'Hallo 5'; 
    Property6 := 'Hallo 6'; 
    //...
  end;
end;