Присваивание переменных

@Twins1606 · Регистрация: 04.01.2011

Author24 — интернет-сервис помощи студентам

Привет народ!!!! Всех с праздниками прошедшими и будущими!!!!!! Рябят ну кого не затруднит посмотрите код , где тут ошибка мне надо взять число с Edit умножить на процент (например 3%) и завести результат в DBEdit. Вот код:

Delphi

procedure Tzakaz.BitBtn4Click(Sender: TObject);
var
a: integer;
s: String;
i: Real;
begin
i:= 0.03;
Edit2.Text:='';
s:= Edit2.Text;
a:= s*i;
DBEdit5.Text:= intTosrt(a);
end;

Я просто уже запутался

@sano32 · 14.01.2011, 13:41

текст из Edit2 перевести в цифру. StrToInt(edit2).

@Twins1606 · 14.01.2011, 13:43 **[ТС]**

Конечно это наверно очень глупый вопрос но я наверно спрашу А где это прописать?

@sano32 · 14.01.2011, 13:47

сразу после строчки s:=edit2.text, пишешь s:=strtoint(edit2.text)

@Twins1606 · 14.01.2011, 13:50 **[ТС]**

Извиняюсь за назойливость [Error] Zakaz_.pas(71): Incompatible types: 'String' and 'Integer'

@Puporev · 14.01.2011, 13:53

Delphi

procedure Tzakaz.BitBtn4Click(Sender: TObject);
var a,i: Real;
begin
i:= 0.03;
a:=strtofloat(Edit2.Text);
a:=a*i;
DBEdit5.Text:=FloatTosrtF(a,ffFiuxed,5,2);
end;

@Twins1606 · 14.01.2011, 13:56 **[ТС]**

[Error] Zakaz_.pas(68): Undeclared identifier: 'FloatTosrtF'
[Error] Zakaz_.pas(68): Undeclared identifier: 'ffFiuxed' Вот такие ошибки

@Puporev · 14.01.2011, 13:59

Delphi

1	DBEdit5.Text:=FloatTosrF(a,ffFixed,5,2);

Добавлено через 29 секунд
Twins1606, Хоть опечатки учись исправлять, все вперед....

@Twins1606 · 14.01.2011, 14:01 **[ТС]**

Спасибо!!!!!!! осталась одна ошибка......
[Error] Zakaz_.pas(68): Undeclared identifier: 'FloatTosrtF'

@Puporev · 14.01.2011, 14:03

Twins1606, Глаза разуй, я же убрал лишнюю t
'FloatTosrtF'

@Twins1606 · 14.01.2011, 14:06 **[ТС]**

Всем огромное спасибо!!!!! Я извиняюсь за такие ошибки я просто ночь не спал. Всем +

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.01.2011, 14:03	10
	Twins1606, Глаза разуй, я же убрал лишнюю t 'FloatTosrtF' 1

@sano32 66 / 63 / 63 Регистрация: 15.12.2010 Сообщений: 150
	14.01.2011, 13:41	2
	текст из Edit2 перевести в цифру. StrToInt(edit2). 1

@Twins1606 3 / 3 / 0 Регистрация: 04.01.2011 Сообщений: 100
	14.01.2011, 13:43 [ТС]	3
	Конечно это наверно очень глупый вопрос но я наверно спрашу А где это прописать? 0

@sano32 66 / 63 / 63 Регистрация: 15.12.2010 Сообщений: 150
	14.01.2011, 13:47	4
	сразу после строчки s:=edit2.text, пишешь s:=strtoint(edit2.text) 1

@Twins1606 3 / 3 / 0 Регистрация: 04.01.2011 Сообщений: 100
	14.01.2011, 13:50 [ТС]	5
	Извиняюсь за назойливость [Error] Zakaz_.pas(71): Incompatible types: 'String' and 'Integer' 0

@Twins1606 3 / 3 / 0 Регистрация: 04.01.2011 Сообщений: 100
	14.01.2011, 13:56 [ТС]	7
	[Error] Zakaz_.pas(68): Undeclared identifier: 'FloatTosrtF' [Error] Zakaz_.pas(68): Undeclared identifier: 'ffFiuxed' Вот такие ошибки 0

@Twins1606 3 / 3 / 0 Регистрация: 04.01.2011 Сообщений: 100
	14.01.2011, 14:01 [ТС]	9
	Спасибо!!!!!!! осталась одна ошибка...... [Error] Zakaz_.pas(68): Undeclared identifier: 'FloatTosrtF' 0

@Twins1606 3 / 3 / 0 Регистрация: 04.01.2011 Сообщений: 100
	14.01.2011, 14:06 [ТС]	11
	Всем огромное спасибо!!!!! Я извиняюсь за такие ошибки я просто ночь не спал. Всем + 0

Опции темы