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 ?