Скачать: CL | DM;

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) равны нулю
Не могут они быть "равны" нулю. Это функции, они могут возвращать ноль.

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


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

---

← →
Рамиль ©   (2006-02-03 11:12) [7]

var
 IntValue: integer;

....

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

---

← →
Рамиль ©   (2006-02-03 11:13) [8]

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

---

← →
Ega23 ©   (2006-02-03 11:15) [9]


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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.023 c