Как округлять числа до целых и как оставить два знака после запятой.

[bles]

У меня несколько вопросов...
Я все не могу понять как округлять числа до целых и как оставить два знака после запятой. Как сделать так что бы на pagecontrol1 была видна только одна tabsheet1 при открытии программы, а tabsheet2 появлялась при нажатии на какую нибудь кнопку.
И еще как сделать так что бы в поле edit можно было ввести только цифры от 0 до 9 и запятую для десятичных чисел.
Покажите пожалуйста на примере как числа округлять хотя бы на таком до целых и сотых :
Edit1.text:=FloatToStr(StrToFloat(E dit2.Text) / StrToFloat(Edit3/Text);

[Stilet]

как округлять числа до целых и как оставить два знака после запятой.

RoundTo смотри в справочник там даже пример есть

Как сделать так что бы на pagecontrol1 была видна только одна tabsheet1 при открытии программы, а tabsheet2 появлялась при нажатии на какую нибудь кнопку.

Динамически создать вторую закладку

[puporev]

Напиши такую процедуру: (#8 нужна, если неправильно введешь цифру или знак, еще нужен минус для ввода отрицательных чисел).

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
  #8,'0'..'9' :  ; // цифры и <Back Space>
       '.',',':    // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,Edit1.text) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(Edit1.text) <> 0
                      then Key := Chr(0);
             else   // остальные символы запрещены
               key := Chr(0);
    end;
end;

Форматированный вывод можно делать так: FloattostrF(x,ffFixed,a,b), где a - обшее количество знаков, b - после запятой. Как в Паскале.

[bles]

Сообщение от Stilet

Динамически создать вторую закладку

У меня они уже должны быть созданы, там много вычисления и на каждой вкладке вычисляется определенная формула. А просто их невидимыми можно сделать до того как кнопка нажата, если можно с примером буду очень благодарен.

Сообщение от puporev

Форматированный вывод можно делать так: FloattostrF(x,ffFixed,a,b), где a - обшее количество знаков, b - после запятой. Как в Паскале.

Спасибо огромное за процедуру. А можешь на примере показать на каком ни будь где происходят действия с edit насчет вывода целых и сотых частей числа. Я просто не совсем понимаю куда писать ffFixed. Edit1.text:=FloatToStr((StrToFloat( Edit2.Text)/StrToFloat(Edit3/Text)),ffFixed,5,2);
так до сотых ?

[puporev]

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.text:=FloatToStrF(StrToFloat(Edit2.Text)/StrToFloat(Edit3.Text),ffFixed,5,2);

end;

Вводишь в Edit2 и Edit3 любые числа и в Edit1 получаешь ответ с точносьбю до сотых, если ffFixed,5,3 - до тысячных и т. д.

[bles]

Сообщение от puporev

Вводишь в Edit2 и Edit3 любые числа и в Edit1 получаешь ответ с точносьбю до сотых, если ffFixed,5,3 - до тысячных и т. д.

Спасибо огромное ,)

[bles]

А про pagecontrol1 и tabsheet некто не знает как сделать сделать так, что бы в начале видна была только первая закладка, а при нажатии на кнопку появлялась следующая и у меня они уже должны быть созданы, там много вычисления и на каждой вкладке вычисляется определенная формула.
Если бы с примером было бы просто супер)

И еще не кто не знает как в label делать степень сверху, ставить корень, писать снизу индексы и греческие буквы...

[Stilet]

как в label делать степень сверху

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
var x:integer;
begin
label1.Caption:=' ';
 x:=0;

Label1.Canvas.TextOut(0,0,'H');
 x:=x+Label1.Canvas.TextExtent('H').cx ;
Label1.Canvas.TextOut(x,10,'2');
 x:=x+Label1.Canvas.TextExtent('2').cx ;
Label1.Canvas.TextOut(x,0,'O');
end;
end.

в начале видна была только первая закладка, а при нажатии на кнопку появлялась следующая

Видимо так:

procedure TForm1.Button1Click(Sender: TObject);
begin
if PageControl1.Pages[PageControl1.ActivePageIndex+1]<>nil then begin
 PageControl1.Pages[PageControl1.ActivePageIndex+1].Visible:=true;
 PageControl1.ActivePageIndex:=PageControl1.ActivePageIndex+1
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:word;
begin
 //********* FOR ******************
 for i :=1  to PageControl1.PageCount-1  do
 begin
  PageControl1.Pages[i].Visible:=false;
 end;
 //******* END FOR ****************{}
end;

//********* FOR ******************
for  i:=0  to PageControl1.PageCount-1  do
begin
 PageControl1.Pages[i].Visible:=true;
end;
//******* END FOR ****************{}

[bles]

Спасибо большое, попробую,)

[Sibedir]

К вопросу об округлении:

uses
  Math;

function MyRound (A: Extended): Extended;
begin
  if A > 1e25 then Result := A
  else Result := Round (A);
end;

function MyRoundTo (const AValue: Extended; const ADigit: Integer): Extended;
var
  LFactor: Extended;
begin
  LFactor := IntPower(10, ADigit);
  Result := MyRound (AValue / LFactor) * LFactor;
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  r1, r2, r3, r4: Extended;
begin
  r1 := 1.1e4932;
  r2 := 4.5e-4932;
  r3 := 33456.54932;
  r4 := 33456.54932;
  r1 := MyRoundTo (r1, 10);
  r2 := MyRoundTo (r2, -4932);
  r3 := MyRoundTo (r3, 3);
  r4 := MyRoundTo (r4, -3);
  ShowMessage (FloatToStr (r1) + #13 + FloatToStr (r2) + #13 +
               FloatToStr (r3) + #13 + FloatToStr (r4));
end;

MyRound работает как Round, а MyRoundTo сделана по принципу RoundTo, но они исбавлены от ошибок с большими числами.