Question

delphi 里面的 List: TStringList; 如何去替换其中的某个值

Answer 1

var
list: TStringList;
idx: Integer;
i: Integer;
begin
list := tstringlist.Create;
list.Add('a');
list.Add('b');
list.Add('c');
idx := list.indexof('a');//这个地方要增加判断idx是不是-1
list.Delete(idx);
list.Insert(idx,'d');
end;
//===============可以封装到一个方法里
function replace(var list:TStringList; a, b: string): Boolean;
var
idx: Integer;
begin
Result := False;
if not Assigned(list) then Exit;
idx := list.indexof(a);
if idx>-1 then
begin
list.Delete(idx);
list.Insert(idx,b);
Result := True;
end;
end;
//=============还可以这样做
function replace2(var list: TStringList; a, b: string): Boolean;
var
idx: Integer;
begin
Result := False;
if not Assigned(list) then Exit;
idx := list.indexof(a);
if idx>-1 then
begin
list.Strings[idx]:= b;
Result := True;
end;
end;

追问

大侠，这个只能替换为A的那一行，比如提示SAAA，就替换不了啦，有没有QQ可以联系哈