バイナリの読み込み (ID:2860)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 にしのさん、たかみさん、ありがとうございました。 SetLengthだけ加えても、文字列すべて読み込むことができないので、ちょっと付け加えたらうまく読み込めました。 保存用のほうもデータが合うように変えました。 fs := TFileStream.Create('D:\test.txt', fmOpenRead); try fs.ReadBuffer(i, SizeOf(i)); SetLength(s, i); fs.ReadBuffer(PChar(s)^, i); Memo1.Text := s; finally fs.Free; end;