Помогите с кодом в Delphi

[blednii]

Доброго времени суток.
Имеется такой вот код, с ним проводятся простые мат операции, как сделать чтоб нельзя было вводить ничего кроме цифр и если поля не заполненны не выбивала стандартная ошибка.
' ' is not a valid integer value

Сам код:


procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='')or (Edit4.Text='') then
ShowMessage('Все поля обязательны к заполнению');
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'')and (Edit4.Text<>'') then
Label9.Caption:='Спасибо за использование!';
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
d:=StrToInt(Edit4.Text);
e:=1-d/100;
f:=b/a*c*e;
g:=b/a*c;
Label6.Caption:=FloatToStr(f);
Label8.Caption:=FloatToStr(g);

end;


Спасибо за внимание.

[cremator (c)]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9']) then key:=#0;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9']) then key:=#0;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9']) then key:=#0;
end;
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9']) then key:=#0;
end;

[begin_end]

Подмена символов, не являющихся цифрами - хорошее дополнение, хотя описываемую проблему не решает. Кроме этого в приведенном коде, минимально его модифицируя, следует сделать так:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'')and (Edit4.Text<>'') then
begin
Label9.Caption:='Спасибо за использование!';
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
d:=StrToInt(Edit4.Text);
e:=1-d/100;
f:=b/a*c*e;
g:=b/a*c;
Label6.Caption:=FloatToStr(f);
Label8.Caption:=FloatToStr(g);
end else ShowMessage('Все поля обязательны к заполнению');
end;Ошибка "' ' is not a valid integer value" в указанном случае более не вылезет, хотя может появиться при вставке любого текста из буфера обмена в поля (м.б. еще дополнительно вводить проверку?).

[blednii]

Вот это выходит


[Error] MainFormUnit.pas(100): Declaration of 'Edit1KeyPress' differs from previous declaration
[Error] MainFormUnit.pas(102): Undeclared identifier: 'key'
[Error] MainFormUnit.pas(104): Declaration of 'Edit2KeyPress' differs from previous declaration
[Error] MainFormUnit.pas(106): Undeclared identifier: 'key'
[Error] MainFormUnit.pas(108): Declaration of 'Edit3KeyPress' differs from previous declaration
[Error] MainFormUnit.pas(110): Undeclared identifier: 'key'
[Error] MainFormUnit.pas(112): Declaration of 'Edit4KeyPress' differs from previous declaration
[Error] MainFormUnit.pas(114): Undeclared identifier: 'key'
[Fatal Error] sellercalc.dpr(11): Could not compile used unit 'MainFormUnit.pas'

[cremator (c)]

надо создавать события OnKeyPress для каждого компонента Edit

[blednii]

И нельзя дать вписывать не цифры ибо это калькулятор, но не выходит цыфры продолжают работать.

[cremator (c)]

что??? не понял вопрос

[blednii]

1. Должны только цифры вписываться
2. С проверкой помогли.



А вот с цифрами всеравно никак не выходит.

[ProTeuS]

юзай компонент дефольный SpinEdit. там уже решена проблема. вводится только цифры + контрорль границ ввода на уровне VCL там в пропертисах устанавливается

[cremator (c)]

сделал так

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var i: integer; str:string;
begin
if (((Key = ord('V')) and (ssCtrl in Shift)) or ((Shift = []) and (Key = VK_INSERT))) then
begin
if Clipboard.HasFormat(CF_TEXT) then
begin
str:=clipboard.AsText;
ClipBoard.Clear;
for i:=1 to length(str) do
begin
case str[i] of #48..#57: clipboard.AsText:=clipboard.AsText+str[i];
end;
key := 0;
end;
end;
end;

end;


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#27,#8]) then key:=#0;
end;
плюс в начале ещё uses ClipBrd;

хотя если тебе не надо ловить числа из буфера то просто можно заменить этим
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin ClipBoard.Clear; end;

[ronald]

Просто перед ' ' попробуй поставить StrToInt

[blednii]

Ronald, посмотри код, эта функция там и так используется.