Edit и КОмпания

← →
MIXER (2006-02-02 23:17) [0]

Мастера! есть ли функция-инструкция для кучи Editов
То есть если в Edit.Text значения не введены то а1,а2 и тд из StrToFloat
(Edit.Text) равны нулю

← →
Gero © (2006-02-02 23:59) [1]

Нормально сформулируй вопрос.

← →
homm © (2006-02-03 00:13) [2]

Расшифруй:

функция-инструкция
функция для кучи
куча Editов
а1,а2 и тд

Насколько мне позволяет вникнуть мой новинький телепатет, ты хочеш что-то типа такого сделать:
for i := 0 to n {размер куча} do a[i]{"a1, a2, и т.д."} := StrToFloat(Edit[i].Text{куча Editов});

Я правильно понял?

← →
SergP © (2006-02-03 00:19) [3]

StrToFloatDef, что-ли ?

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

← →
MIXER (2006-02-03 10:26) [4]

попробую объяснить
последовательно через Enter в Edit1.text,Edit2,text и тд
если в edit2.text,edit5.text значения не введены,то strtoint(edit2.text),strtoint(edit5.text) равны нулю

← →
Гошик Кувшинов (2006-02-03 10:28) [5]

тебе же сказали - strtofloatdef. для интегера есть такая же strtointdef - жми Ф1 и ищи

← →
homm © (2006-02-03 11:00) [6]

>попробую объяснить(точка)
так ?

>попробую объяснить последовательно(точка)
или так ?

>последовательно через Enter в Edit1.text,Edit2,text и тд
Даже поправилам русского языка это словосочитание. Словосочитание не несет смысла.

> strtoint(edit2.text),strtoint(edit5.text) равны нулю
Не могут они быть "равны" нулю. Это функции, они могут возвращать ноль.

Ну и причем здесь то, что их "куча". Разве это как-то влияет на нужное тебе решение?

> А вопрос-то действительно такой, что если бы ты в реале
> меня так спросил, то я бы подумал что ты говорить не умеешь.
Действительно на уровне лет шести.

var
IntValue: integer;

....

if not TryStrToInt(Edit1.Text, IntValue) then IntValue := 0;

правда в таком случае любое не число в Edit будет преобразовано в ноль.

var i, Code, Value : Integer; for i:=0 to ComponentCount-1 do begin if (Components[i] is TEdit) then begin Val(TEdit(Components[i]).Text, Value, Code); if Code<>0 then TEdit(Components[i]).Text:="0"; end; end;

Edit и КОмпания Найти похожие ветки