One of a set of tools we're offering as a way to say thank you for being a part of the community.
MsgVar := MessageDlg('Problem found!'+#13#10+#13#10+ 'Click YES to proceed and display each occurence of this.'+#13#10+ 'Click IGNORE to proceed without showing any more occurrences.'+#13#10+ 'Click ABORT to abort this process altogether.', mtWarning, [mbYes,mbIgnore,mbAbort], 0); if MsgVar = mrYes then FoundDiscrepancy[i] := FALSE else if MsgVar = mrIgnore then FoundDiscrepancy[i] := TRUE else EXIT;
Join the community of 500,000 technology professionals and ask your questions.