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

[himitsu]

Du kannst deinen ersten Post bearbeiten und unten rechts auf [Erweitert], da lässt sich dann auch der Titel ändern.
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 {$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 von michael.cohrs:

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];