|
以下に、Delphi で Pervasive PSQL アプリケーションを開発するときに考慮が必要なことを示します。
CustKeyBuffer:string; // 長い文字列型 CustBufLen :word; // BTRV() はキー長として常に 255 を渡すため、 // MAX_KEY_LEN は 255 CustKeyBuffer := StringOfChar(' ', MAX_KEY_LEN); CustBufLen := SizeOf(CustRec); Status := BTRV(B_GET_FIRST, CustPosBLock, CustRec, CustBufLen, CustKeyBuffer, 0); {CustKeyBuffer にはキーの値が入っている} {取得したレコード}
|