資源簡介
很長時間沒有用D7,但是小應用原生代碼還是要轉回到D7.這兩天在看同花順和通達信，下載后的盤后數據下載想直接導入EXCEL。參考網上的同花順數據格式介紹，下面的代碼用于在TMEMO控件中顯示文件頭和文件內容。長時間不用D7,生殊處請見諒。
procedure TForm1.btOpenClick(Sender: TObject);
var
TM:TMemoryStream;
FHard:TDayRec;
PColDef:PByte;
s,i:integer;
tmp:Dword;
begin
if OpenDialog1.Execute then begin
代碼片段和文件信息
?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件???????2360??2017-02-03?17:16??Uths.dfm
?????文件???????4091??2017-02-03?17:14??Uths.pas
-----------?---------??----------?-----??----
?????????????????6451????????????????????2
-----------?---------??----------?-----??----
?????文件???????2360??2017-02-03?17:16??Uths.dfm
?????文件???????4091??2017-02-03?17:14??Uths.pas
-----------?---------??----------?-----??----
?????????????????6451????????????????????2
評論
共有 條評論
川公網安備 51152502000135號