怎么把字符串中的空格删除掉

Question

我用copy(edit1.text,3,3)的方法来取得字符串中的字符
比如edit1.text='93945' 时取得的字符串是945
但是如果edit1.text='   45'的时候取得的字符串是' 45'
我只需要空格后的数字，不需要空格。怎样把取得的字符中的空格删除呢。

Answer 1

trim清楚前面的空格，任意空格：
begin
  S := 'sf fds';
  S1 := '';
  for i:= 1 to length(S) do
  begin
    if S[i] <> ' ' then
      S1 := S1 + S[i];
  end;

Answer 2

delphi6.0 uses strutils
procedure TForm1.Button1Click(Sender: TObject);
var S: string;
begin
  S := '  123.5';
  { Convert spaces to zeroes }
  while Pos(' ', S) > 0 do
    S:=leftstr(s, Pos(' ', S) - 1)+rightstr(s, length(s)  - pos(' ',s ) );
  showmessage(s);
end;

Answer 3

这个问题也可以出100分？
trim('   45')

Answer 4

StringReplace(s,#32,'',[rfReplaceAll]);

Answer 5

Trim,
Pos 后再 Delete 等也都可以

Answer 6

用StringReplace(s,#32,'',[rfReplaceAll]);
有英文有汉字也不怕：）

Answer 7

#32------Space   不应该没用吧

Answer 8

stringReplace(s,' ','',[rfReplaceAll])