Минус не слушается

[Jekasea]

Как сделать, что-бы после компиляции в "T.edit" минус можно было ввести только в начале и только один раз ?
Т.е. число может быть только отрицательным или положительным.
Или по нажатию определенной клавиши число меняется с "+" на "-".
Я написал так:
if (key='-') and (pos('-',Edit1.text)<>0) then
Key :=#0;
но этого мало. Минус хоть и вводится один раз, но в любом месте.
Подскажите!

[alextrof94]

пиши обработчик для Edit1.change
И проверяй число положительное или отрицательное, так же у едита есть свойство numbersonly, что как бэ намекает.

[Jekasea]

Подробнее:
Я написал так-

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const Digit: set of Char=['0'..'9', #8,'-'];
Sep: set of Char=['/', '.', ',', 'ю', 'Ю', 'б', 'Б'];
begin
with (Sender as TEdit) do
begin
if (Key in Sep )
then Key:=DecimalSeparator //Delphi-константа типа Char, равная символу-разделителю Windows
else
if (not(Key in Digit))
then Key:=#0;
if ((Key=DecimalSeparator)and(pos(Deci malSeparator, Text)<>0)) // запятую можно ввести один раз
then Key:=#0;

if (key='-') and (pos('-',Edit1.text)<>0) then
Key :=#0;
Где здесь можно вписать обработчик ?
не получается только с минусом...

[Алексей_2012]

так лучше (взял из калькулятора), дальше сами измените, весы можно не нажимать

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var s:real;
begin
case Key of
  #8,'0'..'9' :  ; // цифры и <Back Space>

       '.',',': // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,Edit2.Text) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(Edit2.Text) <> 0
                      then Key := Chr(0);
        #13:begin
            s:=StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text);
            Edit3.Text:=FloatToStrF(s,fffixed,6,2);
            end;
        else   // остальные символы запрещены
               key := Chr(0);
    end;
end;

[Jekasea]

Спасибо!
Теперь как сделать что-бы при нажатии ,например клавиши "-", число менялось с положительного на отрицательное и наоборот.
Дайте зацепку или пример.

[Алексей_2012]

дак там все просто

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key='-' then key:='+' else key:='-';
end;

т.е если ввели -, то появится +, а если + то появится -

это авто замена, а если вам нужно для клавиши, то пишите так

procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
s:string;
begin
s:=trim(Edit1.text);
for i:=1 to Length(S) do
 if s[i]='-' then s[i]:='+' else s[i]:='-';
 Edit1.Text:=s;
end;

[Stilet]

то появится +, а если + то появится -

Появится где?

число менялось с положительного на отрицательное и наоборот.

Если хочешь делать так то:

if copy(Edit1.text,1,1)<>'-' then Edit1.text:='-'+Edit1.text
else Edit1.text:=copy(Edit1.text,2,Length(Edit1.text));

Но я не рекомендую так делать вообще. Не нужно вообще ставить защиту на проверку при самом вводе. Проверяй когда хочешь сделать арифметическую операцию при помощи TryStrToFloat() введено ли корректное число.

[Алексей_2012]

Появится где?

В данном случае в Edit1.text

[Stilet]

В данном случае в Edit1.text

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

это авто замена, а если вам нужно для клавиши, то пишите так

Этот код тоже ничего хорошего не делает. Без обид но он только все усложнит.

[Алексей_2012]

Вот здесь все проработано, далее ТС просит заменять минус на плюс, ваш код отличный, но он же просит сделать по нажатии на клавишу -, а не при вводе -