in Stringlist Zeichen zu Strings hinzufügen

[marabu]

Guten Morgen,

wie wäre es damit?

Delphi-Quellcode:

function WildStr(const sExtensions: String; hasDot: Boolean = False; delimiter: Char = ','): String;  // edited
begin
  if hasDot
    then Result := '*' + StringReplace(sExtensions, ',', ',*', [rfReplaceAll])
    else Result := '*.' + StringReplace(sExtensions, ',', ',*.', [rfReplaceAll])
end;

Das Prinzip ist das gleiche geblieben.

Freundliche Grüße