Letzte 5 Zeichen in Memo Lines kopieren

[taktaky]

Hallo

ich möchte nicht den ganzen Inhalt in Memo kopieren sondern nur die letzte 5 Zeichen von
jeder Line (Zeile)

Bei Edit-Feld ist einfach. Beispiel :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, lepos : Integer;
alttext, neutext, zeichen : String;
begin
alttext := Edit1.Text;
lepos:=Length(alttext);
Neutext:='';
for i:= lepos-5 to lepos do

begin
zeichen:=Copy(alttext,i,1);
neutext:=neutext+Zeichen;
Edit2.Text:=Neutext;

end;
end;

Wie soll die Sachen bei Memo oder bei ListBox ?

[mkinzler]

Warum kopierst du 5x1-Zeichen und nicht einmal 5?
Indem du die Items durchgehst und dann jeweils die letzten 5 Zeichen Kopierst.

[taktaky]

wie zum Beispiel ?

[mkinzler]

Erinnerst du dich an den thread von gestern?
http://www.delphipraxis.net/internal...t.php?t=122690

[Thorben_Ko]

[OT]langsam wird es echt dreisst. DIe lösung steht ca 5 mal im threat von gestern -.-[/OT]

[taktaky]

Das Thema von gestern heisst : Delete strings in ListBox
Das Thema von heute heisst : letzte 5 Zeichen kopieren

[Christian Seehase]

Moin taktaky,

sei so gut, und arbeite mal die Antworten in dem von mkinzler genannten Thread durch, da diese alles Erforderliche enthalten.
Ein kleiner Hinweis dazu:
Memo.Lines entsprechen für Deinen Anwendungsfall den ListBox.Items.

Übrigens:
Nur weil das Thema anders genannt wird, heisst das ja noch lange nicht, dass es einen anderen Inhalt hat ;-)

* * * * * C L O S E D * * * * *