byte - string - Помощь студентам

fize · 10.01.2010, 01:59

помогите.-

Код:

var
s1,t,s:string;
i1,i,j:integer;
begin
 edit1.Text:=s;
 s:=IntToStr(i1);
 FTOB[0] := $+i1;

нужно- вводим число в эдит1 и отправляем сюда FTOB[0] := $+i1;
FTOB[0] := $10; - так отправляется нормально

Пепел Феникса · 10.01.2010, 02:24

а по человечески, что надо то?

fize · 10.01.2010, 02:28

надо что бы текст вводимый в едит1 попадал сюда FTOB[0] := $хх; (где хх - текст из едит1)

Пепел Феникса · 10.01.2010, 02:30

FTOB[0]:=StrToInt('$'+Edit1.Text);
если вас верно понял.

fize · 10.01.2010, 02:33

большое спасибо. работает

10.01.2010, 01:59	#1
fize Форумчанин Регистрация: 24.11.2009 Сообщений: 155	byte - string помогите.- Код: `var s1,t,s:string; i1,i,j:integer; begin edit1.Text:=s; s:=IntToStr(i1); FTOB[0] := $+i1;` нужно- вводим число в эдит1 и отправляем сюда FTOB[0] := $+i1; FTOB[0] := $10; - так отправляется нормально

10.01.2010, 02:24	#2
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	а по человечески, что надо то? Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

10.01.2010, 02:30	#4
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	FTOB[0]:=StrToInt('$'+Edit1.Text); если вас верно понял. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

10.01.2010, 02:28	#3
fize Форумчанин Регистрация: 24.11.2009 Сообщений: 155	надо что бы текст вводимый в едит1 попадал сюда FTOB[0] := $хх; (где хх - текст из едит1)

10.01.2010, 02:33	#5
fize Форумчанин Регистрация: 24.11.2009 Сообщений: 155	большое спасибо. работает