In einem String die ersten 4 Zeichen löschen?

[alcaeus]

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