Delphi выдает аномальную ошибку с Memo, не понимаю в чем дело (

[Antidelphik_)]

текст программы:

var Xmin,Xmax,h:real;
begin
try
Xmin:=StrToFloat(LabeledEdit1.Text);
Xmax:=StrToFloat(LabeledEdit2.Text);
h:=StrToFloat(LabeledEdit3.Text);
except
MessageDlg('Íåâåðíûå äàííûå',mtError,[mbOK],0);
exit
end;
if Xmax<=Xmin then
begin
MessageDlg('Xmax<Xmin!',mtError,[mbOK],0);
exit
end
end;
Memo1.Lines.Clear;
while Xmin<=Xmax do
begin
Memo1.Lines.Add('sin('+FloatToStr(Xmin,ffFixed,10,4,)+')='+FloatToStr(sin(Xmin),ffFixed,10,4));
Xmin:=Xmin+h;
end
end;


end.

ошибку выдает на Memo1.Lines.Clear; пишет [Error] Unit1.pas(47): Declaration expected but identifier 'Memo1' found что это за ошибка?? Хелп =(


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[MyLastHit]

Вот твой код, только структурированный. Смотри сам в чем у тебя ошибка. См. операторные скобки.

var Xmin,Xmax,h:real;
begin
  try
    Xmin:=StrToFloat(LabeledEdit1.Text) ;
    Xmax:=StrToFloat(LabeledEdit2.Text) ;
    h:=StrToFloat(LabeledEdit3.Text);
  except
    MessageDlg('Iaaa?iua aaiiua',mtError,[mbOK],0);
    exit
  end;
  if Xmax<=Xmin then
  begin
    MessageDlg('Xmax<Xmin!',mtError,[mbOK],0);
    exit
  end
end;
  Memo1.Lines.Clear;
  while Xmin<=Xmax do
  begin
    Memo1.Lines.Add('sin('+FloatToStr(X min,ffFixed,10,4,)+')='+FloatToStr( sin(Xmin),ffFixed,10,4));
    Xmin:=Xmin+h;
  end
end;

Совет: всегда структурируй код, тогда не будет проблем такого рода.

[Antidelphik_)]

MyLastHit, ща будет очень дебильный вопрос...что значит структурированный в этой программе? надо было просто красиво расстояния от полей расставить? )

[MyLastHit]

надо было просто красиво расстояния от полей расставить? )

Yes
Самому же потом приятно читать.

Update: загляните сюда - Tools-Source Formatter-Current File

[Antidelphik_)]

=(''''' всё равно та же ошибка =('''''''''

[MyLastHit]

End удалил? Вот так должно быть:

var Xmin,Xmax,h:real;
begin
  try
    Xmin:=StrToFloat(LabeledEdit1.Text) ;
    Xmax:=StrToFloat(LabeledEdit2.Text) ;
    h:=StrToFloat(LabeledEdit3.Text);
  except
    MessageDlg('Iaaa?iua aaiiua',mtError,[mbOK],0);
    exit
  end;
  if Xmax<=Xmin then
  begin
    MessageDlg('Xmax<Xmin!',mtError,[mbOK],0);
    exit
  end;
  Memo1.Lines.Clear;
  while Xmin<=Xmax do
  begin
    Memo1.Lines.Add('sin('+FloatToStr(X min,ffFixed,10,4,)+')='+FloatToStr( sin(Xmin),ffFixed,10,4));
    Xmin:=Xmin+h;
  end
end;

[Antidelphik_)]

а почему тут begin
MessageDlg('Xmax<Xmin!',mtError,[mbOK],0);
exit
end;
endы же должны быть и после begin и после exit, разве нет?

[MyLastHit]

End ставится в конце подпрограммы и в качестве операторных скобок(закрытие begin, try и тд). А Exit это всего лишь оператор выхода, чтобы выйти из блока операторных скобок не доходя до end. По хорошему они у Вас там вообще не нужны.
читаем тут

[Antidelphik_)]

блин, а в методичке энды после каждого exitа были =) спасибо большое, ошибок намного меньше выдает но в той строке где позиции под целую и дробную часть числа выдаются пишет теперь такую ошибку: [Error] Unit1.pas(49): Too many actual parameters я так понимаю слишком много позиций, уменьшила их блин до 4 и 3 а всё равно то же пишет, не подскажешь в чем тут дело?

[Mad_Cat]

я так понимаю слишком много позиций

Too many actual parameters

слишком много параметров вы передаете в функцию а не позиций)

в той строке где позиции

код покажите этой строчки