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