Einzelnen Beitrag anzeigen

luke2

Registriert seit: 17. Jun 2009
117 Beiträge
 
#1

TStringList im with übergeben

  Alt 11. Feb 2010, 15:32
Hallo,

Wenn ich eine Funktion oder Prozedur habe, die TStrings als Parameter erwartet, muss ich ja eine TStringList ja mit einer Variable erstellen und diese dann übergeben.
Beispiel:
Delphi-Quellcode:
procedure test(s:tstrings);
begin
  [...]
end;

var
  sl:tstringlist;
begin
  sl:=tstringlist.create;
  try
    test(sl);
  finally
    sl.free;
  end;
end;
Wenn ich das Ganze nun mit einem with abkürzen möchte, gibt es dann auch eine Möglichkeit die eigene Instanz zu übergeben?
Beispiel:
Delphi-Quellcode:
procedure test(s:tstrings);
begin
  [...]
end;

begin
  with tstringlist.create do try
    test(<was kommt hier rein?>);
  finally
    free;
  end;
end;
MfG
  Mit Zitat antworten Zitat