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 ?
