(Resolvido) Transformar um numero positivo em negativo

[Eder]

Ola...

tou com dificuldades em transformar um numero positivo em negativo...

por favor vejam meu exemplo no codigo abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
Saldo, Saida_Estoque : Integer;
begin
Saldo:=strtoInt(Edit1.text);
Saida_estoque:=strtoInt(Edit2.text);
Showmessage(Inttostr(Saldo+Saida_Estoque));
end;

vamos supor que meu saldo seja de 10(edit1) e ai o camarada da a saida_estoque no valor de 11(edit2), logicamente o resultado real seria -1, porem se eu usar o exemplinho acima o resultado da 21 pois ele pega 10 + 11 = 21 e deveria ser assim 10 - 11 = -1

isto porque no edit2 não posso dizer pro usuario digitar -11 ele vai digitar 11(e onze seria positivo, mas pro meu caso é um negativo...pois ta saindo do estoque).

não sei se fui claro....

Como eu faria neste caso? :blush:

muito Grato

[Jhonas]

vamos supor que meu saldo seja de 10(edit1) e ai o camarada da a saida_estoque no valor de 11(edit2), logicamente o resultado real seria -1, porem se eu usar o exemplinho acima o resultado da 21 pois ele pega 10 + 11 = 21 e deveria ser assim 10 - 11 = -1

OHHHH Elder meu amigo .. mas que falta de atenção

procedure TForm1.Button1Click(Sender: TObject);
var
Saldo, Saida_Estoque : Integer;
begin
   Saldo:=strtoInt(Edit1.text);
   Saida_estoque:=strtoInt(Edit2.text);
   Showmessage(Inttostr(Saldo-Saida_Estoque));  //  10 - 11 = -1
end;

OBS: Saldo - Saida_estoque não ( + )

abraço

[Eder]

Opa...eu já havia tentando assim...rs..

mas não da não....

veja você colocou:

Showmessage(Inttostr(Saldo-Saida_Estoque)); // 10 - 11 = -1

end;

OBS: Saldo - Saida_estoque não ( + )

mas tem um porem...o resultado deveria sair assim(NEGATIVO): -1 E sai 1(positivo).

se eu tinha 10 no estoque e dei saida em 11 o resultado é -1 e não +1

é este problema...que não to sabendo controlar... :blush:

Grato

[Erso]

eder o colega Jhonas está certo, fiz o teste com o seu codigo e realmente é so mudar o sinal, porque 10 - 11 = -1,

teste o codigo:

var
Saldo, Saida_Estoque : Integer;
begin
Saldo:=strtoInt(Edit1.text);
Saida_estoque:=strtoInt(Edit2.text);
Showmessage(Inttostr(Saldo-Saida_Estoque));

end;

[Luis Ricardo]

Fiz testes com o que o Erso passou e esta funcionando normalmente, está mostrando -1.

Att.

Luis Ricardo

[Eder]

Pessoal..perdão.....ta certo sim....fiz confusão. :blush:

valeu..muito grato.