delphi алгоритм развлетвляющей структуры

[world12_tk]

Здраствуйте уважаемые форумчанины.... Возникла проблема.... Я написал программу которая при выборе пользователя функции решает ур-ие:
e=i*sqrt(f(x)) i- нечетное, x>0;
e=i/2*sqrt(abs(f(x))), i- четное x<0
e=sqrt(abs(f(x))), иначе
я сделал проверку i через mod, но он показывает ошишбку.... Не могли бы мне помочь ее исправить... вот исходный код...

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.text:='0';
  Edit2.text:='0';
  Memo1.Clear;

end;
procedure TForm1.Button1Click(Sender: TObject);

 var x,i,fun,ma,temp:extended;
begin
  i:=StrToFloat(Edit1.Text);
  Memo1.Lines.Add(' i='+Edit1.Text);
  x:=StrToFloat(Edit2.Text);
  Memo1.Lines.Add(' x='+Edit2.Text);
  case RadioGroup1.ItemIndex of
    0: fun:=(Exp(x)-Exp(-x))/2;
    1: fun:=sqr(x);
    2: fun:=Exp(x);
  end;
  temp:= i mod 2;
  if (temp=0) and (x>0) then
    ma:=i*sqrt(fun)
  else
    if (temp<>0) and (x<0) then
      ma:=i/2*sqrt(abs(fun))
    else
      ma:=sqrt(abs(i*fun));
  Memo1.Lines.Add(' maxabs='+FloatToStrF(ma,ffFixed,8,3))

end;
end.

заранее благодарен....

[russian-stalker]

Mod работает помоему только с целочисленными выражениями

[world12_tk]

а как тогда изменить?

[spamer]

Как вариант:

procedure TForm1.Button1Click(Sender: TObject);
var
 x,i,temp : Integer;
 fun,ma:Extended;
begin
  i:=StrToInt(Edit1.Text);
  Memo1.Lines.Add(' i='+Edit1.Text);
  x:=StrToInt(Edit2.Text);
  Memo1.Lines.Add(' x='+Edit2.Text);
  case RadioGroup1.ItemIndex of
    0: fun:=(Exp(x)-Exp(-x))/2;
    1: fun:=sqr(x);
    2: fun:=Exp(x);
  end;
  temp := i mod 2;
  if (temp=0) and (x>0) then
    ma:=i*sqrt(fun)
  else
    if (temp<>0) and (x<0) then
      ma:=i/2*sqrt(abs(fun))
    else
      ma:=sqrt(abs(i*fun));
  Memo1.Lines.Add(' maxabs='+FloatToStrF(ma,ffFixed,8,3))
end;

[world12_tk]

а не могли бы мне еще подсказать не по теме..... как сделать защиту от символьного ввода

[spamer]

В обработчик события OnKeyPress для Edit'ов написать :

if not (Key in ['0'..'9']) then Key := #0;

з.ы. также можно try ... except использовать.

[world12_tk]

if not (Key in ['0'..'9']) then Key := #0;

не получается... он выдает ошибку....
я попробовал пойти таким путем, но видать тоже где то ошибся... не поможете исправить?

procedure TForm1.Button1Click(Sender: TObject);
const Mn: set of char=['0'..'9'];
var
 x,i,temp : Integer;
 fun,ma:Extended;
begin
  i:=StrToInt(Edit1.Text);
  if (i<>Mn) then halt;
  Memo1.Lines.Add(' i='+Edit1.Text);
  x:=StrToInt(Edit2.Text);
  Memo1.Lines.Add(' x='+Edit2.Text);
  case RadioGroup1.ItemIndex of
    0: fun:=(Exp(x)-Exp(-x))/2;
    1: fun:=sqr(x);
    2: fun:=Exp(x);
  end;
  temp := i mod 2;
  if (temp=0) and (x>0) then
    ma:=i*sqrt(fun)
  else
    if (temp<>0) and (x<0) then
      ma:=i/2*sqrt(abs(fun))
    else
      ma:=sqrt(abs(i*fun));
  Memo1.Lines.Add(' maxabs='+FloatToStrF(ma,ffFixed,8,3))
end;

[russian-stalker]

В новых делфи у едитов есть свойство numonly(или как-то так)

[puporev]

не получается... он выдает ошибку....

Вот пример процедуры. Попробуйте ввести не цифру.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9'])then key:=#0;
end;

А вот так разрешает только правильный ввод числа, в том числе вещественного и отрицательного.

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

        else   // остальные символы запрещены
               key := Chr(0);
    end;
end;

[spamer]

if not (Key in ['0'..'9']) then Key := #0;
не получается... он выдает ошибку....

Сори, то я перепутал. Вобщем вот это

if not (Key in ['0'..'9']) then Key := #0;

надо писать в событие для Edit'а OnKeyPress. И все будет работать.