Как программно форматировать Memo

Комментарии

• Vit@L

  September 2011 отредактировано 06:54

  Кстати, небольшое дополнение.
  Пробовал присваивать следующим образом:

  Memo1.Memo.Add('['+floattostr(first_ost)+']');
  

  с форматированием все хорошо, но по непонятной причине, причем не всегда, а только в некоторых случаях, выскакивает ошибка: "Memo1: Ошибка в выражении '53,2': ';' expected"
• Vit@L

  September 2011 отредактировано 06:54

  Неужели никто не может подсказать?
• Stalker4 123

  September 2011 отредактировано 06:54

  Vit@L написал: »

  Подскажите пожалуйста, как программно из Delphi присвоить формат для компонента memo в отчете.

  Для программного форматирования в мемке используй функции Format или FormatFloat.
• Vit@L

  September 2011 отредактировано 06:54

  А можно примерчик пожалуйста?
• gpi

  September 2011 отредактировано 06:54

  procedure Memo4OnBeforePrint(Sender: TfrxComponent);
  begin
  if Engine.FinalPass then
  Memo4.Text := 'Sum: ' + Format('%2.2m',[Get(<Sales."Company">)]);
  end;
• Vit@L

  September 2011 отредактировано 06:54

  gpi, а если у меня этой мемке присваивается значения переменной х из кода Delphi, как тогда быть? И все же можно пример с использованием функции Format или FormatFloat?
• Vit@L

  September 2011 отредактировано 06:54

  Кстати, я понял почему появляется ошибка "Memo1: Ошибка в выражении '53,2': ';' expected". при таком коде:

  Memo1.Memo.Add('['+floattostr(х)+']');
  

  Она появляется тогда, когда дробная часть числа больше нуля. Т.е. к примеру, если будет 12,00 то все будет нормально, а если 12,10 то вылетает ошибка. Почему так?
• Shtopor

  December 2011 отредактировано 06:54

  А чем плох:
  FloatToStrF(SomeVar,ffFixed,8,2)