此处将为大家介绍关于咋没vb,delphi,python之类的老师嗫的详细内容，并且为您解答有关vb和delphi的相关问题，此外，我们还将为您介绍关于.Delphi7升级到Delphi2010、De
此处将为大家介绍关于咋没vb,delphi,python之类的老师嗫的详细内容，并且为您解答有关vb和delphi的相关问题，此外，我们还将为您介绍关于.Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结、delphi – 像StrTok()或Sscanf()之类的东西？、Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结、Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结 .的有用信息。
本文目录一览：- 咋没vb,delphi,python之类的老师嗫（vb和delphi）
- .Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结
- delphi – 像StrTok()或Sscanf()之类的东西？
- Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结
- Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结 .
咋没vb,delphi,python之类的老师嗫（vb和delphi）
只有c/c++,java,c#,PHP，其它流行的语言好像没的老师啊
.Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结
总结
以上是小编为你收集整理的.Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结全部内容。
如果觉得小编网站内容还不错，欢迎将小编网站推荐给好友。
delphi – 像StrTok()或Sscanf()之类的东西？
基本上,总会有8个浮点读数,前面带有加号或减号,尽管它们的字符长度可能不同.
获取值为浮点数组(或字符串数组或TSringList)的最有效方法是什么？
我不确定,但这可能是时间关键,所以效率可能优于优雅.
解决方法
type
TFloatArray = array[0..7] of Double;
procedure ParseFloats(const aFloatStr: string;
var aFloatArray: TFloatArray);
var
lPos: Integer;
lNextPos: Integer;
lPosPositive: Integer;
lPosNegative: Integer;
i: Integer;
lFormatSettings: TFormatSettings;
begin
//do not forget formatsettings,or you will get problems with regional settings
lFormatSettings.DecimalSeparator := '.';
lFormatSettings.ThousandSeparator := ',';
lPos := 1;
for i := 0 to High(aFloatArray) do
begin
lPosPositive := PosEx('+',aFloatStr,lPos + 1);
lPosNegative := PosEx('-',lPos + 1);
if lPosPositive = 0 then
lNextPos := lPosNegative
else if lPosNegative = 0 then
lNextPos := lPosPositive
else
lNextPos := Min(lPosPositive,lPosNegative);
if lNextPos = 0 then
lNextPos := Length(aFloatStr) + 1;
aFloatArray[i] := StrToFloat(copy(aFloatStr,lPos,lNextPos - lPos),lFormatSettings);
lPos := lNextPos;
end;
end;
//call like this
var
lFloats: TFloatArray;
begin
ParseFloats('+0020.8+0022.8-00.046-00.002-00.005-001.99+00.000+00.003',lFloats);
end;
因为总有8个浮点值,所以8个双精度数的固定数组就足够了.我将字符串操作保持在最小值,每个浮点值只复制一次字符串.重要的是TFormatSettings,否则你会在小数分隔符不是点(如我的)的系统上得到错误.
这里没有异常处理,我期望一个包含8个浮点值的字符串,仅此而已.
Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结
总结
以上是小编为你收集整理的Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结全部内容。
如果觉得小编网站内容还不错，欢迎将小编网站推荐给好友。
Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结 .
总结
以上是小编为你收集整理的Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结 .全部内容。
如果觉得小编网站内容还不错，欢迎将小编网站推荐给好友。
关于咋没vb,delphi,python之类的老师嗫和vb和delphi的介绍现已完结，谢谢您的耐心阅读，如果想了解更多关于.Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结、delphi – 像StrTok()或Sscanf()之类的东西？、Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结、Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结 .的相关知识，请在本站寻找。
本文标签：
