Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
14. Dez 2006
Nicht verzagen.
Hast du bemerkt, dass ich die Signatur von WildStr() umgestellt habe?
var
s: String;
begin
AudioMaskLst.CommaText := WildStr(FileMask);
AudioMaskLst.SaveToFile('ZAudio.txt');
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
14. Dez 2006
Aber sicher hast du den schon:
ShowMessage(WildStr(FileMask));
ShowMessage(WildStr(AudioMask.CommaText, True));
Aus Bequemlichkeit habe ich bei WildStr() die beiden letzten Parameter vertauscht.
Freundliche Grüße
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
14. Dez 2006
Guten Morgen,
wie wäre es damit?
function WildStr(const sExtensions: String; hasDot: Boolean = False; delimiter: Char = ','): String; // edited
begin
if hasDot
then Result := '*' + StringReplace(sExtensions, ',', ',*', )
else Result := '*.' + StringReplace(sExtensions, ',', ',*.', )
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Nov 2006
Hallo,
vielleicht so:
begin
audioMask := TStringList.Create;
audiomask.CommaText := '.' + StringReplace(FileMask, ',', ',.', );
end;