Kleines Prob mit 2Memo Feldern!

[monstaa]

hi
ich hab da ein kleines problem, ich wollte mir nen Nfo maker bauen(will ich auch geranicht weiter ansprechen)
undzwar hab ich nen Tabsheet namens Trackliste da ist ein Memofeld(Memo2), das soll ausgefüllt werden, denn hab ich noch ein TabSheet das ist eine Preview(Memo1) undzwar hab ich das hier stehen
#*#*#*#*#*#*T*R*A*C*K*L*I*S*T*E*#*#*#*#*#*#*#*#*#* #*
#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#* #*

und dazwischen soll die trackliste, das sind die zeilen 26 und 27
ich hab folgendes versucht,

Delphi-Quellcode:

procedure TForm1.Memo2Change(Sender: TObject);
var i,z:integer;
    l:string;
begin
  Memo1.Lines[26] := '#*#*#*#*#*#*T*R*A*C*K*L*I*S*T*E*#*#*#*#*#*#*#*#*#*#*';

  l := IntToStr(24+Memo2.Lines.Count);
  for i := 27 to StrToInt(l) do begin
     for z := 0 to Memo2.Lines.Count do begin
        Memo1.Lines[i] := Memo2.Lines[z];

     end;
  end;
end;

aber das geht nicht wirklich, der macht mir zwar reihen aber da wird nix eingetragen was im Memo2 steht
hat einer nen anderen tipp ??

[mkinzler]

Memo1.Lines.Add( Memo2.Lines[z]);

[monstaa]

das geht nicht, dnen
Asciilogo
blablablalblba
bla
bla
bla
bla
bla
bla
#*#*#*#*#*#*T*R*A*C*K*L*I*S*T*E*#*#*#*#*#*#*#*#*#* #*
#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#* #*
satz
#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#* #*
Generated by Nfo.Maker


gdfdfgfgfgdggf
g


gdfdfgfgfgdggf
gf


gdfdfgfgfgdggf
gf


gdfdfgfgfgdggf
gf
g


gdfdfgfgfgdggf
gf
g


gdfdfgfgfgdggf
gf
gf


gdfdfgfgfgdggf
gf
gf


gdfdfgfgfgdggf
gf
gf


gdfdfgfgfgdggf
gf
gf


gdfdfgfgfgdggf
gf
gf
g

so kommt das denn... etlichemale wiederholt. denn nochwas
das muss so sein
Asciilogo
blablablalblba
bla
bla
bla
bla
bla
bla
#*#*#*#*#*#*T*R*A*C*K*L*I*S*T*E*#*#*#*#*#*#*#*#*#* #*
gdfdfgfgfgdggf
gf
gf
g
#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#* #*
satz
#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#* #*
Generated by Nfo.Maker

[DeddyH]

Versuch es mal so (ungetestet):

Delphi-Quellcode:

for i := Memo2.Lines.Count - 1 downto 0 do
  Memo1.Lines.Insert(27,Memo2.Lines[i]);

[monstaa]

oha jetzt macht der son shit
shit
shi
sh
s

da ist nen denkfehler irgendwo. man beachte

procedure TForm1.Memo2Change(Sender: TObject);

[DeddyH]

Ich fürchte, ich habe Dich falsch verstanden. Soll es so sein, dass alle Zeilen aus dem einen Memo zwischen die Zeilen 26 und 27 des anderen Memos kopiert werden? Und wenn nicht, wie dann? Zeig doch mal beide Memos als Beispiel, am Besten mit dem gewünschten Ergebnis.

//Edit: Achso, OnChange ist das natürlich schlecht, hmm

[monstaa]

http://img169.imageshack.us/img169/8...ker1ts5.th.png
http://img504.imageshack.us/img504/5...ker2px9.th.png

so mein ich das, beim 2ten soll aber nur das korrecte da stehen also Meine Trackliste nicht der andere kram

[DeddyH]

Also, der Inhalt aus Memo2 soll zwischen diese beiden Zeilen in Memo1?
#*#*#*#*#*#*T*R*A*C*K*L*I*S*T*E*#*#*#*#*#*#*#*#*#* #*
#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#* #*

[monstaa]

genau

[DeddyH]

Ich würde das nicht unbedingt OnChange machen. Schau Dir mal an, was IMHO da alles passieren muss:

Delphi-Quellcode:

procedure TForm1.Memo2Change(Sender: TObject);
var i: integer;
begin
  Memo1.Lines.BeginUpdate;
  //evtl. vorhandene Zeilen erst löschen
  while (Memo1.Lines.Count > 26) and (Memo1.Lines[26] <> '#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*') do
    Memo1.Lines.Delete(26);
  
  //nun Zeilen aus Memo2 einfügen
  for i := Memo2.Lines.Count - 1 downto 0 do
    Memo1.Lines.Insert(26,Memo2.Lines[i]);
  Memo1.Lines.EndUpdate;
end;

Bisschen viel Gedöns für ein Memo, dass man zu dem Zeitpunkt gar nicht sieht, oder?