Delphi pos的用法

本文整理自网络，侵删。

 program Money; 

{$APPTYPE CONSOLE} 

uses 
SysUtils; 

Var Smalla :String; 
Whered :Integer; 
Small :real; 

begin 
Small :=1001.11; 
Smalla :=formatfloat('0.0',Small); 
Whered :=pos('.',Smalla); 
Writeln(Whered); 
//结束 
Readln; 
end. 

相关阅读 >>

Delphi inttostr 将“整数型”转换成“字符型”

相对完整的多线程idhttp文件下载代码

Delphi程序与chm帮助关联的简单实现

Delphi idhttp returning http 1.1/500 显示错误内容

Delphi拖动窗体超简单实现

Delphi 控制台关闭指定窗口

Delphi tfinddialog treplacedialog对话框在memo中的使用

Delphi 有授权许可的字符串拷贝函数源码

settimer函数用法

Delphi tdirectory.tfilterpredicate

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi pos的用法