通達信數(shù)據(jù)讀取(delphi版)

通達信數(shù)據(jù)讀取(delphi版)

ID:33494765

大小:93.95 KB

頁數(shù):9頁

時間:2019-02-26

通達信數(shù)據(jù)讀取(delphi版)_第1頁
通達信數(shù)據(jù)讀取(delphi版)_第2頁
通達信數(shù)據(jù)讀取(delphi版)_第3頁
通達信數(shù)據(jù)讀取(delphi版)_第4頁
通達信數(shù)據(jù)讀取(delphi版)_第5頁
資源描述:

《通達信數(shù)據(jù)讀取(delphi版)》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在教育資源-天天文庫

1、unitUnitDataMng;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,DB,ADODB,StdCtrls,ExtCtrls,ComCtrls,Mask,DBCtrls,ComObj,Menus,CheckLst,Grids,ZAbstractRODataset,ZDataset,ZAbstractDataset,FileCtrl,ShellCtrls;typeTFormDataMng=class(TFo

2、rm)Sb1:TStatusBar;Button1:TButton;Memo1:TMemo;Button2:TButton;Button3:TButton;Memo2:TMemo;Button4:TButton;Button5:TButton;edtGpCode:TEdit;Edit1:TEdit;Memo3:TMemo;procedureButton1Click(Sender:TObject);procedureButton3Click(Sender:TObject);procedureButton2Click(Sender:TObje

3、ct);procedureButton4Click(Sender:TObject);procedureButton5Click(Sender:TObject);procedureEdit1Change(Sender:TObject);privatepublicend;typeStockData=recorddate:integer;open:integer;high:integer;low:integer;close:integer;amount:integer;vol:integer;reservation:integer;end;va

4、rFormDataMng:TFormDataMng;implementationusesUnitMain;{$R*.dfm}functionhTot(iHex:string):integer;begin//intToHex(idays,2)hTot:=0;end;procedureTFormDataMng.Button1Click(Sender:TObject);variFileHandle:Integer;//idays:word;//Buffer:PChar;idays:Longword;i:integer;beginmemo1.Cl

5、ear;tryiFileHandle:=FileOpen(ExtractFilePath(ParamStr(0))+'datash601398.day',fmOpenRead);ifiFileHandle<=0thenexit;FileSeek(iFileHandle,0,0);fori:=0to31dobeginidays:=0;FileSeek(iFileHandle,1,1);FileRead(iFileHandle,idays,1);memo1.Lines.Add(intToStr(i)+':'+intToStr(idays)

6、);end;//FileRead(iFileHandle,idays,4);//memo1.Lines.Add('日期'+intToStr(idays));FileClose(iFileHandle);exceptonE:Exceptiondoshowmessage(E.Message);end;end;procedureTFormDataMng.Button3Click(Sender:TObject);vari:integer;sHexLine,s,sMemo1Line:string;beginmemo1.Clear;fori:=0to

7、memo2.Lines.Count-1dobeginsHexLine:=trim(memo2.Lines.Strings[i]);sMemo1Line:='';//一行十六進制字符串轉(zhuǎn)換whilelength(sHexLine)>0dobegins:=copy(sHexLine,0,1);ifhTot(s)=99thensMemo1Line:=sMemo1Line+''elsesMemo1Line:=sMemo1Line+inttostr(hTot(s));//sMemo1Line:=sMemo1Line+s+':'+inttostr(h

8、Tot(s));delete(sHexLine,1,1);//memo1.Lines.Add(sHexLine);end;memo1.Lines.Add(sMemo1Line);end;end

當前文檔最多預覽五頁,下載文檔查看全文

此文檔下載收益歸作者所有

當前文檔最多預覽五頁,下載文檔查看全文
溫馨提示:
1. 部分包含數(shù)學公式或PPT動畫的文件,查看預覽時可能會顯示錯亂或異常,文件下載后無此問題,請放心下載。
2. 本文檔由用戶上傳,版權(quán)歸屬用戶,天天文庫負責整理代發(fā)布。如果您對本文檔版權(quán)有爭議請及時聯(lián)系客服。
3. 下載前請仔細閱讀文檔內(nèi)容,確認文檔內(nèi)容符合您的需求后進行下載,若出現(xiàn)內(nèi)容與標題不符可向本站投訴處理。
4. 下載文檔時可能由于網(wǎng)絡(luò)波動等原因無法下載或下載錯誤,付費完成后未能成功下載的用戶請聯(lián)系客服處理。