Вычисление квадратного корня в Delphi

[TaYgA]

Всем доброго времени суток. При написания кода калькулятора возникла ошибка. Помоему всё написано правельно, из-за чего она я не понимаю...

var 
    valResultado: Real;
............................................................................
if (valResultado>=0) then valResultado:=sqrt(valResultado);

Ошибка у казывает на скобки рядом с командой sqrt и пишет:

[Error] CodeCalculator.pas(667): Missing operator or semicolon

Что ему не нравится подскажите пожалуйста....

[NeshSoft]

У меня работает, писал так:

procedure TForm1.Button1Click(Sender: TObject);
var valResultado:real;
begin
valResultado:=12.5;
if (valResultado>=0) then valResultado:=sqrt(valResultado);
ShowMessage(FloatToStr(valResultado));
end;

Попробуйте закомментарить строчку if (valResultado>=0) then valResultado:=sqrt(valResultado); и посмотреть что будет

[TaYgA]

Попробуйте закомментарить строчку if (valResultado>=0) then valResultado:=sqrt(valResultado); и посмотреть что будет

Без этой строчки всё работает отлично. Сделал калькулятор из стандартных компонентов с тем же кодом, тоже всё рабоет. Решил переделать с использованием компонентов BussionsSkinForm. Прога начала ругаться на эту строчку Неужели из-за использования этих компонентов?!?! Кидаю свой проект, может кто найдёт в чём косяк....

[NeshSoft]

Сообщение от TaYgA

Сделал калькулятор из стандартных компонентов с тем же кодом, тоже всё рабоет. Решил переделать с использованием компонентов BussionsSkinForm. Прога начала ругаться на эту строчку Неужели из-за использования этих компонентов?!?!

Ну если все так, как говорите - то, думаю ответ очевиден.

А для чего используете нестандартные компоненты? Не вижу в калькуляторе ничего такого, что нельзя сделать на базе стандартных компонент. Вообще думаю, чужие компоненты следуют использовать только если на базе стандартных сделать не представляется возможным.

[TaYgA]

NeshSoft, эти компаненты предназначены для потдежки скинов. С этими компанентами прога выглядит не такой серой и угрюмой....

Значит буду искать другие ходы... Спасибо за помощь

[NeshSoft]

Серой и угрюмой

Попробуйте поставить на форму компонент XPManifest - помоему он так называется. Стандартный компонент.

[TaYgA]

Спасибо за совет, но я уже начал делать спомощью этих компонентов. Всё заново начинать это западло.... Буду искать другие ходы

[NeshSoft]

Сообщение от TaYgA

Спасибо за совет, но я уже начал делать спомощью этих компонентов. Всё заново начинать это западло.... Буду искать другие ходы

Вы говорили, что пробовали сделать это с помощью стандартных компонентов и работало. Дак именно в этот проект просто добавить на форму указанный мной компонент - и все! Даже свойства ни где менять не нужно - внешний вид автоматом преобразиться.

[TaYgA]

NeshSoft, у меня проект настроен так, чтоб пользователь сам мог выбирать оформления программы т.е. есть 5-6 скинов, а пользователь выбирает какой ему больше по нраву

[Alex Cones]

N:=StrToInt(Edit1.Caption)