String abschneiden

[uligerhardt]

... oder:

Delphi-Quellcode:

var
  s: string;
begin
  s := 'Blah->';
  Delete(s, Length(s) - 1, 2);
end;