in Stringlist Zeichen zu Strings hinzufügen

[bluescreen25]

Zitat von marabu:

Guten Morgen,

wie wäre es damit?

Delphi-Quellcode:

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

Das Prinzip ist das gleiche geblieben.

Freundliche Grüße

Guten Morgen !

den String habe ich ja noch nicht, nur die Items der Stringlist, aus denen ich erst den String inklusive der Zeichen zusammenasetzen will.

Gruß,bluescreen25