名前
題名
▼ Mr.XRAYさん > > 基本的に ユニコードで扱うベキでしょう． > > ZeosLib の Portal サイトを検索したら，こんな記事がありました． > この赤枠のリンクの記事の 5. の対策方法，つまり， > Delphi 7 のコントロールのユニコード化しかないでしょう． > > http://zeoslib.sourceforge.net/viewtopic.php?f=33&t=3427&p=14292&hilit=codePage+SQLite#p14292 > > [Tnt Unicode Controls] > https://www.yunqa.de/delphi/products/tntunicodecontrols/index > > [UTF-8 VCL] > https://sourceforge.net/projects/utf8vcl/ > > インストールが必要ないので UTF-8 VCL を使ってみました． > 実行結果の図は Windows 7 U64(SP1) + Delphi 7 Pro + ZeosLib 6.6.6 > and SLQLite 3.16.2 (最新版) > > [566] に添付の AddressBook_A.db3 の表 (1 つしかありません) を表示 > したものです．インポートの結果です． > > > procedure TForm1.Button1Click(Sender: TObject); > var > FDBName : string; > FTableName : string; > begin > FDBName := ExpandFileName('..\AddressBook_A.db3'); > FTableName := 'AddressTBL'; > > ZQuery1.Close; > ZConnection1.Disconnect; > ZConnection1.LoginPrompt := False; > > ZConnection1.Protocol := 'sqlite-3'; > ZConnection1.Database := FDBName; > > //TZQueryの設定 > ZQuery1.Connection := ZConnection1; > ZQuery1.Close; > ZQuery1.SQL.Clear; > ZQuery1.SQL.Add('select * from ' + FTableName); > ZQuery1.Open; > > DBGrid1.Columns[0].Width := 30; > DBGrid1.Columns[1].Width := 90; > DBGrid1.Columns[3].Width := 160; > end; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link