copy(text,x,y) durch while... do - schleife ersetzen?

[mkinzler]

Delphi-Quellcode:

for i := x to x+y do
    s := s + text[i];