Text aus/in TString kopieren

[Frank Ambiel]

Hallo,

ich versuche grad den Text aus einem TString-Object in ein andere zu kopieren:<br>
Q1.Text := Query1.Sql.Text;<br>
Q1.add(Query1.SQL.Text); <br>
Q1.SetText( Query1.Sql.GetText);<br>
haben nicht funktioniert, d. h. es wird jeweils eine Exception ausgeloest.
Zum Hintergrund : Ich moechte in einer Funktion die alte SQL-Anweisung zwischenspeichern.

[Bernd Schulz]

Hi!<br>
So gehts:<br>
var<br>
help : tStrings;<br>
s : tquery;<br>
begin<br>
s := tquery.create ( nil );<br>
help := tStringlist.create;<br>
s.sql.add ( 'Select * from ABC' );<br>
s.sql.add ( 'where a=b' );<br>
s.sql.add ( 'and c=d' );<br>
help.addStrings ( s.sql );<br>
showmessage ( inttostr(help.count)); //meldet 3 alles OK<br>
end;<br>
<br>
BYE BERN