Memo.Text Schleife

[lbccaleb]

Delphi-Quellcode:

var
i: integer;
letztenzeichen: string;

if length(memo1.text) < 11 then exit;
letztenzeichen := '';
for i := length(memo1.text)-11 to length(memo1.text do begin;
  letztenzeichen := letztenzeichen + memo1.text[i];
end;

//weiter....

Könntest das ganze natürlich auch mit copy() machen...