142
правки
Oleg3280 (обсуждение | вклад) ({{BookCat}} и викификация) |
Putnik (обсуждение | вклад) (орфография, code style) |
||
Чтобы изменить свойство Text, нужно его «назвать». Общий вид вызова свойства какого-то компонента:
<source lang="delphi">
<имя компонента>.<
</source>
Теперь напишем простую программу, которая переводит переменную типа '''integer''' в тип '''string'''.
<source lang="delphi">
procedure TForm1.Button1Click(Sender: TObject);
var ch: integer;
begin
ch := 100;
Edit1.Text := IntToStr(ch);
end;
</source>
<source lang="delphi">
procedure TForm1.Button1Click(Sender: TObject);
var ch: real;
begin
ch := 2.5;
Edit1.Text := FloatToStr(ch);
end;
</source>
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
end;
</source>
|
правки