Delphi 删除字符串首尾空格的实例，过滤字符串，替换字符串，删除指定部位的字符串，具体到本例中，是删除字符串开头和结尾处的空格，本例子其实简单，使用内置的Trim函数即可实现，可当作是Delphi Trim函数的用法演示：
　　procedure TForm1.SpeedButton1Click(Sender: TObject);
　　var
　　 Str : String;
　　begin
　　 Str := ' 你好，朋友！ ';
　　 Edit1.Text := Str;
　　 Edit1.SetFocus;
　　 Edit1.SelectAll;
　　 Edit2.Text := Trim(Edit1.Text);
　　end;