掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
BlockWriteで文字列（配列）を保存するには？ (ID：23535)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
BlockWrite最近使った事がなかったので確認の為作ってみました 本当は最後にまとめて書き込むんでしょうが手抜きです。 procedure ToFile; var F:File of char; str:array[0..2]of string; i,j:integer; Buff:Char; begin str[0]:='123'; str[1]:='あいう'; str[2]:='あaいｂ'; AssignFile(F,'F:\test01'); rewrite(F); for i:=0 to 2 do begin for j:=1 to length(str[i]) do begin BlockWrite(F,str[i][j],1); end; end; closeFile(F); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.