Probier mal sowas (ungetestet):
Delphi-Quellcode:
procedure changeH(var Woher: OpenString; var Wohin: OpenString);
var
Dummy : ShortString;
begin
Dummy := Copy(Woher, 4, 7);
Wohin:= Dummy;
end;
Statt OpenString kannst du auch ShortString schreiben, wenn du in den Projektoptionen "Offene Parameter" anhakst. Und statt ShortString kannst du string schreiben, wenn du "Huge-Strings" ausschaltest. Letzteres würde ich aber wirklich nur machen, wenn du den Code auch noch in TurboPascal verwenden willst.
HTH,
Uli.