Verwendung von TStrings

[Martin K]

Wie kann man TStrings manuell schreiben, ohne den Befehl Add zu verwenden?
Geht das überhaupt ?

z.B.:

Delphi-Quellcode:

var Test: TStrings;

Test:='Zeile 1'+#0+'Zeile 2'+#0+'Zeile 3';

Kann jemand den obigen Quellcode korrigieren, so dass er funzt?
(Ich hätte gerne einen Befehl, ohne Add).

[Khabarakh]

Test.Text :='Zeile 1'#13#10'Zeile 2'#13#10'Zeile 3'; Manueller ist aber das falsche Wort, Add wird damit intern sowieso wieder aufgerufen.

[add] #0 würde den String beenden (der Rest wird von SetText ignoriert).[/add]

[Martin K]

Hmm...
vom Prinzip war's das, was ich wollte.

Aber ich habe eine Prozedur, und will dort TStrings als Variable übergeben.
procedure Irgendwas(Test: TStrings); Geht der Aufruf dann nur so:

Delphi-Quellcode:

var Test: TStrings;

Test.Text:='Zeile 1'+#0+'Zeile 2'+#0+'Zeile 3';
Irgendwas(Test);

oder kann ich die Prozedur auch ohne eine zusätzliche Variable aufrufen (so wäre es mir lieber):
Irgendwas('Zeile 1'+#0+'Zeile 2'+#0+'Zeile 3'); Wie geht das?

(Meinetwegen auch mit #13#10 anstatt #0, das ist mir eigentlich egal.)

[Martin K]

oder:
Gibt's vielleicht eine Umwandlung von String nach TStrings ?

z.B.:
Irgendwas(StringToTStrings('Zeile 1'+#13#10+'Zeile 2'+#13#10+'Zeile 3'));

[jim_raynor]

Delphi-Quellcode:

function StringToStrings(Text: String): TStrings;
begin
  result:=TStringList.Create; // TStringList weil TStrings ein abstrakter Typ ist und nicht instanziiert werden kann
  result.Text:=Text;
end;

Allerdings muss die StringListe auch mit Free wieder freigegen werden, was bei deiner Variante schwierig wird.

[Martin K]

Ich wollte keine Function selber schreiben, sondern wissen ob's eine schon in Delphi gibt,
oder ob man TStrings so direkt irgendwie übergeben kann.

Aber anscheinend gibt's da nix in Delphi...

Aber Danke erstmal an euch!

[Mr_G]

Zitat von jim_raynor:

... TStringList weil TStrings ein abstrakter Typ ist und nicht instanziiert werden kann ...

Ich würde das dann so machen:

Delphi-Quellcode:

procedure Irgendwas(Wert: String);
begin 
  var Test: TStringList; 

  Test := TStringList.Create;
  Test.Text := Wert;
  ...
  Test.Free; 
end;

Aufruf dann so:
Irgendwas('Zeile 1'+#13#10+'Zeile 2'+#13#10+'Zeile 3');

[Martin K]

Danke, ich hab das Problem schon anders gelöst.

[ibp]

und wie?