Delphi Tips (tips0018)

[文字列の前後の空白を除去する ]

文字列の先頭，終端，または両方の空白を削除します。

【ソースコード】　[tips0018.pas]

program tips0018;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
 str:String;

begin
 str:='   Hello  World   ';
 WriteLn('文字列「' + str + '」の');
 WriteLn('　左端のスペースを削除すると「' + TrimLeft(str) +   '」です。');
 WriteLn('　右端のスペースを削除すると「' + TrimRight(str) +   '」です。');
 WriteLn('　両端のスペースを削除すると「' + Trim(str) +     '」です。');
 
end.

【コンパイル＆実行】　[tips0018.bat]

dcc32 tips0018.pas 
tips0018.exe  > tips0018.txt
pause

【実行結果】　[tips0018.txt]

文字列「   Hello  World   」の
　左端のスペースを削除すると「Hello  World   」です。
　右端のスペースを削除すると「   Hello  World」です。
　両端のスペースを削除すると「Hello  World」です。