Перейти к содержанию

Delphi/Перевод переменных

Материал из Викиучебника — открытых книг для открытого мира

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