两个StringList能进行比较吗？

冥界3大法王

unit Unit11;


interface


uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls;


type
  TForm11 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form11: TForm11;


implementation


{$R *.dfm}


procedure TForm11.Button1Click(Sender: TObject);
var
  StringList1, StringList2: TStringList;
begin
  StringList1 := TStringList.Create;
  StringList2 := TStringList.Create;
  try
    // 添加字符串到第一个列表
    StringList1.Add('大白补丁');
    StringList1.Add('沙盘');
    StringList1.Add('快速搜索');


    // 添加字符串到第二个列表
    StringList2.Add('大白补丁A');
    StringList2.Add('沙盘');
    StringList2.Add('快速搜索BBB');


    // 比较两个 TStringList
    if StringList1.Equals(StringList2) then   ==============》把这里改成后者列表 是否包含 前者列表之一
      ShowMessage('两个 TStringList 相等')
    else
      ShowMessage('两个 TStringList 不相等');


  finally
    StringList1.Free;
    StringList2.Free;
  end;
end;


end.

a952135763

凭直觉  我估计不行  
Equals 直接比较地址了  不会比较列表数据是否相等

冥界3大法王

a952135763 发表于 2024-9-26 14:33
凭直觉  我估计不行  
Equals 直接比较地址了  不会比较列表数据是否相等

查帮助了，似乎没有直接的方法

homejun

比较它们的text属性

Nettos

我有个想法，你觉得转MD5来比较咋样，如果担心MD5冲突，转哈希来比较值

lovemit

for循环。

lies2014

StringList1, StringList2 定义为 TStrings 就可以了

[Delphi] 纯文本查看 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

unit Unit11;     interface     uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,   System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,   Vcl.StdCtrls;     type   TForm11 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;     var   Form11: TForm11;     implementation     {$R *.dfm}     procedure TForm11.Button1Click(Sender: TObject); var   StringList1, StringList2: TStrings; begin   StringList1 := TStringList.Create;   StringList2 := TStringList.Create;   try     // 添加字符串到第一个列表     StringList1.Add('大白补丁');     StringList1.Add('沙盘');     StringList1.Add('快速搜索');         // 添加字符串到第二个列表     StringList2.Add('大白补丁A');     StringList2.Add('沙盘');     StringList2.Add('快速搜索BBB');         // 比较两个 TStringList     if StringList1.Equals(StringList2) then   ==============》把这里改成后者列表 是否包含 前者列表之一       ShowMessage('两个 TStringList 相等')     else       ShowMessage('两个 TStringList 不相等');       finally     StringList1.Free;     StringList2.Free;   end; end;     end.

冥界3大法王

lies2014 发表于 2024-9-26 15:56
StringList1, StringList2 定义为 TStrings 就可以了

[mw_shl_code=delphi,true]unit Unit11;

怪我没说清，
if 列表1元素  被列表2元素包括，
输出列表2，当前索引值（字串）

lies2014

冥界3大法王 发表于 2024-9-26 16:02
怪我没说清，
if 列表1元素  被列表2元素包括，
输出列表2，当前索引值（字串）

这个可能只有自己实现了

冥界3大法王

lies2014 发表于 2024-9-26 16:16
这个可能只有自己实现了

太好了，那我也就放心了。
总想优化臃肿的代码。
查过帮助，没有该方法。
再把原先的顺一下，就得了。