TStringList, Delimiter='@'

[hoika]

Hallo,

ich will einen String auseinandernehmen.

Folgender String:
12345@Tricor Packaging & Logistics AG

Delimiter:= '@';
StrList.DelimitedText:= '12345@Tricor Packaging & Logistics AG';

Jetzt sollen ja nur 2 Strings rauskommen,
aber die Leerzeichen und & werden als zusätzlicher Trenner gewertet.

Wie löse ich das Problemchen ?


Heiko

[mirage228]

Mit der Explode aus der Code-Library ... oder Du fügst den String, der Leerzeichen enthält in Anführungszeichen " " ein ...

Viele Grüße

[mkinzler]

Setzt .StrictDelimiter auf True, sonst ist ein Leerzeichen ein zusätzlicher Trenner

[mirage228]

Zitat von mkinzler:

Setzt .StrictDelimiter auf True, sonst ist ein Leerzeichen ein zusätzlicher Trenner

Also zumindest unter Delphi 7 gibt es diese Property nicht ...

[mkinzler]

Ich dachte, diese wurde mit D7 eingefüher, dann war es aber erst in D2006

[Hawkeye219]

Hallo Heiko,

für den Spezialfall der Trennung an einer Stelle hätte ich noch einen Vorschlag:

Delphi-Quellcode:

function SplitString (
           const aSource    : string;
           const aSeparator : string;
             var aBefore    : string;
             var aAfter     : string
         ) : Boolean;
var
  Position : Integer;
begin
  Position := Pos(aSeparator, aSource);
  Result := (Position > 0);

  if (not Result) then
    Position := Length(aSource) + 1;

  aBefore := Copy(aSource, 1, Position - 1);
  aAfter := Copy(aSource, Position + Length(aSeparator), MaxInt);
end;

// Anwendung

var
  sID, sName : string;
begin
  SplitString('12345@Tricor Packaging & Logistics AG', '@', sID, sName);
end;

Gruß Hawkeye

[hoika]

Hallo,

danke.


Heiko