字符串比较问题

gossan 2003-11-28 03:47:10
2个变量动态生成2段字符串,如何比较出这2个字符串之间的不同之处。如str1:='123',str2:='345',最终结果是str3:='1245',谢谢。
...全文
19 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
swayi21 2003-11-28
  • 打赏
  • 举报
回复
private
AList: TStrings;
procedure Decode(const s: string);
swayi21 2003-11-28
  • 打赏
  • 举报
回复
private
AList: TStrings;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
AList := TStringList.Create;
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
AList := nil;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
var
s1, s2, s3: string;
i: Integer;
begin
s1 := '123';
s2 := '23456';
s3 := '654870';
Decode(s1);
Decode(s2);
Decode(s3);
for i := 0 to AList.Count -1 do
ListBox1.Items.Add(AList[i]);
end;

procedure TfrmMain.Decode(const s: string);
var
i, Idx: Integer;
begin
for i := 1 to Length(s) do
begin
Idx := AList.IndexOf(s[i]);
if Idx = -1 then
AList.Add(s[i]);
end;
end;
free007 2003-11-28
  • 打赏
  • 举报
回复
没有内置的函数哦,看来你自己写一个一个字符一个字符地比较的函数吧
Mrkang 2003-11-28
  • 打赏
  • 举报
回复
用截取字符串函数截取str1的字符,然后用截取的字符在str1和str2组成 的集合中判断,如果有把它赋各str3
qhf503 2003-11-28
  • 打赏
  • 举报
回复
我想很难
只能一个字一个字的比较了
hongqi162 2003-11-28
  • 打赏
  • 举报
回复
如果3是str1的结束符,str2的起始符就好办了
free007 2003-11-28
  • 打赏
  • 举报
回复
Delphi有内置的比较函数吧,帮你找找先

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧