Delphi/Перевод переменных: различия между версиями
ВикиРин (обсуждение | вклад) Новая страница: «Переменные можно перевести из одного типа в другой. Например, нужно в компоненте Edit отоб…» |
(нет различий)
|
Версия от 06:04, 22 августа 2013
Переменные можно перевести из одного типа в другой. Например, нужно в компоненте Edit отобразить число. Чтобы, изменить текст в Edit'e,
нужно изменить его свойство Text. Что написано в Text, то отобразится в самом Edit'e. Тип свойтсва Text - string. Как отобразить число в Edit'e?
Все очень просто. Существует команда IntToStr
. Давайте мы её разберем.
IntToStr(<переменная, которую надо перевести>);
Чтобы изменить свойство Text, нужно его "назвать". Общий вид вызова свойства какого-то компонента:
<имя компонента>.<свойтсво>
Теперь напишем простую программу, которая переводит переменную типа integer в тип string.
procedure TForm1.Button1Click(Sender: TObject);
var ch:integer;
begin
ch:=100;
Edit1.Text:=IntToStr(ch);
end;
А как отобразить дробное число в Edit'e? Также как с целым числом, только команда другая - FloatToStr
.
Напишем такую же программу, только вместо integer - real.
procedure TForm1.Button1Click(Sender: TObject);
var ch:real;
begin
ch:=2.5;
Edit1.Text:=FloatToStr(ch);
end;
Теперь усложним нашу программу - теперь она будет складывать числа в 2-х Edit'ах, а показывать результат в Edit 3-й. У вас появился вопрос:"Как сложить два числа из Edit'a?" Нужна обратная команда - StrToInt
, она переводит string в integer.
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
end;
Но мы поступили хитро - мы не использовали ни одной переменной.Можно было использовать их, но так было сложней.
И напоследок про команду - StrToFloat
, такая же как предыдущая, только вместо integer - real.