名前
題名
▼ Mr.XRAYさん > テキストを型なしファイルで扱う必要性については分かりませんが， > 型なしファイルでテキストを扱う例です． > Char 型の文字配列の方が便利かも知れませんが，string 型のコードにしています． > > procedure TForm1.Button1Click(Sender: TObject); > var > LFilePath : string; > LTextFile : File; > LSrcText : string; > LDstText : string; > LSrcLen : Integer; > LWriteLen : Integer; > begin > // このサンプルでは 000.txt はテキストファイルではない > LFilePath := '000.txt'; > > System.Assignfile(LTextFile, LFilePath); > System.Rewrite(LTextFile); > > System.Assignfile(LTextFile, LFilePath); > System.Rewrite(LTextFile); > > LSrcText := 'テスト文字列-BBB'; > LSrcLen := Length(LSrcText) * SizeOf(Char); > System.BlockWrite(LTextFile, LSrcText[1], LSrcLen, LWriteLen); > > SetLength(LDstText, LWriteLen div SizeOf(Char)); > > System.Reset(LTextFile, 1); > System.BlockRead(LTextFile, LDstText[1], LWriteLen); > ShowMessage(LDstText); > > System.CloseFile(LTextFile); > end; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link