String nach Komma löschen

[norbert3]

Hallo Leute,
ich als Delphi-Neuling stehe total auf dem Schlauch!

Ich habe einen zusammengesetzten String und möchte nach dem Komma (inkl. komma) alles löschen.

Wie bekomme ich so was hin?? :wall:

Delphi-Quellcode:

s := DataSet['Familienname']; //Mustermann, M.
  SetLength(s, Length(s) - 4); //letzten 4 Zeichen abschneiden

Bisher habe ich die letzten 4 Zeichen abgeschnitten. Aber das ist ja nicht immer gleich.

Danke im voraus!!
Mfg Norbert

[CK_CK]

Delphi-Quellcode:

var s,r: String;
{...}
s := 'Günter, Hans';
i := 1;
r := '';
while s[i] <> ',' do begin r := r + s[i]; inc(i); end;
//in dem String "r" steht jetzt alles vor dem Komma...

Viel Spaß damit :stupid:

EDIT: ALLEINHERRSCHER's Lösung ist besser ;)

[alleinherrscher]

Hi Norbert!

Am schnellsten und einfachsten ist das hier:

Delphi-Quellcode:

s := 'Familienname'; //Mustermann, M.
s := copy(s,1,pos(',',s));

//copy kopiert aus dem String s vom 1 ten Zeichen bis zum Komma pos(',',s) alle zeichen des Strings ;)

Hoffe ich habe keine Fehler eingebaut ;)

Schöne Grüße und viel Spass mit Delphi :) Denk dran: Delphi rulz!

[marabu]

Hallo Norbert,

so könnte es funktionieren:

Delphi-Quellcode:

s := VarToStr(DataSet['Familienname']);  // Mustermann, M.
i := Pos(',', s);
if i > 0 then
  SetLength(s, Pred(i));

Grüße vom marabu

[norbert3]

Hey Leute, vielen Dank. Ihr seid ja schneller wie die Feuerwehr!! :mrgreen: :mrgreen:

Mfg Norbert

[inherited]

warum nicht einfach

Delphi-Quellcode:

s:='DP rul0rt,nicht'
Delete(s, pos(',', s), Length(s));

[alleinherrscher]

Zitat:

Zitat von inherited

warum nicht einfach

Delphi-Quellcode:

s:='DP rul0rt,nicht'
Delete(s, pos(',', s), Length(s));

LOL! Viele Wege führen nach Rom!

[Hawkeye219]

Zitat:

Zitat von alleinherrscher

LOL! Viele Wege führen nach Rom!

Aber marabu wird als einziger dort immer ankommen...

Gruß Hawkeye

[inherited]

schleimer -.-

[Hawkeye219]

Könnte man es nicht auch als Hinweis auf mögliche Probleme bei allen anderen Lösungen verstehen?