String anhand eines Trennzeichens zerlegen

[michael.cohrs]

hallo zusammen,

ich habe einen String der durch folgendem delimeter getrennt ist:


Wert1|Wert2

Das steht alles in einem kompleten String.

es geling mir nicht, warum auch immer, nicht diese beiden werte zu trennen. ich habs versucht mit

Delphi-Quellcode:

sTemp ist der komplette String, als Beispiel sTemp := "test|Test1"
s1 := Copy(sTemp,0, Pos('|',sTemp) - 1 );
Delete(sTemp,0, Pos('|',sTemp) + 1); // um den ersten Teil abzuschneiden
s2  := sTemp; // um den Rest zuzuweisen

ich habe leider in sTemp immer noch den kompletten zugewiesenen String, was mache ich falsch?

[Uwe Raabe]

1. Ganz blöder Titel des Posts!
2. Welche Delphi-Version? (bzw. welche Target-Platform)

[Rollo62]

Zitat:

Note: Delete uses one-based array indexing even in platforms where the strings are zero-based.

http://docwiki.embarcadero.com/Libra.../System.Delete

[Daniel]

Ich habe den Titel kurzerhand angepasst. Und ja, die Bitte ist grundsätzlich vorhanden, dass Ihr einen inhaltlich aussagekräftigen Titel wählt.

[michael.cohrs]

Sorry das der Titel "Blöd" war :-( ich arbeite mit Delphi 10.1 Berlin:cry:

[himitsu]

Du kannst deinen ersten Post bearbeiten und unten rechts auf [Erweitert], da lässt sich dann auch der Titel ändern. :zwinker:
Die Delphiversion kannst in deinem Profil angeben und auch in einigen Unterforen oben nochmal auswählen (links neben dem Titel), falls es abweichend ist.

Zitat:

Copy(sTemp, 0, Pos('|',sTemp) - 1 );

Ersteinmal: Normaler Weise fangen String-Indize bei 1 an und nicht bei 0.
(außer wenn man für iOS/Android kompilert, denn da ist

Delphi-Quellcode:

{$ZEROBASEDSTRINGS ON}

der Standard)

In etwas neuen Delphis kann man aber auch über den StringHelper arbeiten, der ist überall mit 0 indiziert.
sTemp.Substring

außerdem

• warum einmal kopieren (copy für s1) und einmal ausschneiden (delete für s2), wenn du nur die Werte "extrahierhen" willst?
  Beide mal gleich ist bestimmt einfacher (1..pos-1 und pos+1..ende und das Ende kann man bei Copy auch weglassen, also Copy(S,3) = alles ab 3)
• und die Position kann man auch einmal bestimmen und wiederverwenden

PS:

Delphi-Quellcode:

S := 'aaa|bbb';
S1 := GetShortHint(S);
S2 := GetLongHint(S);

GetLongHint

[michael.cohrs]

Mein Problem ist das das delete überhaupt nichts bewirkt :-( Der erste Teil wird nicht abgeschnitten

[runningsoft]

Oder wenn es ein anderer Trenner als | ist, z.B. das Semikolon:

Delphi-Quellcode:

S := 'aaa;bbb';
N := Pos(';',S);
S1 := (Copy(S,1,N-1));
Delete(S,1,N);
S2 := S

[himitsu]

Zitat:

Zitat von michael.cohrs (Beitrag 1459669)

Mein Problem ist das das delete überhaupt nichts bewirkt :-( Der erste Teil wird nicht abgeschnitten

Das kann nicht sein, außer es ist nur ein Zeichen zu löschen, was mit deinem falschen Start-Index kollidiert.

[Uwe Raabe]

Mit den korrekten Werten für 1-basierte Strings sollte es gehen:

Delphi-Quellcode:

  s1 := Copy(sTemp, 1, Pos('|', sTemp) - 1);
  Delete(sTemp, 1, Pos('|', sTemp)); // um den ersten Teil abzuschneiden
  s2 := sTemp; // um den Rest zuzuweisen

Etwas komfortabler geht es aber so:

Delphi-Quellcode:

//   arr: TArray<string>;

  arr := sTemp.Split(['|']);
  s1 := arr[0];
  s2 := arr[1];