Метод Ньютона

[Cubar]

Здравствуйте!
Я сейчас делаю программу "Метод Ньютона" на языке "Delphi 7.0".
Цель: разработать программу, которая решает линейные алгебраические уравнения методом Ньютона.
Вид уравнений, которые будет решать программа, такой:
Ax(3)+Bx(2)+Cx+D=0,
где: x - неизвестное;
A,B,C,D - заданные числа.

Сейчас делаю защиту "от дурака".
Надо сделать так, чтобы в поле "TEdit", можно было вводить только цифры, знаки "-", "." или ",". Так вот, я сделал только то, что можно ввести:
1) цифры.
2) "-", но только чтобы выводился на первом месте и чтобы нельзя было ввести повторно это символ.
3) "." или ",", чтобы если пользователь введет "." или ",", то автоматически вместо это символа появлялся тот, который по умолчанию стоит в Windows для ввода действительных чисел, также чтобы нельзя было ввести "," на первом месте.

А вот чтобы "," или "." можно было ввести только 1 раз никак не получается.
Помогите, пожалуйста, кто знает, как это сделать.

Вот код защиты, которую я сделал:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
'.',',':
// разделитель целой и дробной частей числа
  begin
  If Key<>DecimalSeparator then
    begin
    Key:=DecimalSeparator; // заменим разделитель на допустимый
    end;
  If (Length (Edit1.Text)=0) and (Key=DecimalSeparator) then
    begin
    Key:=Chr (0);
    end;
  end;
'-': // минус можно ввести только первым символом, т.е. когда ячейка пустая
If Length (Edit1.Text)<>0 then
  begin
  // остальные символы запрещены
  Key:=Chr (0);
  end;
#48..#57:;
#13:Edit2.SetFocus;
#8:;
else
Key:=Chr(0);
end;
end;

[Stilet]

Надо сделать так, чтобы в поле "TEdit", можно было вводить только цифры, знаки "-", "." или ",".

Для этого есть TMaskEdit

[Cubar]

Stilet, это совсем не то.
Компонент "TMaskEdit" нужен для создания маски ввода. Но мне нужна не маска ввода, т.е. там ввод идет по конкретной маске, а в моем случае, это не подходит, т.к. ввести можно, например: "-0,5" или "1".
Нужно создать условие в "Procedure TForm1.Edit1KeyPress" по вводу.
Помогите, кто знает, как это сделать.

[puporev]

Напиши так:
if Pos(DecimalSeparator,Edit1.Text) <> 0 then Key := Chr(0);

[Cubar]

Спасибо тебе большое, Puporev. Выручил.

[B_N]

А TryStrToInt и дальнейшая проверка значения не подходит?

[Cubar]

Ребят, спасибо всем, кто пытался помочь мне.
Защиту от дурака я уже сделал.
У меня для Вас есть еще 1 вопрос:
Как сделать, так, чтобы выводилось действительное число с определенным количеством символов, т.е.
"X=0,983928383", нужно вывести "X" в таком виде "X=0,98".
В "Borland Pascal 7.0" это делается вот так:

WriteLn (X.2.0);

А как это сделать в "Borland Delphi 7.0"?

[Карась]

Writeln(x:2:2);

[still_alive]

uses Math;
Str := FloatToStr(RoundTo(X, -2));

[puporev]

Форматированный вывод можно делать по разному, например так:
StrtofloatF(x,ffFixed,5,2), где 5 - общее количество знаков, 2 - после запятой.
Во вложении несколько способов форматированного вывода вещественных чисел.