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