Помогите, выбивает такую ошибку : Incompatible types 'String' and 'Extended'??

[Геноцид еклеров]

procedure TForm1.Button1Click(Sender: TObject);
var
L: extended ;
x,y,a,b,n,m,Q1,Q2: string;

begin
  x:=Edit1.Text;
  y:=Edit2.Text;
  L:=strtofloat(Edit3.Text);
  a:=Edit4.Text;
  b:=Edit5.Text;
  Q1:=Edit6.Text;
  Q2:=Edit7.Text;
  n:=x+a;
  m:=y+b;
  Q1:=n*cos(L)-m*sin(L);
  Q2:=m*cos(L)+n*sin(L);

end;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Аватар]

А чего хотел? Строку умножаешь на косинус-синус

[Serge_Bliznykov]

Сообщение от Аватар

троку умножаешь на косинус-синус

самое удивительное в этом кусочке кода,
что переменная L всё таки переводится из строки в число.
Т.е. для неё нужно преобразование в числовой вид.
А почему это не нужно для x,y,a,b - не понятно.
ну и откровенные логические ляпы, когда в переменную Qx читается значение из Edit6/7, а потом оно нигде не используется.


думаю, что планировалось что-то вроде:

procedure TForm1.Button1Click(Sender: TObject);
var
L, x,y,a,b,n,m,Q1,Q2: extended;

begin
  x:=StrToFloat(Edit1.Text);
  y:=StrToFloat(Edit2.Text);
  L:=StrToFloat(Edit3.Text);
  a:=StrToFloat(Edit4.Text);
  b:=StrToFloat(Edit5.Text);
  n:=x+a;
  m:=y+b;
  Q1:=n*cos(L)-m*sin(L);
  Q2:=m*cos(L)+n*sin(L);
  Edit6.Text := FloatToStr(Q1);
  Edit7.Text := FloatToStr(Q2);
end;