Problem mit schreiben in RichEdit

DiamondDog · Beiträge: 460

Hallo Leute,
ich hab da folgendes Problem und zwar schreib ich etwas aus Richedit2 in Richedit1.
So weit funktioniert das auch nur die Sortierung wie es in das Richedit geschrieben wird. die ist einwenig durcheinander. Ich bräucht ein bischen Hilfe dabei das das ganze richtig sortiert wird.
Hier mal mein Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:

   for i := 0 to strtoint(Memo.Text)-1 do
    begin
     Richedit1.Text :=Richedit1.Text + Richedit2.Lines[i];
    end;

also in Memo 1 text steht die Anzahl der Zeilen die aus RichEdit2 genommen werden sollen. Diese Zeilen sollen dann oben in Richedit1 eingefügt werden.
Wäre super wenn mir da jemand Helfen könnte das richtig zu machen.

Danke schon mal.

Mfg Dog

Ehemaliges Mitglied Erhaltene Danke: 1

Mal auf die Schnelle aus dem Kopf getippt:

markieren

Delphi-Quelltext

1:
2:
3:
4:

for i := strtoint(Memo.Lines[0])-1 downto 0 do
    begin
     Richedit1.Lines.Insert (0,Richedit2.Lines[i]);
    end;

Wobei ich mir hierfür eine eigene Procedure schreiben würde, um Logik und Darstellung zu trennen.

DiamondDog · Beiträge: 460

Ok das funktioniert soweit super nur hab ich jetzt das Problem das immer eine Zeile frei ist zwischen dem neuen und dem alten Eintrag.
Wie bekomme ich die den weg?

Ehemaliges Mitglied Erhaltene Danke: 1

Einfach am Schluss die betreffende Zeile löschen, den Index hast Du ja.

DiamondDog · Beiträge: 460

Ahhh ok habs mit StringReplace einfach löschen.
Besten Dank.

Ps: hab zwar noch ne Frage aber dafür mach ich lieber einen neuen Theard auf.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme