![]() |
Letzte 5 Zeichen in Memo Lines kopieren
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:
Wie soll die Sachen bei Memo oder bei ListBox ?
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; |
Re: Letzte 5 Zeichen in Memo Lines kopieren
Warum kopierst du 5x1-Zeichen und nicht einmal 5?
Indem du die Items durchgehst und dann jeweils die letzten 5 Zeichen Kopierst. |
Re: Letzte 5 Zeichen in Memo Lines kopieren
wie zum Beispiel ?
|
Re: Letzte 5 Zeichen in Memo Lines kopieren
|
Re: Letzte 5 Zeichen in Memo Lines kopieren
[OT]langsam wird es echt dreisst. DIe lösung steht ca 5 mal im threat von gestern -.-[/OT]
|
Re: Letzte 5 Zeichen in Memo Lines kopieren
Das Thema von gestern heisst : Delete strings in ListBox
Das Thema von heute heisst : letzte 5 Zeichen kopieren |
Re: Letzte 5 Zeichen in Memo Lines kopieren
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 * * * * * |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:59 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz