Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
我在 Delphi 下使用 dBase 的資料庫格式,其中有一個欄位是memo,但我要如何才能存取這個欄位呢?
以下的程式片段截自, DCHAT.EXE 的 IOU.PAS(DelphiChat討論資料庫瀏覽程式), 您可以在Delphi學習筆記(創作篇)中找到其原始程式
(*--------------------------------------------------*) (* (* (* (*--------------------------------------------------*) procedure TfrmIO.MoveRecord(tblFrom, tblTo: TTable; const sToWhere: string); var pBuffer: PChar; iSize: longint; sId: string[9]; begin ... .. (* 備註欄位資料的搬移 *) with TBlobStream.Create(TMemoField(tblFrom.FieldByName('Content')), bmRead) do begin iSize := Size; GetMem(pBuffer, iSize + 1); FillChar(pBuffer^, iSize + 1, #0); Read(pBuffer^, iSize); Free; end; with TBlobStream.Create(TMemoField(tblTo.FieldByName('Content')), bmWrite) do begin Write(pBuffer^, iSize); Free; end; tblTo.Post; if not bIsOutput then frmMain.UpdateIdTable(sId, sToWhere); FreeMem(pBuffer, iSize + 1); end;
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |