String nach Komma löschen

[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