简单问题，急！！！！

Question

StringReplace(Str, ' ', '', [frReplaceAll]);

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := StringReplace('2001-12-18 00:21:18', ' ', '', [rfReplaceAll]);
//                                                          ~~
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  vStr: string;
begin
  vStr := ' 2001-12-18 00:21:18';
  Delete(vStr, Pos(' ', vStr), 1);
  Caption := vStr;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := StringReplace(' 2001-12-18 00:21:18', ' ', '', []);
end;

Answer 4

假设我的字符串是
Str:='2001-12-18 00:21:18 192.168.0.1';
那我怎么删除第一个空格呢？也就是2001-12-18后面的一个，请赐教

Answer 5

扫描字符串string（如果用中文要用WideString), 遇到' '则处
var 
  i: Integer; MyString: String;
begin
  For i:=0 to Length(MyString)-1 do
  begin
    if MyString[i]=' ' then 
    //Handle it  
  end;
end;