führende null entfernen

[KodeZwerg]

Zitat von DeddyH:

Auf dem Tablet direkt im Editor getippt, daher komplett aus dem Kopf

Habe zwei überflüssige checks entfernt, nun schauts sogut wie gleich aus, ich geh halt mit break und worauf es reagiert anders um.

[Rollo62]

Was spricht eigentlich gg. das offizielle TrimLeft (siehe dem akzeptierten Vorschlag von SProske ) ?

[DeddyH]

Gar nichts, aber die nötige Überladung ist ja AFAIK erst mit dem StringHelper eingeführt worden, ältere Delphi-Versionen dürften das noch nicht kennen.

[Jasocul]

Da mir nach meinem ersten Kaffee danach war:

Delphi-Quellcode:

function DelLeadStr(LeadStr : String; InpStr : String) : String;
var
  vLeadStr : String;
begin
  vLeadStr := LeadStr;
  while Pos(vLeadStr, InpStr) = 1 do
  begin
    vLeadStr := vLeadStr + LeadStr;
  end;
  Delete(InpStr, 1, Length(vLeadStr) - Length(LeadStr));
  Result := InpStr;
end;

Vorteil:
- Kein Zugriff per Index auf den String --> Damit leicht umstellbar auf WideString (oder kann man da auch über den Index zugreifen?)
- Keine Längenprüfung erforderlich
- Auch führende Strings (also nicht nur ein Zeichen) können behandelt werden
Nachteil:
- Vermutlich etwas langsamer

[Neutral General]

Man kann auch bei WideStrings ganz normal ohne Probleme über den Index zugreifen.

[Jasocul]

Zitat von Neutral General:

Man kann auch bei WideStrings ganz normal ohne Probleme über den Index zugreifen.

Danke für die Info

[freimatz]

Bei dem Problem schon. Ansonsten kann es Probleme machen wenn man Surrogaten hat. (https://en.wikipedia.org/wiki/Univer...ers#Surrogates)