名前
題名
▼ Mr.XRAYさん > AI という技術というかテクノロジーに興味はあるのですが， > 昨今の AI が，とか，AI がどうのこうの，ということにはあまり興味ありません． > で，やってみました． > 質問は 「Delphiでテキストをバイナリに変換する方法」です． > > > ------ ここから回答 ------ > > 受信したメッセージ. Delphiでテキストをバイナリに変換する方法は、以下のようになります。 ``` > > var > TextFile: TextFile; > BinaryFile: File of Byte; > Buffer: array[0..1023] of Byte; > Count: Integer; > begin > AssignFile(TextFile, 'Text.txt'); > AssignFile(BinaryFile, 'Binary.bin'); > Reset(TextFile); > Rewrite(BinaryFile); > try > repeat > BlockRead(TextFile, Buffer[0], SizeOf(Buffer), Count); > BlockWrite(BinaryFile, Buffer[0], Count); > until Count = 0; > finally > CloseFile(TextFile); > CloseFile(BinaryFile); > end; > end; > 上記のコードは、テキストファイルをバイナリファイルに変換する方法です1. > > 詳細情報: > 1. petitmonte.com > 2. docwiki.embarcadero.com > 3. docwiki.embarcadero.com > > ---- 回答はここまで ----- > > > 詳細情報はリンクになっていて，以下の URL になっていました． > > https://www.petitmonte.com/bbs/answers?question_id=2420 > > https://docwiki.embarcadero.com/RADStudio/Sydney/ja/%E6%A8%99%E6%BA%96%E3%83%AB%E3%83%BC%E3%83%81%E3%83%B3%E3%81%A8%E5%85%A5%E5%87%BA%E5%8A%9B > > https://docwiki.embarcadero.com/RADStudio/Sydney/ja/%E3%83%90%E3%83%AA%E3%82%A2%E3%83%B3%E3%83%88%E5%9E%8B%EF%BC%88Delphi%EF%BC%89 > 2
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link