Delphi/Перевод переменных: различия между версиями

90 байт добавлено ,  7 месяцев назад
м
<source> -> <syntaxhighlight> (phab:T237267)
м (<source> -> <syntaxhighlight> (phab:T237267))
 
нужно изменить его свойство Text. Что написано в Text, то отобразится в самом Edit’e. Тип свойтсва Text — string. Как отобразить число в Edit’e?
Все очень просто. Существует команда <code>IntToStr</code>. Давайте мы её разберем.
<sourcesyntaxhighlight lang="delphi">
IntToStr(<переменная, которую надо перевести>);
</syntaxhighlight>
</source>
Чтобы изменить свойство Text, нужно его «назвать». Общий вид вызова свойства какого-либо компонента имеет вид:
<sourcesyntaxhighlight lang="delphi">
<имя компонента>.<свойство>
</syntaxhighlight>
</source>
Теперь напишем простую программу, которая переводит переменную типа '''integer''' в тип '''string'''.
<sourcesyntaxhighlight lang="delphi">
procedure TForm1.Button1Click(Sender: TObject);
var ch: integer;
Edit1.Text := IntToStr(ch);
end;
</syntaxhighlight>
</source>
А как отобразить дробное число в Edit’e? Также как с целым числом, только команда другая — <code>FloatToStr</code>.
Напишем такую же программу, только вместо integer — real.
<sourcesyntaxhighlight lang="delphi">
procedure TForm1.Button1Click(Sender: TObject);
var ch: real;
Edit1.Text := FloatToStr(ch);
end;
</syntaxhighlight>
</source>
Теперь усложним нашу программу — теперь она будет складывать числа в 2-х Edit’ах, а показывать результат в Edit 3-й. У вас появился вопрос: «Как сложить два числа из Edit’a?» Нужна обратная команда — <code>StrToInt</code>, она переводит string в integer.
<sourcesyntaxhighlight lang="delphi">
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
end;
</syntaxhighlight>
</source>
Но мы поступили хитро — мы не использовали ни одной переменной. Можно было использовать их, но так было сложней.
И напоследок про команду — <code>StrToFloat</code>, такая же как предыдущая, только вместо integer — real. <br /> <br />
583

правки