請問delphi如何讀取循序檔,然後在寫入資料庫,謝謝! |
|
mircle86
一般會員 ![]() ![]() 發表:20 回覆:17 積分:7 註冊:2002-04-10 發送簡訊給我 |
|||
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|||
mircle86
一般會員 ![]() ![]() 發表:20 回覆:17 積分:7 註冊:2002-04-10 發送簡訊給我 |
|||
mircle86
一般會員 ![]() ![]() 發表:20 回覆:17 積分:7 註冊:2002-04-10 發送簡訊給我 |
|||
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|||
jieshu
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:42 回覆:894 積分:745 註冊:2002-04-15 發送簡訊給我 |
引言: 一 另再請問站長,在設分組列印時,分組資料都是接續列印,如何讓每分組都由新第一頁開始列印,且去都印表頭,謝謝.(QuickReport).QRGroup1.ForceNewPage := True; QRGroup1.ReprintOnNewPage := True;
------
人生有夢,逐夢而行 人若為善,福雖未至,禍已遠離 人若為惡,禍雖未至,福已遠離 http://www.taconet.com.tw/jieshu/ |
||
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
引言: 請問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討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~ |
||
vikia
一般會員 ![]() ![]() 發表:0 回覆:1 積分:0 註冊:2002-03-25 發送簡訊給我 |
|||
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |