führende null entfernen

[p80286]

Zitat von DeddyH:

Ich hätte mittels Schleife den Index des ersten Nicht-Null-Zeichens ermittelt und ab da einfach kopiert.

Da war irgendwas mit umkopieren der Daten in bereits allokierten Speicher (delete), aber unsere Assembler Freaks wissen da besser Bescheid.

Gruß
K-H

[Neutral General]

Zitat von p80286:

Zitat von DeddyH:

Ich hätte mittels Schleife den Index des ersten Nicht-Null-Zeichens ermittelt und ab da einfach kopiert.

Da war irgendwas mit umkopieren der Daten in bereits allokierten Speicher (delete), aber unsere Assembler Freaks wissen da besser Bescheid.

Das ist doch was KodeZwerg als aller erstes gepostet hat oder nicht?

[KodeZwerg]

Zitat von DeddyH:

Ich hätte mittels Schleife den Index des ersten Nicht-Null-Zeichens ermittelt und ab da einfach kopiert.

Weicht Deine Methode von den gezeigten ab? (Vielleicht mittels Pointer-Operation fällt mir auf die schnelle noch ein)

Zitat von Neutral General:

Das ist doch was KodeZwerg als aller erstes gepostet hat oder nicht?

Ja. Das erschien mir die performanteste Umsetzung.

Delphi-Quellcode:

function RemLeadChar(const Input: string; const LeadChar: Char): string;
var
  i, ii: Integer;
begin
  ii := 0;
//  if Length(Input) > 0 then // ein zeichen minimum um weiter zu kommen // den check kann man sich sparen
//   if Input[1] = LeadChar then // fängt String nicht mit LeadChar an gibts nichts zu tun // den check kann man sich sparen
    for i := 1 to Length(Input) do // komplette stringlänge abarbeiten initialisieren
      if Input[i] = LeadChar then ii := i else Break; // kommt vorne ein LeadChar vor Position merken
  if ii > 0 then Result := Copy(Input, ii+1, Length(Input)) // entweder anfang verwerfen
   else Result := Input; // oder eingabe zurück
  if Result = '' then Result := LeadChar; // falls input leer oder nur aus LeadChars bestand, gib wenigstens ein LeadChar zurück
end;

[DeddyH]

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

Delphi-Quellcode:

function StrippedLeft(const Input: String; const Leading: Char): String;
var 
  i, idx: integer;
begin
  idx := 0;
  for i := 1 to Length(Input) do
    if Input[i] <> Leading then 
      begin
        idx := i;
        Break;
      end;
  if idx > 0 then
    Result := Copy(Input, idx)
  else 
    Result := ´´;
end;

[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