2memos vergleichen und unterschiede in 3.memo

[PierreB]

Zitat von JWeis:

@pierre: if Memo1.Lines.Text = Memo2.Lines.text then so überprüfe ich schon die zeilen anzahl! warum soll ich mir das dan noch umständlicher machen??

Damit überprüfst du nicht die Zeilenanzahl, sondern den gesamten Text aller Zeilen.

Zitat von JWeis:

@teron: ja genau das will ich machen doch leider weiß ich nicht wie ich damit anfangen soll. ich wollte eigentlich schon buchstabenweise vorgehen oder wäre es zeilenweise einfacher??

Ich habe doch den Code für das zeilenweise Überprüfen bereits oben gepostet.

Delphi-Quellcode:

//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);

Damit gehts du erstmal die Zeilen durch und überprüfst ob die gleich sind, wenn nicht wirds in Memo3 geschrieben.

Btw: Für was mach ich mir eigentlich die Arbeit wenns niemand für voll nimmt ?