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

[Jasocul]

Ich hätte mein "Warum" klarer formulieren sollen. Aber Luckie hats ja schon beantwortet.

[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;

[MaBuSE]

Zitat von MaBuSE:

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 etwas sicherer:

Delphi-Quellcode:

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

Rückgabe = TMeinTyp
Rückgabe bei Fehler = nil

[edit]
Anwendung:

Delphi-Quellcode:

  ...
  x.Free; // nur um zu zeigen das x nicht definiert sein sollte/muss
  x := meineFunktion('');
  if x <> nil then
  try
    // mach was
  finally
    x.Free;
  end
  else Fehlermeldung.Ausgeben('...');
  ...

[/edit]

[Luckie]

Man könnte es auch als out Parameter deklarieren, wenn einem eine Deklaration als var Paamaeter nicht gefällt:

Delphi-Quellcode:

procedure FillSl(out sl: TStringList);
begin
  sl.Add('Foo');
  sl.Add('bar');
  sl.Add('Hello');
  sl.Add('world');
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    FillSl(sl);
    Listbox1.Items.Assign(sl);
  finally
    FreeAndNil(sl);
  end;
end;

[MaBuSE]

Zitat von Luckie:

Man könnte es auch als out Parameter deklarieren, wenn einem eine Deklaration als var Paamaeter nicht gefällt:

Delphi-Quellcode:

procedure FillSl(out sl: TStringList);
begin
  sl.Add('Foo');
  sl.Add('bar');
  sl.Add('Hello');
  sl.Add('world');
end;

Dann kanst Du aber nicht so was machen wie:

Delphi-Quellcode:

  ...
  with meineFkt('') do
  try
    // mach was mit den Properties
  finally
    Free;
  end;
  ...

[changlee]

Hallo!
Also nochmals vielen Dank dafür, dass Ihr euch alle so gut um mein Problem gekümmert habe.
Wie man result verwendet, weiß ich ja inzwischen, und eine gute Auswahl für die Werte-Rückgabe habe ich auch.

Also ich habe es inzwischen mit var-Parametern realisiert und es funktioniert.
Ich bin zwar im allgemeinen nicht so begeistert von solch einer Methode, da ich eher aus der Websieprogrammierung (PHP) komme. Dort war ich es gewohnt grundsätzlich mit Rückgabewerten zu arbeiten. Das geht ja wegen der Konsequenten Typunterscheidung bei Delphi nicht so schön (wie z.B. im Fehlerfall boolean sonst integer, vielleicht aber auch real und oder array ...).

Aber was ich ganz unschön finde ist dieses lästige erstellen und freigeben (MainTyp.Create..).
Vielleicht muss ich einfach mal einen Abend darüber nachdenken. Damit ich nachvollziehe, warum das alles nötig ist.

Was mich allerdings mal interessiert, ist, ob ihr eigentlich irgendwie kommerziell hier angestellt seid, oder ob ihr einfach nur hilfsbereit seid und wirklich bei Gelegenheit mal helfen wollt. Ich denke, dass ist eine Charaktereigenschaft, die in unserer Gesellschaft eigentlich zunehemend verloren geht.

Wenn ich eines Tages gut genug sein werde, hier auch mal eine Frage zu beantworten, dann habe ich wenigstens nicht mehr das Gefühl hier im Forum herumzuschmarotzen

Genug geredet.

mfg
changlee

[Luckie]

Ganz einfach. Instanzen von Klassen die du erzeugst belegen Speicher. Damit dieser Speicher wieder freigegeben wird, muss man die Instanzen wieder freigeben. Generell gilt: alles Ressourcen, die man selber belegt, muss man auch wieder freigeben. Das Gilt für Speicher, für Handles usw.

[jim_raynor]

Wenn du ein Variable vom einer Klasse hast zum Beispiel TFileStream, dann besitzt du nur einen Zeiger (4 Bytes) auf das Objekt. Erst mit dem Create wird das eigentlich Objekt erstellt. Fürs Freigeben siehe Luckies Beitrag

P.S: Wenn man bei PHP konsequent mit Objekten arbeitet, hast du das dort auch.

[MaBuSE]

Zitat von changlee:

Was mich allerdings mal interessiert, ist, ob ihr eigentlich irgendwie kommerziell hier angestellt seid, oder ob ihr einfach nur hilfsbereit seid und wirklich bei Gelegenheit mal helfen wollt. Ich denke, dass ist eine Charaktereigenschaft, die in unserer Gesellschaft eigentlich zunehemend verloren geht.

Hier ist keiner kommerziell angestellt !!!
Selbst die Moderatoren, die hier nach dem Rechten sehen, machen das unentgeltlich.
Es macht einfach Spaß sein Wissen weiterzugeben. Im Gegenzug bekommt man ja auch bei seinen Problemen geholfen. Das ist ein Geben und Nehmen.

Zitat von changlee:

Wenn ich eines Tages gut genug sein werde, hier auch mal eine Frage zu beantworten, dann habe ich wenigstens nicht mehr das Gefühl hier im Forum herumzuschmarotzen

Schau mal genauer hin. Es gibt sicherlich auch schon einige Fragen zu denen Du eine Lösung (oder einen Lösungsansatz) hast. Keine Scheu, einfach mal antworten.

Viel Spaß

[MathiasSimmack]

ot:

Zitat von MaBuSE:

Es macht einfach Spaß sein Wissen weiterzugeben.

Oder so zu tun, als hätte man welches.