edit 中输入 数字 怎么变成负数

[laishiking]

在edit 中输入 正数 时 怎么变成负数 求编程

[sforiz]

-abs(Edit1.Text)

[shijies]

输入负数能变成什么？

[Oraclers]

[Quote=引用 6 楼 laishiking 的回复:]
引用 2 楼 wsz1997 的回复:
紧急求助 这个查询功能怎么写[问题点数:40分，无满意答案结帖，结帖人：laishiking]
http://topic.csdn.net/u/20110519/18/c62aec97-ff2b-4b41-a618-f5b6da553ea7.html



我试过了 还是不能用啊
[/Quote]
我没估计错的话，你自己都不知道要问什么，所以别人很难帮你。就象你现在这题，也不知你到底需要什么，这么多人回答，好象没有合你意的，也不回应到底行不行。

[annwatasi]

判断一下，如果不是负数就给他转换。

[Q724481678Q]

紧急求助 这个查询功能怎么写[问题点数:40分，无满意答案结帖，结帖人：laishiking]
http://topic.csdn.net/u/20110519/18/c62aec97-ff2b-4b41-a618-f5b6da553ea7.html

[qianchuan2010]

var
Tmp :integer;
begin
Tmp := 0-abs(StrToInt(Edit1.Text));
end;

[Mit1208]

如果存在“-”，则直接输出
如果不存在“-”，则给它前置一个“-”就行吧！

[Oraclers]

[Quote=引用楼主 laishiking 的回复:]
在edit 中输入 正数 时 怎么变成负数 求编程
[/Quote]
var
i :integer;
begin
i := 0-StrToInt(Edit1.Text);
end;

[hongss]

var
  Temp: Single;
begin
  Temp:= StrToFloatDef(Edit1.Text, 0);
  if Temp>0 then
    Edit1.Text:= FloatToStr(0-Temp);
end;

[laishiking]

[Quote=引用 2 楼 wsz1997 的回复:]
紧急求助 这个查询功能怎么写[问题点数:40分，无满意答案结帖，结帖人：laishiking]
http://topic.csdn.net/u/20110519/18/c62aec97-ff2b-4b41-a618-f5b6da553ea7.html
[/Quote]


我试过了 还是不能用啊

[lyhoo163]

Edit1.Text:= IntToStr(0-abs(StrToInt(Edit1.Text)));

[sunli_py]

可把事件写在焦点里开时执行

procedure TForm1.Edit1Exit(Sender: TObject);
begin
Edit1.Text:= IntToStr(0-abs(StrToInt(Edit1.Text)));
end;