Q :--Delphi裡去掉字符串中空格的函數是什麼?
Re:
Trim()去掉字符串左右兩邊的空格和控制符,它的使用語法如下:
function Trim(const S: string): string;
TrimLeft()用於去除字符串左邊的空格,它的使用方法如下:
function TrimLeft(const S: string): string;
TrimRight()用於去除字符串右邊的空格,它的使用方法如下:
function TrimRight(const S: string): string;
如果要去除字符串中間的空格就需要自己寫程序來實現了,下面提供了一種方法,其主要思路是利用Pos()函數得到空格所在整個字符串中的位置,然後以此位置為界把整個字符串分別存到兩個變量中,然後Trim掉有空格的那一部分,在把兩個字符串合並,然後重復上述過程,直到Pos()函數返回0也就是沒有找到空格為止。
Q :--Delphi中如何得到程序的路徑?
Re:
使用如下的語句即可:
ExtractFilePath(Application.ExeName)
ExtractFileDir(Application.Exename)
它們分別用來獲取應用程序的路徑名,但前者其結尾字符總是“\”;而後者不返回“\”;除非是在根目錄下,程序舉例如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ExtractFileDir(Application.Exename)); // 如: c:\temp
ShowMessage(ExtractFilePath(Application.Exename)); // 如: c:\temp\
end;
Q :--Delphi中怎麼將實數取整?
Re:
floor 和 ceil 是 math unit 裡的函數,使用前要先 Uses Math。
trunc 和 round 是 system unit 裡的函數,缺省就可以用。
floor 直接往小的取,比如 floor(-123.55)=-124,floor(123.55)=123
trunc 直接切下整數,比如 trunc(-123.55)=-123, floor(123.55)=123
ceil 直接往大的取,比如 ceil(-123.55)=-123, ceil(123.55)=124
round 計算四捨五入,比如 round(-123.55)=-124,round(123.55)=124