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

Материал из Викиучебника — открытых книг для открытого мира
Содержимое удалено Содержимое добавлено
категория
{{BookCat}} и викификация
Строка 1: Строка 1:
Переменные можно перевести из одного типа в другой. Например, нужно в компоненте Edit отобразить число. Чтобы, изменить текст в Edit'e,
Переменные можно перевести из одного типа в другой. Например, нужно в компоненте Edit отобразить число. Чтобы, изменить текст в Edit’e,
нужно изменить его свойство Text. Что написано в Text, то отобразится в самом Edit'e. Тип свойтсва Text - string. Как отобразить число в Edit'e?
нужно изменить его свойство Text. Что написано в Text, то отобразится в самом Edit’e. Тип свойтсва Text — string. Как отобразить число в Edit’e?
Все очень просто. Существует команда <code>IntToStr</code>. Давайте мы её разберем.
Все очень просто. Существует команда <code>IntToStr</code>. Давайте мы её разберем.
<source lang="delphi">
<source lang="delphi">
IntToStr(<переменная, которую надо перевести>);
IntToStr(<переменная, которую надо перевести>);
</source>
</source>
Чтобы изменить свойство Text, нужно его "назвать". Общий вид вызова свойства какого-то компонента:
Чтобы изменить свойство Text, нужно его «назвать». Общий вид вызова свойства какого-то компонента:
<source lang="delphi">
<source lang="delphi">
<имя компонента>.<свойтсво>
<имя компонента>.<свойтсво>
Строка 18: Строка 18:
end;
end;
</source>
</source>
А как отобразить дробное число в Edit'e? Также как с целым числом, только команда другая - <code>FloatToStr</code>.
А как отобразить дробное число в Edit’e? Также как с целым числом, только команда другая — <code>FloatToStr</code>.
Напишем такую же программу, только вместо integer - real.
Напишем такую же программу, только вместо integer — real.
<source lang="delphi">
<source lang="delphi">
procedure TForm1.Button1Click(Sender: TObject);
procedure TForm1.Button1Click(Sender: TObject);
Строка 28: Строка 28:
end;
end;
</source>
</source>
Теперь усложним нашу программу - теперь она будет складывать числа в 2-х Edit'ах, а показывать результат в Edit 3-й. У вас появился вопрос:"Как сложить два числа из Edit'a?" Нужна обратная команда - <code>StrToInt</code>, она переводит string в integer.
Теперь усложним нашу программу — теперь она будет складывать числа в 2-х Edit’ах, а показывать результат в Edit 3-й. У вас появился вопрос: «Как сложить два числа из Edit’a?» Нужна обратная команда — <code>StrToInt</code>, она переводит string в integer.
<source lang="delphi">
<source lang="delphi">
procedure TForm1.Button1Click(Sender: TObject);
procedure TForm1.Button1Click(Sender: TObject);
Строка 35: Строка 35:
end;
end;
</source>
</source>
Но мы поступили хитро - мы не использовали ни одной переменной.Можно было использовать их, но так было сложней.
Но мы поступили хитро — мы не использовали ни одной переменной. Можно было использовать их, но так было сложней.
И напоследок про команду - <code>StrToFloat</code>, такая же как предыдущая, только вместо integer - real. <br /> <br />
И напоследок про команду — <code>StrToFloat</code>, такая же как предыдущая, только вместо integer — real. <br /> <br />
<div align="left"> [[Delphi/Переменные|Урок 3.Переменные]] ← Предыдущий урок</div> <div align="right">Следующий урок → [[Delphi/Условия|Урок 5.Условия]]</div>
<div align="left"> [[Delphi/Переменные|Урок 3.Переменные]] ← Предыдущий урок</div> <div align="right">Следующий урок → [[Delphi/Условия|Урок 5.Условия]]</div>


{{BookCat}}
[[Категория:Delphi]]

Версия от 14:21, 9 сентября 2014

Переменные можно перевести из одного типа в другой. Например, нужно в компоненте 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.

Урок 3.Переменные ← Предыдущий урок
Следующий урок → Урок 5.Условия