Delphi 中怎么实现一个公式求整数去掉小数点后面部分，和怎么让程序关闭后在打开edit显示关闭前的数据。

发布网友 发布时间：2022-05-30 19:55

我来回答

共3个回答

热心网友 时间：2023-11-08 10:29

1、关于取整，你没说取整规则。
添加引用：Math
直接删除小数部分，返回整数：trunc，如果trunc（2.234），则返回 2。其他：
trunc 和 round 是 system unit 里的函数，缺省就可以用。
floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123
trunc 直接切下整数，比如 trunc(-123.55)=-123, floor(123.55)=123
ceil 直接往大的取，比如 ceil(-123.55)=-123， ceil(123.55)=124
round 计算四舍五入，比如 round(-123.55)=-124，round(123.55)=124

2、重启后text自动读取
两种方案，写注册表，或者写ini文件。
写注册表：不用额外添加文件，速度快，但会使注册表变大。不过数据少也无所谓了。
写ini文件：需要生成额外的文件。引用IniFiles。
procere TForm1.Button2Click(Sender: TObject);
var
ini:TIniFile;
num : integer;
name: string;
begin
Ini := TIniFile.Create('c:\aa.ini');
//读取
num:= ini.ReadInteger('nums','num1',0);
name:= ini.ReadString('names','name1','');
//写入
name := '李三';
num := 1;
ini.WriteString('names','name1',name);
ini.WriteInteger('nums','num1',num);
end;

在你的窗口退出时onclose事件，把每个text的内容写入ini文件
在你的窗口启动时onCreate事件或其他，读取，并给text赋值。

热心网友 时间：2023-11-08 10:30

delphi的取整函数round、ceil和floor
round 四舍六入五留 round(11.5) = 12 round(12.5) = 12
floor 向下取整。 floor(11.234)=11 cell 向上取整 cell(11.123)=12

想关闭后再显示 那就得找个地方把值存起来。是我就会存到ini中。

热心网友 时间：2023-11-08 10:31

1. 求整数用Roundto()函数。
2. 保存数据，关闭前将数据存储在临时文本文件，一般用ini文件为好。追问我是新手新手 Roundto()函数怎么运用。怎么输出到ini又怎么读取

追答1. Roundto()， math单元里。
RoundTo(1234567, 3) 1234000
RoundTo(1.234, -2) 1.23
2.直接写到一个文本文件里吧
{字符串写到文件}
procere StringToFile (nString:string;mFileName:TFileName );
var
tFile:TextFile;
begin
AssignFile(tFile,mFileName );
Rewrite(tFile );
Write(tFile,nString);
CloseFile(tFile );
end;