请问如何取出两个Memo1和Memo2中不相同的字符（列）存到另一Memo3中？(20分)

L

lpc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-20

• #1

各大师：你们好。
请问如何取出两个Memo1和Memo2中不相同的字符（列）存到另一Memo3中？
如：Memo1:
01
02
03
04
05
06
Memo2:
01
02
03
如何把Memo1中与Memo2中不相同的04 05 06取出存入Memo3中
多谢！

 

S

SiWeiLiuLang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-20

• #2

1、同一个MEMO里字符串是否有重复的
2、如果没有，做个嵌套循环，依次比较MEMO1中数据在MEMO2中是否出现过
如有，最后，还要对结果进行唯一化处理

 

S

SiWeiLiuLang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-20

• #3

属性：：：LINES

 

R

royal1442

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-20

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to Memo1.Lines.Count -1 do
begin
if Memo2.Lines.IndexOf(Memo1.Lines.Strings) = -1 then //如果在2中不存在
begin
if Memo3.Lines.IndexOf(Memo1.Lines.Strings) = -1 then //如果在3中不存在
Memo3.Lines.Add(Memo1.Lines.Strings);
end;
end;
end;

 

L

lpc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-02

• #5

多谢