[anna-a]

Необходимо чтобы программа показывала какое-либо сообщение об ошибке, если в поле значение введены символы или буквы. Язык делфи
код программы

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls, jpeg, Menus, Buttons;   type   TForm1 = class(TForm)     Edit1: TEdit;     ComboBox1: TComboBox;     ComboBox2: TComboBox;     Edit2: TEdit;     MainMenu1: TMainMenu;     N1: TMenuItem;     N2: TMenuItem;     N3: TMenuItem;     N4: TMenuItem;     Image1: TImage;     Image2: TImage;     BitBtn1: TBitBtn;     BitBtn2: TBitBtn;     BitBtn3: TBitBtn;     Label4: TLabel;     Label5: TLabel;     Label6: TLabel;     Label3: TLabel;     Label1: TLabel;     Label2: TLabel;     Label9: TLabel;     PopupMenu1: TPopupMenu;     N5: TMenuItem;     N6: TMenuItem;     N7: TMenuItem;     procedure N2Click(Sender: TObject);     procedure N4Click(Sender: TObject);     procedure BitBtn1Click(Sender: TObject);     procedure BitBtn3Click(Sender: TObject);     procedure BitBtn2Click(Sender: TObject);     procedure N5Click(Sender: TObject);     procedure N6Click(Sender: TObject);     procedure N7Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1; S,Y,I:Extended;   implementation   {$R *.dfm}   procedure TForm1.N2Click(Sender: TObject); begin CLOSE ; end;   procedure TForm1.N4Click(Sender: TObject); begin ShowMessage('Программа конвертации мер массы.'              +#13#10+'Версия 1.00.0'              +#13#10+'Автор:Борискина Анна'); end;       procedure TForm1.BitBtn1Click(Sender: TObject); begin I:=StrToFloat(Edit1.Text); IF combobox1.Text='Килограмм' THEN Y:=I*1; IF combobox1.Text='Грамм' THEN Y:=I*0.001; IF combobox1.Text='Тонна' THEN Y:=I*1000; IF combobox1.Text='Милиграмм' THEN Y:=I*0.000001; IF combobox1.Text='Фунт' THEN Y:=I*0.45359237; IF combobox1.Text='Гран' THEN Y:=I*0.00006479891; IF combobox1.Text='Унция' THEN Y:=I*0.0283495231;   IF combobox2.Text='Килограмм' THEN S:=Y/1; IF combobox2.Text='Грамм' THEN S:=Y/0.001; IF combobox2.Text='Тонна' THEN S:=Y/1000; IF combobox2.Text='Милиграмм' THEN S:=Y/0.000001; IF combobox2.Text='Фунт' THEN S:=Y/0.45359237; IF combobox2.Text='Гран' THEN S:=Y/0.00006479891; IF combobox2.Text='Унция' THEN S:=Y/0.0283495231;   Edit2.Text:=FloatToStr(S); Label9.Caption:=combobox2.Text; //ShowMessage(combobox1.Text); end;     procedure TForm1.BitBtn3Click(Sender: TObject); begin close; end;   procedure TForm1.BitBtn2Click(Sender: TObject); begin ShowMessage('Программа конвертации мер массы.'              +#13#10+'Версия 1.00.0'              +#13#10+'Автор:Борискина Анна'); end;   procedure TForm1.N5Click(Sender: TObject); begin I:=StrToFloat(Edit1.Text); IF combobox1.Text='Килограмм' THEN Y:=I*1; IF combobox1.Text='Грамм' THEN Y:=I*0.001; IF combobox1.Text='Тонна' THEN Y:=I*1000; IF combobox1.Text='Милиграмм' THEN Y:=I*0.000001; IF combobox1.Text='Фунт' THEN Y:=I*0.45359237; IF combobox1.Text='Гран' THEN Y:=I*0.00006479891; IF combobox1.Text='Унция' THEN Y:=I*0.0283495231;   IF combobox2.Text='Килограмм' THEN S:=Y/1; IF combobox2.Text='Грамм' THEN S:=Y/0.001; IF combobox2.Text='Тонна' THEN S:=Y/1000; IF combobox2.Text='Милиграмм' THEN S:=Y/0.000001; IF combobox2.Text='Фунт' THEN S:=Y/0.45359237; IF combobox2.Text='Гран' THEN S:=Y/0.00006479891; IF combobox2.Text='Унция' THEN S:=Y/0.0283495231;   Edit2.Text:=FloatToStr(S); Label9.Caption:=combobox2.Text; //ShowMessage(combobox1.Text); end;   procedure TForm1.N6Click(Sender: TObject); begin ShowMessage('Программа конвертации мер массы.'              +#13#10+'Версия 1.00.0'              +#13#10+'Автор:Борискина Анна'); end;   procedure TForm1.N7Click(Sender: TObject); begin close; end;   end.

Когда пишу

Код:

1 2 3 4 5 6

begin try I:=StrToFloat(Edit1.Text); except ShowMessage('Неверный ввод значения'); end;

дальше выдает ошибки на все procedure
Как решить проблему? помогите((

[cotseec]

если правильно понимаю

дальше выдает ошибки на все procedure

запускать не из-под IDE (скомпилировать, свернуть IDE, найти экзешник, запустить, протестировать) или лезть в настройки IDE и настраивать обработку ошибок, что не рекомендую

еще можно использовать StrToFloatDef

[v1s2222]

Сообщение от anna-a

Когда пишу

Код:

дальше выдает ошибки на все procedure
Как решить проблему? помогите((

Я так понимаю, ошибка "Statement expected but 'PROCEDURE' found"?
Если да, то в Вашем случае не хватает end 'a.