Memo1*memo2

Комментарии

• gpi

  July 2011 отредактировано 14:34

  А что в Memo1, Memo2?
• HunterNS Таганрог

  July 2011 отредактировано July 2011

  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

  July 2011 отредактировано 14:34

  gpi написал: »

  А что в Memo1, Memo2?

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

  July 2011 отредактировано July 2011

  HunterNS написал: »

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

  
  
  сделал и вот результат
  
  P.S.
  формат полей числовой %2.2f
• HunterNS Таганрог

  July 2011 отредактировано July 2011

  Сделайте обработчик OnBeforePrint для той мемки, куда вы собираетесь выводить результат.
  
  procedure Memo3OnBeforePrint(Sender: TfrxComponent);
  begin
  Memo3.Memo.Text := FloatToStr(StrToFloat(Memo1.memo.strings[0]) * StrToFloat(Memo2.memo.strings[0]));
  end;
• nixors

  July 2011 отредактировано 14:34

  HunterNS написал: »

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

  
  
  вот файл
• gpi

  July 2011 отредактировано 14:34

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

  July 2011 отредактировано July 2011

  дубль
• nixors

  July 2011 отредактировано 14:34

  gpi написал: »

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

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