Thema: Delphi kleine frage omg *g

Einzelnen Beitrag anzeigen

Zero1

Registriert seit: 5. Jun 2003
93 Beiträge
 
#1

kleine frage omg *g

  Alt 31. Jul 2003, 19:32
hiho!

also ich möchte gerne den text von der memo2 das mit 2 anderen wörtern zusammengefügt wird und in memo1 ausgibt! pro zeile!

zb.
zeile1: test1 hallo test2
zeile2: test1 hi test2
usw...

prob gebe es keine aber wie kann ich machen das sich das alles automatisch um 1 erhöt wenn ne neue zeile ist?

normal hatte ich das so :
 memo1.Text := a+memo2.lines[0]+b+a+memo2.lines[1]+b; wenn ich das so mache wäre das ne menge arbeit *g denn ich brauch ca 1000 lines *g

wolltes mit ner schleife probieren aber funkte nicht?

weis maybe jemand wie ich das am besten lösen kann? danke schon im vorraus! hoffentlich versteht ihr was ich meine *g
ansonsten fragt nochmal :p
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var a,b: String;
begin
 a :='test1';
 b :='test2';
 memo1.Text := a+memo2.lines+b;
 end;
end.
greez Zero1
  Mit Zitat antworten Zitat