[dudila]

expression expected but 'TNEN' found

содержание модуля

Код:

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

unit rab3;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     LabeledEdit1: TLabeledEdit;     LabeledEdit2: TLabeledEdit;     LabeledEdit3: TLabeledEdit;     LabeledEdit4: TLabeledEdit;     Button1: TButton;     procedure LabeledEdit1KeyPress(Sender: TObject; var Key: Char);     procedure LabeledEdit2KeyPress(Sender: TObject; var Key: Char);     procedure LabeledEdit3KeyPress(Sender: TObject; var Key: Char);     procedure Button1Click(Sender: TObject);     procedure LabeledEdit4KeyPress(Sender: TObject; var Key: Char);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char); begin   if not(key in ['0'..'9','+','-',',',#8])       then key:=#0  ; end;   procedure TForm1.LabeledEdit2KeyPress(Sender: TObject; var Key: Char); begin   if not(key in ['0'..'9','+','-',',',#8])        then key:=#0  ; end;   procedure TForm1.LabeledEdit3KeyPress(Sender: TObject; var Key: Char); begin      if not(key in ['0'..'9','+','-',',',#8])         then key:=#0 ; end;   procedure TForm1.Button1Click(Sender: TObject); var A,X,Y,N:Real; begin   if LabeledEdit1.Text<>  <font color="Red">then A:=StrToFloatLabeledEdit1.Text)</font>       else begin Shoemessege('введите A');         exit;         end;   if LabeledEdit2.Text<>     then X:=StrToFloat(LabeledEdit2.Text)       else begin Shoemessege('введите X');         exit;         end;   if LabeledEdit3.Text<>     then   N:=StrToFloat(LabeledEdit3.Text)       else begin Shoemessege('введите N');         exit;         end;   Y:=A*(N*ln(x))+(N*ln(x))/(2*A-5); LabeledEdit4.Text:=FloatToStr(Y); end;   procedure TForm1.LabeledEdit4KeyPress(Sender: TObject; var Key: Char); begin   if not(key in ['0'..'9','+','-',',',#8])        then key:=#0  ; end;   end.

Admin: Пользуемся тегами!

Всю голову сломал, что это, и как с этом справиться?Помогите пожплуйста ,заранее спасибо...!

[friz]

LoL
тебе же прога сама пишет что then найден а нужен аргумент:

Код:

1 2	if LabeledEdit1.Text<> //не равно чему?? then A:=StrToFloatLabeledEdit1.Text)

Скорее всего должно быть так:

Код:

1 2	if LabeledEdit1.Text<>'' then A:=StrToFloatLabeledEdit1.Text)

[Страдалецъ]

Мдаа... Это с какой книжки вы так переписывали? Ошибок тьма.
1. Исправьте неверное сравнение в if (3-штука)
2. Поставьте скобку в A:=StrToFloatLabeledEdit1.Text) (1-штука)
3. Напишите без ошибок Shoemessege('введите X'); (3-штука по 2-ошибка)

Если ошибки победите можно еще оптимизировать код, привязав все ваши Label к одному обработчику события. У вас-же они одинаковые.

[dudila]

Спасибо! просто я с комьпютером вообще на вы,а тут еще и Delphi в универе!