Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Edit и КОмпания [D7, XP]

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

Ega23 (2006-02-03 11:15:00) [1]
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;

Рамиль (2006-02-03 11:13:00) [2]
правда в таком случае любое не число в Edit будет преобразовано в ноль.

Рамиль (2006-02-03 11:12:00) [3]
var
IntValue: integer;

....

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

homm (2006-02-03 11:00:00) [4]
>попробую объяснить(точка)
так ?

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

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

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

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

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

Гошик Кувшинов (2006-02-03 10:28:00) [5]
тебе же сказали - strtofloatdef. для интегера есть такая же strtointdef - жми Ф1 и ищи

MIXER (2006-02-03 10:26:00) [6]
попробую объяснить
последовательно через Enter в Edit1.text,Edit2,text и тд
если в edit2.text,edit5.text значения не введены,то strtoint(edit2.text),strtoint(edit5.text) равны нулю

SergP (2006-02-03 00:19:00) [7]
StrToFloatDef, что-ли ?

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

homm (2006-02-03 00:13:00) [8]
Расшифруй:

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

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

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

Gero (2006-02-02 23:59:00) [9]
Нормально сформулируй вопрос.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »