2个菜鸟问题。

Question

1.删除一个字符串首尾的空格
function    AllTrim(strtmp:String):String;
var s1:String;
begin
  s1:=Strtmp;
  // 去首空格
  WHile True Do begin
    if Copy(s1,1,1)=' ' Then
      delete(s1,1,1)
    else
      Break;
  end;
  // 去尾空格
  WHile True Do begin
    if Copy(s1,length(s1),1)=' ' Then
      delete(s1,length(s1),1)
    else
      Break;
  end;
  Alltrim:=s1
end;2.强烈不要在设计时改变unit名，
unit名是标识这个unit的重要标志
在uses和程序项目文件prj里是十分重要的
如果你任意改动，uses和prj文件里将不会同步修改，告诉十分麻烦的错误

Answer 1

1.
function    AllTrim(strtmp:String):String;
var s1:String;
begin
  s1:=Strtmp;
  WHile True Do begin
    if Copy(s1,1,1)=' ' Then
      delete(s1,1,1) //一个个删除字符串左边空格
    else
      Break; //无空格，跳出循环
  end;
  WHile True Do begin
    if Copy(s1,length(s1),1)=' ' Then //一个个删除字符串右边空格
      delete(s1,length(s1),1)
    else
      Break;
  end;
  Alltrim:=s1 //返回删去左右空格的字符串
end;2.如果你指窗体名，可在窗体属性name内改
  如果指单元文件（*.pas）（你是不是开始时用Unit1保存，现在又想改啊），可以file-->save as...

Answer 2

如果其它文件有用到这个文件，是比较麻烦，得手工改。如果非要改，教你，search-->replace...
呵呵呵to steps(壮丁)
对不起啊，我是贴上去后才看到你的贴的

Answer 3

一、是去掉说有的空格
二、将所有的unit名都改为要改的名称包括工程文件！不要遗漏啊！