texte einfügen

[Bandobras]

hi,
ich hab 2 texte: text1 und text2.
der eine soll in den anderen eingefügt werden, und zwar eine zeile unter einem bestimmten schlüsselwort.
hab jetzt folgendes:

Delphi-Quellcode:

procedure TForm4.Button3Click(Sender: TObject);
var text,text2,text3,text4,text5,test,test2:string;

begin
text:=memo2.text;   //der zu bearbeitende text komm hier rein
text2:='SetProp(P_INT_LONG,'+text+');';  //der 2.Text wird verarbeitet, wobei 'SetProp(P_INT_LONG...' für den sachverhalt 
                                        //unwichtig ist
text3:=memo6.text; // das ist der text, in den eingefügt werden soll
text4:=Copy(text3, 1,pos('//Beschreibung',text3 )+13);   //der text wird kopiert undzwar vom anfang bis zum ende des 
                                                        //Schlüsselwortes "//Beschreibung"
text5:=Copy(text3, pos('//Beschreibung',text3 )+19, Length(text3)); //hier wird der Text, nach dem schlüsselwort kopiert
test:=text4 + text2 + #13#10 + text5;    //Nun wird eingefügt
memo6.text:=test;   //eigentlich klar, oder?
end;

Mein Problem bei der Sache ist, dass der einzufügende text nicht eine zeile unter dem schlüsselwort liegt, sondern in der selben zeile und darunter eine leere neue zeile entsteht.

ich will also den text zwischen schlüsselwort und rest einfügen, ohne etwas vom ursprungstext zu verlieren.
wie mache ich das? das problem ist, dass ich den text nicht eine zeile unter dem schlüsselwort einfügen kann.

ich hoffe ihr könnt helfen!!

[BenjaminH]

Ich glaube so würde es funktionieren:
Statt

Delphi-Quellcode:

test:=text4 + text2 + #13#10 + text5;    //Nun wird eingefügt
memo6.text:=test;   //eigentlich klar, oder?

Das:

Delphi-Quellcode:

memo6.text:=text4;
memo6.Lines.Add(text2);
memo6.Lines.Add(text5);

Benjamin

[Bandobras]

danke. so klappt das