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隐藏桌面图片和显示桌面图标

Delphi 字符串分割

Delphi利用webbrowser登陆qq群文档

Delphi webbrowser 操作记要

Delphi memo1 行随机打乱

Delphi windows 编程[7] - wm_create 消息

Delphi 取得dll所在目录

Delphi xe10.2 firedac 三种连接

Delphi 之 编辑框控件(tedit)

Delphi 字符串适宽处理

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

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