Zitat von
sniper_w:
Delphi-Quellcode:
uses StrUtils;
function losche4(const str:string):string;
begin
Result := '';
if length(str)<5 then Exit;
SetLength(Result, Length(str)-4);
Result := RightStr(str,length(str)-4);
end;
Sorry, aber eine sehr uneffiziente Variante. Du kopierst den String komplett, d.h. wenn du einen 1 GB langen String hast, dann hast du danach 2 1 GB lange Strings
Die Loesung mit Delete bedarf wohl keiner weiteren Erklaerung, es geht aber auch mit copy:
Str := Copy(Str, 4, Length(Str)-4);
Greetz
alcaeus