請問delphi如何讀取循序檔,然後在寫入資料庫,謝謝!

引言: 請問delphi如何讀取循序檔,然後在寫入資料庫,謝謝!

那一種循序檔?是像Cobol的sequence file(.DAT)檔嗎? 或是純二進位檔? ～～～Delphi K.Top討論區站長～～～

站長是純二進位檔,可否提供範例,謝謝!

一 另再請問站長,在設分組列印時,分組資料都是接續列印,如何讓每分組都由新第一頁開始列印,且去都印表頭,謝謝.(QuickReport). 二請問有關fastreport 2.46 如何安裝,因在安裝時出現一些缺tprfspeedbutton等元件錯誤,及相關Rc檔案如何運用,謝謝.

Dear mircle86: 問題已了解,待我抽空回覆... ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

引言: 一 另再請問站長,在設分組列印時,分組資料都是接續列印,如何讓每分組都由新第一頁開始列印,且去都印表頭,謝謝.(QuickReport).

QRGroup1.ForceNewPage := True; QRGroup1.ReprintOnNewPage := True;

人生有夢，逐夢而行 人若為善，福雖未至，禍已遠離 人若為惡，禍雖未至，福已遠離 http://www.taconet.com.tw/jieshu/

引言: 請問delphi如何讀取循序檔,然後在寫入資料庫,謝謝!

假設您的二進位檔為c:\binary.dat 每筆記錄長度為20bytes,每筆記錄中有兩個欄位各10個char, 程式如下: procedure TForm1.Button1Click(Sender: TObject); var FromF: file; NumRead: Integer; Buf: array[1..20] of Char; str,s1,s2,sql:string; begin AssignFile(FromF, 'c:\binary.dat'); Reset(FromF, 1); repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); str:=buf; setlength(str,NumRead); caption:=caption '[' s1 ']'; s1:=copy(str,1,10); s2:=copy(str,11,10); sql:='INSERT INTO TABLE1 VALUE(''' s1 ''',''' s2 ''')'; // execsql until (NumRead < SizeOf(Buf)) ; CloseFile(FromF); end; ～～～Delphi K.Top討論區站長～～～

請問前輩像Cobol的sequence file(.DAT)檔呢？

引言: 請問前輩像Cobol的sequence file(.DAT)檔呢？

也是同樣的原理啊? 讀出一筆一筆的Record 之後再轉存成文字檔 可以參考站長的16進位編修工具 http://delphi.ktop.com.tw/topic.php?topic_id=29705 查看.DAT檔的結構再來讀寫 ～～～Delphi K.Top討論區站長～～～