23. Mai 2011 12:15
23. Mai 2011 12:35
23. Mai 2011 12:42
23. Mai 2011 13:11
OnAfterGetCurrRecord:
If Feld1 = Feld2 THEN
NEXT;
Table.RESET;
IF Table.FINDSET(FALSE,FALSE) THEN BEGIN
REPEAT
IF Table.Feld1 <> Table.Feld2 THEN BEGIN
Rec := Table;
INSERT(FALSE);
END;
UNTIL Table.NEXT = 0;
END;
23. Mai 2011 13:17
23. Mai 2011 13:17
IF FIND('-') THEN
REPEAT
MARK := Field1 <> Field2;
UNTIL NEXT = 0;
MARKEDONLY := TRUE;
23. Mai 2011 13:46
23. Mai 2011 13:59