フォームに 2 つの編集ボックスがあります。1 つは最小値用、もう 1 つはユーザーが入力する必要がある最大値用です。ユーザーが値を入力しているときに発生する可能性のあるエラーをキャッチしたい。考えられるエラーの 1 つは、最大値が最小値より小さいことです。これが発生した場合、エラー メッセージが表示されます。ただし、ユーザーが最小ボックスに 5 を入力し、最大ボックスに 100 を入力したい場合でも、ユーザーが既に最大ボックスに 100 の「1」を入力している場合でも、エラー メッセージが表示されます。 min ボックスに 5 を入力しました。エラー メッセージが表示される前に、ユーザーが値全体を入力できるようにするにはどうすればよいですか?
これが私のコードです（他のエラーもキャッチしますが、最大 < 最小エラーのみが影響を受けるようです）：
procedure TfrmAnalysisOptions.lbleConstraintsMaxChange(Sender: TObject);
var
I: integer;
Val, ValidEntry: string;
Chr: char;
RangeMin, RangeMax: Double;
const Allowed = ['0'..'9', '.'];
begin
Val := lbleConstraintsMax.Text;
//initialize values
ValidEntry := '';
ConstraintsMaxChange := '';
//value can contain only numerals, and "."
for I := 1 to Length(Val) do
begin
Chr := Val[I];
if not (Chr in Allowed) then
begin
MessageDlgPos('The value entered for the max value of the ' +
'constraint must contain only a numeral, a decimal ' +
'point or a negative sign.',
mtError, [mbOK], 0, 300, 300);
Exit;
end
else ValidEntry := 'OK'; //validity check for this part
end;
//max value cannot be zero or less than the min value
if not TryStrToFloat(Val, RangeMax) then Exit
else if RangeMax = 0 then
begin
MessageDlg('Max value cannot be zero.', mtError, [mbOK], 0);
Exit;
end
else if not TryStrToFloat(lbleConstraintsMin.Text, RangeMin) then Exit
else if RangeMax < RangeMin then
begin
MessageDlgPos('Max value cannot be less than Min value.',
mtError, [mbOK], 0, 300, 300);
Exit;
end
else if (RangeMax < 0) then
begin
MessageDlgPos('A constraint cannot be negative.',
mtError, [mbOK], 0, 300, 300);
Exit;
end
//final validity check
else if ValidEntry = 'OK' then ConstraintsMaxChange := 'OK'
else MessageDlgPos('There was an unexpected problem with the ' +
'value entered in the max constraints box.',
mtError, [mbOK], 0, 300, 300);
end;