Консультация № 32839
07.01.2006, 19:54
0.00 руб.
0 5 5
Здравствуйте,уважаемые эксперты. Я только начинаю изучать делфию
У меня такой вопрос. Как Вводить текст в Edit из переменной и как вводить.

Обсуждение

Неизвестный
07.01.2006, 20:14
общий
это ответ
Здравствуйте, Ua4aqc!
у Edit есть свойство Text типа string (строка)
Вы можете присваивать ему значения
Пример работы в приложении
Вы можете делать это при нажатии на кнопку
или при событии Edit OnChange
Надеюсь, помог вам.

Приложение:
var s:string;i:extended;beginedit1.text:=s;edit1.text:=floattostr(i);i:=strtofloat(edit1.text);s:=edit1.text;end;
Неизвестный
07.01.2006, 22:05
общий
это ответ
Здравствуйте, Ua4aqc!
Вот так присваивать переменной значение из TEdit:
<b>Var S: String; X: Integer; Z: Real;
...
S:=Edit1.Text;
X:=StrToInt(Edit1.Text);
Z:=StrToFloat(Edit1.Text);</b>
А вот так помещать текст в TEdit из переменных:
<b>Var S: String; X: Integer; Z: Real;
...
Edit1.Text:=S;
Edit1.Text:=IntToStr(X);
Edit1.Text:=FloatToStr(Z);</b>
Неизвестный
08.01.2006, 07:12
общий
это ответ
Здравствуйте, Ua4aqc!
У компонента Edit есть свойство Text, которое позволяет делат с текстом в Edit что хочешь (тип String). Например:
Передать текст Edit-у: form1.edit1.text:=str;
Получить текст из Edit-а: str:=form1.edit1.text;
Если тебе нужно показать в Edit значения переменных целого типа (integer, longint), то нужно их преобразовать в String: astr:=inttostr(a); Если получить из string в целый тип - a:=strtoint(astr);
Неизвестный
08.01.2006, 10:43
общий
это ответ
Здравствуйте, Ua4aqc!
Edit имеет свойтво text типа string, в котором хранится строка введённая (отображаемая) в Edite. С этим свойством можно производить все (ну или почти все), что и с обычными строками. Для того чтобы изменить текст надо просто присвоить новое значение: <b>Edit1.Text:=‘Новое значение‘</b>. Для того чтобы получить введённый текст надо просто взять значение свойства Text: <b>s:=Edit1.Text</b>, s:string(строка).
Неизвестный
08.01.2006, 13:29
общий
это ответ
Здравствуйте, Ua4aqc!

У Edit есть свойство .text - текстового типа (string)
Следовательно ваша задача решается так (см.приложение)



Приложение:
procedure tform1.button1click(sender:tobject);var s:string;begin edit1.text:=‘Какой-то текст‘;//можно напрямую вводить свой текст edit2.text:=s;//Можно присваивать значение какой-то текстовой переменнойend;
Форма ответа