如何把ListBox1里的每一行中的"yesterday"字符串改为"tommrow"字符串?

Question

多谢.

Answer 1

var
    strHead,strTail:string;
    strAll,strAll2:string;
for i:=0 to ListBox1.Items.Count-1 do
begin
    strAll:=ListBox1.Items[i];
    if Pos('yesterday',strAll)>0 then
    begin
        strHead:=Copy(strAll,0,pos('yesterday',strAll)-1);
        strTail:=Copy(strAll,pos('yesterday',strAll)+9,length(strAll));
        strAll2:=strHead+'tommrow'+strTail;
        ListBox1.Items[i]:=strAll2;        
    end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  strStrings:TStringList ;
begin
 strStrings:=TStringList.Create;
 try
  strStrings.AddStrings (listbox1.Items);
  strStrings.Text:=StringReplace(strStrings.Text,'yesterday','tommrow',[rfReplaceAll, rfIgnoreCase]);
  listbox1.Items.Clear;
  listbox1.Items.AddStrings(strStrings);
 finally
  strStrings.Free;
 end;
end;//不知道会不会比楼上快

Answer 3

搞这么复杂,直接这样不行吗?
ListBox1.Items.Text := 
  StringReplace(ListBox1.Items.Text,'yesterday','tommrow',[rfReplaceAll, rfIgnoreCase]);

Answer 4

睡眠不够啊。
不知道有StringReplace函数，那就简单多了。