delphi编写函数,出现over flow

原创 2015年10月20日 20:27:27
//对大字符操作,每个字符串大概3000-5000字节
procedure Texchanger.AnalysisDepthData(value,asks,bids,splitstr,ADelim: string);
var
  apos,bpos,ipos:Integer;
  str,stmp,stra,strb:string;
  i,j:Integer;
begin
  stmp := StringReplace(value,splitstr,'^',[]);
  stmp := StringReplace(stmp,ADelim,'`',[rfReplaceAll]);
  SetLength(str,Length(stmp));
  j := 1;
  for i:= 1 to Length(value) do
  begin
    if (stmp[i]='"')or(stmp[i]='[')or(stmp[i]=']')or(stmp[i]='{')or(stmp[i]='}')or(stmp[i]=#13)or(stmp[i]=#10)or(stmp[i]=':') then
      Continue
    else
    begin
      str[j] := stmp[i];
      inc(j);
    end;
  end;
  <span style="color:#ff0000;">stmp := '';             //如果没有这句话,会出现over flow提示框</span>
  apos := Pos(asks,str);
  bpos := Pos(bids,str);
  ipos := Pos('^',str);
  if apos < bpos then
  begin
    stra := Copy(str,apos+length(asks),ipos - apos - Length(asks));
    strb := Copy(str,bpos+length(bids),Length(str));
  end
  else
  begin
    strb := Copy(str,bpos+length(bids),ipos - bpos - Length(bids));
    stra := Copy(str,apos+length(asks),Length(str));
  end;
  SplitDelimitedString(stra,asksList,True,'`');//SplitColumns();
  SplitDelimitedString(strb,bidsList,True,'`');
end;

相关文章推荐

ORACLE_OVER函数

  • 2011年12月08日 22:08
  • 450KB
  • 下载

Delphi中编写无输出函数名的DLL文件

Delphi中编写无输出函数名的DLL文件
  • shuaihj
  • shuaihj
  • 2011年01月11日 15:58
  • 2137

delphi —StrToDateTime函数在不同系统出现错误的解决方案

原创来源:http://blog.csdn.net/cwpoint/article/details/6525213 Delphi提供了很多关于时间和日期的函数,非常方便。 引用 但是有时候一个疏忽导...

自己搜集编写的Delphi 通用函数

{ ********************************************************************** } { Currency Common Functi...

一次ORACLE OVER()开窗函数的使用经历

前景:有一张标的表(loan),用户每做一笔借款请求,都会产生一条记录,每一条借款记录都会有一个状态。比如CLOSED(已结标),IN_PROPRESS(还款中),READY(已满标),FAILED(...

Oracle row_number() over()解析函数高效实现分页

1. Oracle的分页查询语句基本上可以按照本文给出的格式来进行套用。 分页查询格式(有order by ---三层sql): SELECT * FROM ( SELECT A.*,...

oracle分析函数row_number() over()使用

http://cbf0713.blog.163.com/blog/static/9077890520102591928645/ row_number() over ([partiti...
  • lzhat
  • lzhat
  • 2017年02月28日 10:41
  • 183

分析函数OVER

准备工作: table:oracle用户scott下的emp表 ; 一. Oracle 从8.1.6开始提供分析函数,分析函数用于计算基于组的某种聚合值,它和聚合函数的不同之处是 ...
  • JIM110
  • JIM110
  • 2011年09月21日 13:40
  • 1293

DB2 中row_number() over()分析函数用法

row_number() over()分析函数用法 row_number()over(partition by col1 order by col2)表示根据col1分组,在分组内部根据col2...

检测评价函数 intersection-over-union ( IOU )

1、概念 在目标检测的评价体系中,有一个参数叫做 IoU ,简单来讲就是模型产生的目标窗口和原来标记窗口的交叠率。具体我们可以简单的理解为: 即检测结果(DetectionResult)与 Groun...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi编写函数,出现over flow
举报原因:
原因补充:

(最多只允许输入30个字)