1 : 請問如何將主檔名和副檔名分離 ? 我找了Help中只有關於副檔名的(ExtractFileExt),但找不到有關主檔名的部份. 2 : 請問如何將檔名的第一個字大寫? 謝謝 !

1. 一個怪招 
ShowMessage(StringReplace(ExtractFileName('c:\WINNT\welcome.exe'), ExtractFileExt('c:\WINNT\welcome.exe'), '', [rfIgnoreCase]));    2. 另一個怪招
   Str := 'welcome';
   Str[1] := UpperCase(Str[1])[1];
   ShowMessage(Str);

------


我不是高手, 高手是正在銀幕前微笑的人.

1 : 請問如何將主檔名和副檔名分離 ?     我找了Help中只有關於副檔名的(ExtractFileExt),但找不到有關主檔名的部份. 你可以這樣子做 Main:= Copy(FileName,1,Pos('.',ExtractFileExt(FileName))-1); 2 : 請問如何將檔名的第一個字大寫? Main:= UpperCase(FileName[1]) Copy(FileName,2,Length(FileName)); 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

Win32的名字很複雜可以有file1.file1.file1.html這樣的名字 所以還是用

謝謝各位,問題已經解決了.

引言: 謝謝各位,問題已經解決了.

kiss999: 既然 已經將問題解決了,那就應該將此主題結案阿