Inhalt TStringList in andere TStringList kopieren

[bernau]

Ich sehe es so wie haenschman. Wer erzeugt gibt frei.

Allerdings gibt es auch Fälle, bei denen ich in einer Funktion ein Objekt erzeuge und dann bestimmte Parameter setzte.

Anstatt eine sortierte Stringliste herkömmlich zu erzeugen:

Delphi-Quellcode:

lStringlist:=TStringlist.create;
lStringlist.sorted:=true;
lStringlist.duplicates = dupIgnore;

mache ich mir eine Funktion

Delphi-Quellcode:

function TStringlistSortedCreate:TStringlist;
begin
  result:=TStringlist.create;
  result.sorted:=true;
  result.duplicates = dupIgnore;
end;

Verwendet wird es so:

  lStringlist:=TStringlistSortedCreate;
Wie gesagt. Nur ein Kurzes Beispiel um aus drei Zeilen eine Zeile zu machen.

Finde ich ganz angenehm.

[Popov]

Eine Funktion die als Result ein Objekt zurück gibt ist ja schön und manchmal gibt es keine andere Möglichkeit, aber das muss man immer zu gut aufpassen, nichts zu vergessen.

Ich persönlich favorisiere diese Methode. Da wird nichts verteilt:

Delphi-Quellcode:

procedure MachWas(Bmp: TBitmap);
begin
  Bmp.Canvas.Brush.Color := clRed;
  Bmp.Width := 400;
  Bmp.Height := 200;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    MachWas(Bmp);
    Canvas.Draw(10, 10, Bmp);
  finally
    Bmp.Free;
  end;
end;