[dudila]

expression expected but 'TNEN' found

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

Код:

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<>
 then A:=StrToFloatLabeledEdit1.Text)
      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 найден а нужен аргумент:

Код:

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

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

Код:

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

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

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

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

[dudila]

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