Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Помогите с кодом в Delphi (https://forum.antichat.xyz/showthread.php?t=90105)

blednii 02.11.2008 02:37
Помогите с кодом в Delphi
 
Доброго времени суток.
Имеется такой вот код, с ним проводятся простые мат операции, как сделать чтоб нельзя было вводить ничего кроме цифр и если поля не заполненны не выбивала стандартная ошибка.
Цитата:
' ' 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) 02.11.2008 02:43
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 02.11.2008 02:55
Подмена символов, не являющихся цифрами - хорошее дополнение, хотя описываемую проблему не решает. Кроме этого в приведенном коде, минимально его модифицируя, следует сделать так:
Код:
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 02.11.2008 03:01
Вот это выходит


[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) 02.11.2008 03:06
надо создавать события OnKeyPress для каждого компонента Edit

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

cremator (c) 02.11.2008 03:26
что??? не понял вопрос

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



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

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

cremator (c) 02.11.2008 03:48
сделал так

Код:
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;


Время: 23:19
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице