Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.11.2012, 11:52   #1
DeNver20120
Пользователь
 
Аватар для DeNver20120
 
Регистрация: 15.11.2012
Сообщений: 12
Вопрос Как посщитать число без экспоненты?

В общем надо посчитать число без экспоненты !
Например
есть два поля memo
в них записываются большие числа где-то 100-160 символов
и при нажатии на кнопку получается число ,но надо чтоб оно было
в виде "********************************** *********************************** ****************************.****** *********************************** *********************************** *********************************** **********************"
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Timer1: TTimer;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   x,y:extended;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=StrToFloat(Memo1.Text) ;
y:=StrToFloat(Memo2.Text) ;

Label1.Caption:=FloatToStr(x+y);
end;

end.
DeNver20120 вне форума Ответить с цитированием
Старый 25.11.2012, 12:40   #2
alexan0308
Пользователь
 
Регистрация: 22.08.2009
Сообщений: 46
По умолчанию

Стандартного способа вроде нет. Нужно использовать готовые сторонние библиотеки или написать свою. Вот тут есть например
http://www.delphisite.ru/faq/rabota-...v-srede-delphi
alexan0308 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Число без знаковой экспоненты vmilyoshin Помощь студентам 2 11.11.2012 22:41
Число без знака в Delphi. maris01 Общие вопросы Delphi 1 11.08.2011 10:22
Как узнать что число не Float(без остатка) при результате деления? zotox Помощь студентам 7 19.07.2009 15:49
поиск максимума.(16 бит,uns – число без знака) JNN Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 04.06.2009 23:24
Ввести число N и определить делится ли оно без остатка на число M (VBA) Ivanich Microsoft Office Excel 7 24.04.2008 19:43