Давно уже хотел набросать программку для расчёта анкерных болтов…

Да всё времени не хватало… А тут получилось так, что проектов новых нет, времени навалом. Не трафик же тратить… Ну, пошукал по сусекам, нашёл электронный справочник по Delphi7, книжный вариант самоучителя и установочный пакет для оного же! (блин, и откуда он у меня на работе взялся???)

А теперь, собственно, сабдж!
Скажем, имеем мы при объявлении :
var
H: Real;
B: Real;
А непосредственно в коде:
begin
H := StrToFloat(EditH.Text);
B := StrToFloat(EditB.Text);
end;
И, вроде, всё работает, если только не вводим буквы или дробную часть после запятой, а не точки. В противном случае вылетает ошибка…
Видимо, надо ставить проверку типа if input ХЗ = [0..9] or [,] then … else …
Ну, или что-то типа того…
Вот только не могу пока найти правил, как соблюсти синтаксис… И инпут ли? В BASIC когда-то была команда inkey…
Вобщем, шуршу потихоньку)))
Консультировался с Женькой по конструкторской части – тот припух от масштаба задуманного))))

TLС v.0.7.31c

Запись опубликована в рубрике Импортировано с ЛиРу с метками . Добавьте в закладки постоянную ссылку.

Добавить комментарий