kleine frage omg *g

[Zero1]

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 :

Delphi-Quellcode:

 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

[Sanchez]

Meinst du ca. so:

Delphi-Quellcode:

  hilfsstring := '';
  for i:=0 to memo2.Lines.Count - 1 do begin
    hilfsstring := hilfsstring + a + memo2.Lines[i] + b;
  end;
  memo1.Text := hilfsstring;

... oder hab ich es falsch verstanden?

grüße, daniel

[Gast]

Du koennen bitte schreiben plain German??? Ich verstehe die Worte, aber nicht wie ich sie zusammenfuegen soll um einen Sinn zu erhalten.

for i:= ... ist bekannt?

Fuer alles weitere konkretisiere deine Fragestellung bitte nochmal. Sonst kann ich hier nur raten, was du willst.

[Zero1]

2 memos, 1 button hehe :)

memo1:

da kommt der text rein zb: in der ersten zeile kommt der text hallo rein i der 2ten zeile kommt der text hiho... usw

wenn jemand auf dem button click kommt der text aus der memo1 mit 1em anderen wort dazu was automatisch hinzugefügt wird! würde dan so aussehen : "hallo wie gehts" etc !! und das kommt bei der memo2 als ausgabe raus :) !

deswegen auch so :

Delphi-Quellcode:

 memo1.lines[0]+b := memo2.text;

hoffe das is dir nun klarer und kannst mir nun weiter helfen *g*

der sinn ist egal! es soll nur das zb können :p
greez Zero1

[Zero1]

MANY THX Sanchez0815 !!!!!!!!!!!!!


greeZ Zero

[Gast]

Ich versuch mal zu rekapitulieren:

... vergiss es, ich kapiers nicht.

Aber mal ein Versuch

Delphi-Quellcode:

for i:=0 to Memo1.Lines.Count-1 do
  Memo2.Lines.Append(Memo1.Lines[i]+b);

Meinst du sowas?

*/megehtjetztdeutschlernen*

[Zero1]

du brauchst es ja nid zu kapieren :D
solange es andere gibt die es gecheckt haben passt es ja :)

:)

many thx trozdem für deine bemühungen!

greez Zero1