各位大大…目前想要在程式中，將2個MEMO裡的字串比對並取出後存在.CSV檔，想請各位大大幫忙，謝謝。


MEMO1 MEMO2
1= 1345 1=222
2= 436 2=567

取出後為：
1= 1345,222
2=436,567

善用元件的特性, 請自行用BCB改寫

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
I, J: Integer;
L1, L2, L3: TStringList;
Key, Value: string;
begin
L1 := TStringList.Create;
L2 := TStringList.Create;
L3 := TStringList.Create;
try
L1.Text := Memo1.Lines.Text;
L2.Text := Memo2.Lines.Text;
for I := 0 to L1.Count-1 do
begin
Key := L1.Names[I];
Value := L1.Values[Key];
for J := 0 to L2.Count-1 do
if Key = L2.Names[J] then
Value := Value ',' L2.Values[Key];
L3.Values[Key] := Value;
end;
Memo3.Lines.Text := L3.Text;
L3.SaveToFile('D:\RESULT.TXT');
finally
FreeAndNil(L3);
FreeAndNil(L2);
FreeAndNil(L1);
end;
end;
[/code]

謝謝你的幫忙！