2memos vergleichen und unterschiede in 3.memo

[PierreB]

Hier mal ein paar einfache Sachen:

Delphi-Quellcode:

//Vergleiche Zeilenanzahl
function GetCounts(Control1, Control2, Control3 : TMemo) : Boolean;
begin
if Control1.lines.count-1 <> Control2.lines.count-1 then begin
Control3.lines.add('Memo 1 Zeilenanzahl: ' + IntToStr(Control1.lines.count-1));
Control3.lines.add('Memo 2 Zeilenanzahl: ' + IntToStr(Control2.lines.count-1));
end;
end;

//Aufruf:
GetCounts(Memo1, Memo2, Memo3);

//Dann könntest du grob den Inhalt der Zeilen vergleichen
function Vergleiche(Control1, Control2, Control3 : TMemo) : Boolean;
var
i, a : Integer;
begin
if Control1.lines.count-1 > Control2.lines.count-1 then a := Control1.lines.count-1
else a := Control2.lines.count-1;
for i := 0 to a do begin
if not Control1.lines[i] = Control2.lines.[i] then 
Control3.lines.add('Memo 2 Unterschied: ' + Control1.lines[i]);
end;
end;

//Aufruf:
Vergleiche(Memo1, Memo2, Memo3);

//

Sind nur ein paar Ideen schnell mal getippt, nicht geprüft obs geht.
Is erstmal nur ein kleiner Ansatz, vielleicht hilfts dir aber ein bisschen.