Question

delphi如何对两个Memo1（50条记录）Memo2（60条记录）中的数据进行比较,把不同的值用listview1显示出来？

并使listview1不显示Memo1和Memo2中的空记录。
我主要是想知道怎么在ListView1中分别显示Memo的不同信息内容，
ListView1显示方式如下：

Answer 1

var
i,j : Integer;
tmpStr1,tmpStr2 : string;
flag : Boolean;
begin
//
for i := 0 to Memo1.Lines.Count - 1 do
begin
flag := False;
tmpStr1 := Memo1.Lines[i] ;
if Trim(tmpStr1) <> '' then
begin
for j := 0 to Memo2.Lines.Count - 1 do
begin
tmpStr2 := Memo2.Lines[j];
if tmpStr1 = tmpStr2 then
begin
flag := True;
Break;
end;
end;
if not flag then
ListView1.AddItem(tmpStr1,nil);
end;
end;

for i := 0 to Memo2.Lines.Count - 1 do
begin
flag := False;
tmpStr1 := Memo2.Lines[i] ;
if Trim(tmpStr1) <> '' then
begin
for j := 0 to Memo1.Lines.Count - 1 do
begin
tmpStr2 := Memo1.Lines[j];
if tmpStr1 = tmpStr2 then
begin
flag := True;
Break;
end;
end;
if not flag then
ListView1.AddItem(tmpStr1,nil);
end;
end;

追问

能否帮我解决ListView1的显示问题？

追答

你把
ListView1.AddItem(tmpStr1,nil);
这行代码稍稍调整一下 就可以实现你想要的.
建议你自己试试.

Answer 2

为什么要用ListView，用stringGrid不是很好么？
你这个又不需要树形结构