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