Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Из числа - в слово

Автор: DocNo 13.09.2008 18:32

Здравствуйте.
Возник такой вопрос. Нужно перевести число в слово. Например я ввожу 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;



Автор: volvo 13.09.2008 23:09

Цитата
Как заставить 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;

Автор: DocNo 16.09.2008 0:13

Спасибо cool.gif