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.