Memo1*memo2

nixors

Подскажите пожалуйста как умножыть значения полей Memo,

Memo1*Memo2

Пробовал так:
значение поля Memo3 =
[(Memo1)*(Memo2)]

Выдает ошибку (

Помогите новичку.

gpi

А что в Memo1, Memo2?

HunterNS

IntToStr(Memo1.Memo.Text) * IntToStr(Memo2.Memo.Text)
FloatToStr(Memo1.Memo.Text) * FloatToStr(Memo2.Memo.Text)

Тут косяк, конечно же наоборот

StrToint(Memo1.Memo.Text) * StrToint(Memo2.Memo.Text)
StrToFloat(Memo1.Memo.Text) * StrToFloat(Memo2.Memo.Text)

nixors

gpi написал: »

А что в Memo1, Memo2?

в мемо1 и мемо2 просто значения 2 , результат в мемо3 должен быть =4

nixors

HunterNS написал: »

IntToStr(Memo1.Memo.Text) * IntToStr(Memo2.Memo.Text)
FloatToStr(Memo1.Memo.Text) * FloatToStr(Memo2.Memo.Text)

сделал и вот результат

P.S.
формат полей числовой %2.2f

HunterNS

Сделайте обработчик OnBeforePrint для той мемки, куда вы собираетесь выводить результат.

procedure Memo3OnBeforePrint(Sender: TfrxComponent);
begin
Memo3.Memo.Text := FloatToStr(StrToFloat(Memo1.memo.strings[0]) * StrToFloat(Memo2.memo.strings[0]));
end;

nixors

HunterNS написал: »

Пришлите файл fr3, показывающий данную ошибку.

вот файл

gpi

[StrToFloat(Trim(Memo1.Memo.Text)) * StrToFloat(Trim(Memo2.Memo.Text))]

gpi

дубль

nixors

gpi написал: »

[StrToFloat(Trim(Memo1.Memo.Text)) * StrToFloat(Trim(Memo2.Memo.Text))]

спасибо заработало !!!!!!!!!!!