一个简单问题

Question

现有一字符串，中空有空格，编一程序把中间的空格给除出，例如：This is a book.  运行后为Thisisabook.

Answer 1

//这是一个字符串替换过程: 
//txt是整个字符串 
//ss是待替换的子字符串 
//ds是目标子字符串 
procedure stringreplace(var txt:string;const ss,ds:string); 
var 
p:integer; 
begin 
While pos(ss,txt) ＞ 0 do 
//注意,这里用了全角的大于号,copy后应该修改 
begin 
p := pos(ss,txt); 
delete(txt,p,length(ss)); 
insert(ds,txt,p); 
end; 
end; 
//可以像这样用: 
... 
memo1.lines.loadformfile('abc.html'); 
txt := memo1.text; 
stringreplace(txt,'img','ime'); 
memo1.text := txt; 
memo1.lines.savetofile('abc.html'); 
//这样就把abc.html里面所有的'img'都换成了'ime'

Answer 2

DELPHI SysUtils单元中有StringRepleaseTReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags):

Answer 3

s := 'This is a book';
StringReplace(s, ' ', '', [rfReplaceAll]);

Answer 4

// 说明: 将mStr 中的 mOld 替换为 mNew;
function ReplaceChar(const mStr: string; const mOld, mNew: Char): string;
var
  i: Integer;
  vStr: string;
begin
  vStr := mStr;
  for i := 0 to Length(vStr) do
    if vStr[i] = mOld then vStr[i] := mNew;
  Result := vStr;
end;

Answer 5

你就做个循环，一个字符一个字符的取如果＝“”　then就什么也不做,else　就放在一个这量里不就行了吗