IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Из числа - в слово
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


Здравствуйте.
Возник такой вопрос. Нужно перевести число в слово. Например я ввожу 5, мне соответствено выведут - пять.

Вопрос состоит не в самой реализации, а в ситаксисе кода.
Если я делаю так все работает.

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='5' then Edit2.Text:='пять';
//--//
end;


Вопрос! Как заставить case извлекать значение из компонента TEdit?
Напримере такого:

procedure TForm1.Button1Click(Sender: TObject);
var
y:string;
begin
case Edit1.Text of
'5': y:='пять';
//--//
end;
Edit2.Text:=y;
end;


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата
Как заставить case извлекать значение из компонента TEdit?
Вообще-то в DRKB есть модули, которые это делают...

Если очень просто - тогда:

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
case StrToIntDef(Edit1.Text, -MaxInt) of // если в Edit1 не число - вернет -MaxInt
1: s := 'один';
2: s := 'два';
3: s := 'три';
// ...

-MaxInt: s := 'Не число'
end;
Edit2.Text := s;
end;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


Спасибо cool.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 6.12.2020 1:29
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name