String.Split Methode Delimiter mehrmals vorhanden

[Dejan Vu]

Zitat von Sir Rufo:

Oder man sucht einfach nach dem ersten Vorkommen des Trennzeichens (Komma) und trennt an der Stelle den String einfach auf.

Siehe den Vorschlag von himitsu und meine preisverdächtigen und zum Patent angemeldeten Code.

[Sir Rufo]

Zitat von Dejan Vu:

Zitat von Sir Rufo:

Oder man sucht einfach nach dem ersten Vorkommen des Trennzeichens (Komma) und trennt an der Stelle den String einfach auf.

Siehe den Vorschlag von himitsu und meine preisverdächtigen und zum Patent angemeldeten Code.

Habe ich doch gesehen (und ja auch so beschrieben) ...

allerdings habe ich an deinem Code etwas auszusetzen. Eine Veränderung des Übergabewertes bei dieser Funktion kommt eher überraschend und zwingt den Entwickler dazu, den String vorher zu kopieren, wenn dieser Wert noch benötigt wird oder als const Parameter übergeben wurde.

Generell ist es besser, diese Funktion so zu schreiben (wie auch die vorhandene String.Split Funktion), dass dort ein Array zurückgegeben wird und der Übergabewert nicht verändert wird.

Und in XE4 gibt es auch diese Überladungen System.SysUtils.TStringHelper.Split (DocWiki Delphi XE4) somit ist die Diskussion ja schon fast obsolet

[Stevie]

Zitat von Sir Rufo:

Und in XE4 gibt es auch diese Überladungen System.SysUtils.TStringHelper.Split (DocWiki Delphi XE4) somit ist die Diskussion ja schon fast obsolet

Also zumindest in meinem XE6 machen die nicht, was der TE möchte, sondern Count gibt hier nur an, wie viele elemente maximal man im Result haben möchte. Also würde Split([','], 1) nur ein array mit einem Element zugeben, in dem 'Hallo' stünde.

Und übrigens:

Delphi-Quellcode:

meinString := 'Hallo,ich,bin,ein,String';
kommaPos := meinString.IndexOf(',');
teil1 := meinString.Substring(0, kommaPos);
teil2 := meinString.Substring(kommaPos + 1);

[Uwe Raabe]

Zitat von Stevie:

Also zumindest in meinem XE6 machen die nicht, was der TE möchte, sondern Count gibt hier nur an, wie viele elemente maximal man im Result haben möchte. Also würde Split([','], 1) nur ein array mit einem Element zugeben, in dem 'Hallo' stünde.

Wo du recht hast...

[himitsu]

Zitat von Stevie:

Und übrigens:

Delphi-Quellcode:

meinString := 'Hallo,ich,bin,ein,String';
kommaPos := meinString.IndexOf(',');
teil1 := meinString.Substring(0, kommaPos);
teil2 := meinString.Substring(kommaPos + 1);

Sind diese Methoden auch in Win32 0-basierend?

[Dejan Vu]

Zitat von Stevie:

Und übrigens:

Knallts, wenn kein Komma vorhanden ist
Und übrigens: Die Lösung hatten wir schon hier.

Zitat von himitsu:

Jupp, Pos und dann mit Copy den gewünschten Teil rauskopieren, wäre besser.
Split macht nunmal das, wofür es gemacht wurde. -> an allen Delimitern aufteilen.
Ansonsten bräuchte man kein dynamisches Array, als Result, sondern nur 2 Strings.
...

und hier.

Zitat von Dejan Vu:

Bei Ausgrabungen habe ich das hier gefunden. ...

und hier

Zitat von Sir Rufo:

Oder man sucht einfach nach dem ersten Vorkommen des Trennzeichens (Komma) und trennt an der Stelle den String einfach auf.

Wollen wir das Thema wechseln?

[Stevie]

Zitat von Dejan Vu:

Zitat von Stevie:

Und übrigens:

Knallts, wenn kein Komma vorhanden ist

Täts auch im Code, den der TE gepostet hat.
Ich trau ihm aber zu, ein if zu schreiben, was kommaPos überprüft...

Zitat von Dejan Vu:

Und übrigens: Die Lösung hatten wir schon hier.

Das muss wohl in der ganzen Metadiskussion untergegangen sein.
Ich dachte aber, ich poste das nochmal mit Verwendung der entsprechenden TStringHelper Methoden, denn:

Zitat von himitsu:

Sind diese Methoden auch in Win32 0-basierend?

Ja

Zitat von Dejan Vu:

Wollen wir das Thema wechseln?

Genau! back to OT

[sx2008]

Zitat von Dejan Vu:

... und meine preisverdächtigen und zum Patent angemeldeten Code.

Das sieht aber schlecht für Dich aus weil folgende Funktion ist schon Open Source

Delphi-Quellcode:

function StrToken(var S: string; Separator: Char): string; // kopiert aus der JCL
var
  I: Integer;
begin
  I := Pos(Separator, S);
  if I <> 0 then
  begin
    Result := Copy(S, 1, I - 1);
    Delete(S, 1, I);
  end
  else
  begin
    Result := S;
    S := '';
  end;
end;

[himitsu]

Gibt es im Delphi uch, nur hat man das seit Jahrzehnten vergessen öffentlich zur Verfügung zu stellen.
z.B. siehe die Behandlung von ParamStr

Man stelle sich mal vor die würden wichtige Dinnge offenlegen, dann würden z.B. alle Programme, welche einen Pascal-Parser benötigen plötzlich endlich mal enheitlich abeiten können und würden nicht jedesmal abrauchen, wenn Emba etwas neues in die Sprache einführt.


DokuInsight raucht bei den kleinsten Problemen ab.
Und CnPack ist auch grauenhaft (vorallem in einem langsamen RDP).

[Dejan Vu]

Zitat von sx2008:

Das sieht aber schlecht für Dich aus weil folgende Funktion ist schon Open Source

Das ist ein drittklassiges Plagiat, alleine schon wegen der dilettantischen Verwendung von 'Delete', und dann diese Codekomposition (oh Graus), und dann auch nur ein 'Char' als Trenner. Nee, also. Nee. (Wieso gibt es kein Smiley, welches sich den rechten Handrücken an die Stirn hält und den Kopf nach links oben dreht?)

Ich melde zudem prior art an. Ich kann belegen, das dieser Code im Jahr 1979 in kommerziellen Programmen Verwendung gefunden hat. Es wäre nicht das erste Mal, das sich die Opensource-Gemeinde schadlos an nicht freigegebenen Code gehalten hat. Ich sage nur: 'Schöpfungshöhe' U..u..und Embarcadero wird auch in Grund und Boden geklagt.

Reich! Reich! Ich werde reich!