TStringList im with übergeben

[luke2]

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

[DeddyH]

Nö, geht nicht (zumindest hätte ich keine Idee, wie). Hat immerhin den Vorteil, dass man with nicht immer so ohne weiteres verwenden kann und somit eine Fehlerquelle weniger hat.

[luke2]

Schade, ich brauche sowas nämlich relativ häufig und schreibe das gerne mit with, weil ich wenig Lust habe immer erst eine Variable für sowas zu deklarieren... :pale:

[DeddyH]

Nunja, Du könntest höchstens eine Klasse von TStringlist ableiten und eine Methode implementieren, die intern dann test(self) aufruft. Aber da würde ich an Deiner Stelle eher auf with verzichten.

[luke2]

OK, das wäre für sowas dann echt zu viel Aufwand, dann werde ich das with wohl weglassen. Danke trotzdem!

[Jaynder]

vergiss das with, führt nur zu Problemen mit ungewollten/unerkannten Namensüberlagerungen und ist blöd beim Debuggen. Mach lieber ein kleines Template zum Anlegen und wieder freigeben einer kurznamigen temporären Variablen.

[himitsu]

Zitat:

Zitat von DeddyH

Nunja, Du könntest höchstens eine Klasse von TStringlist ableiten und eine Methode implementieren, die intern dann test(self) aufruft.

Mit einem Class-Helper wäre sowas schnell und für alle Objekte nachgerüste, nur daß man da dann halt das Objekt nur als TObjekt bekommt oder man muß eben für bestimmte Klassen einen eigenen Class-Helper erstellen.

Aber schöner wäre es gewesen, wenn Delphi von sich aus bei WITH anbieten würde, wie es mit SELF bei Methoden möglich ist.

[DeddyH]

Trotzdem würde ich eher eine Variable deklarieren, um Verwechslungen auszuschließen (Beispiele für solche Verwechslungen gibt es hier ja haufenweise).

[edit] Z.B. hier [/edit]

[himitsu]

Zitat:

Zitat von DeddyH

Trotzdem würde ich eher eine Variable deklarieren, um Verwechslungen auszuschließen

OK, dann eben Named-With

Delphi-Quellcode:

with xyz: TStringList.Create do

für ein Alias würde mir dieses vorallem gefallen

Delphi-Quellcode:

with kurz: mega_extrem_lange_variable do
  with short: mega_extrem_large_variable do
  begin
    // mach was mit "kurz" und "short"
  end;

[Jaynder]

Man, hast du mich jetzt erschreckt, ich hatte für einen Moment geglaubt die Delphi's wären innovativ gewesen...