Delimiterproblem bei StringList bzw Explode

**Zacherl**

Hi,
ich habe folgenden String: *SetClientData|Florian|"Florian Bernd"|FLORIAN|0|test1#*. Diesen möchte ich zuerst mit Delimiter * in seine zwei Teile trennen (Zweiter Teil ist klar leer), und dann mit Delimiter | in seiner Enzelteile zerlegen.

Komischeweise wird bei "Florian Bernd" immer beim Leerzeichen eine Trennung vollzogen.

Kann man das verhindern?

Dann habe ich grade die Funktion EXPLODE gefunden:

zusammenfalten · markieren

Delphi-Quellcode:

			function Explode(const Separator, S: string; Limit: Integer = 0): TStringDynArray;

var

  SepLen: Integer;

  F, P: PChar;

  ALen, Index: Integer;

begin

  SetLength(Result, 0);

  if (S = '') or (Limit < 0) then Exit; 

  if Separator = '' then

  begin

    SetLength(Result, 1); 

    Result[0] := S; 

    Exit;

  end;

  SepLen := Length(Separator);

  ALen := Limit;

  SetLength(Result, ALen);

  Index := 0;

  P := PChar(S);

  while P^ <> #0 do

  begin

    F := P;

    P := AnsiStrPos(P, PChar(Separator));

    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then P := StrEnd(F); 

    if Index >= ALen then

    begin

      Inc(ALen, 5);

      SetLength(Result, ALen);

    end;

    SetString(Result[Index], F, P - F);

    Inc(Index);

    if P^ <> #0 then Inc(P, SepLen);

  end;

  if Index < ALen then SetLength(Result, Index);

end;

welche allerdings den Delimiter innerhalb von " auch als Trennung ansieht ...

Florian

Delimiterproblem bei StringList bzw Explode

Delimiterproblem bei StringList bzw Explode

Forumregeln