単純な置き換えならStrUtilsユニットのAnsiReplaceStrで。
// 文字列中の'%filename%'をFileName(拡張子除く)と置き換え s := AnsiReplaceStr(s, '%filename%', AnsiReplaceStr(ExtractFileName(FileName), ExtractFileExt(FileName), ''));
Name (required)
Mail (will not be published) (required)
Website
Leave a Reply