掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
BlockWriteで文字列（配列）を保存するには？ (ID：23536)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure Test2; var F:File; str:array[0..2]of string; i,j,n:integer; Buff:array of Char; begin str[0]:='123'; str[1]:='あいう'; str[2]:='あaいｂ'; AssignFile(F,'F:\test03'); rewrite(F,1); Buff:=nil; n:=0; for i:=0 to 2 do begin for j:=1 to length(str[i]) do begin setlength(buff,n+1); Buff[n]:=str[i][j]; inc(n); end; end; BlockWrite(F,PChar(Buff)^,n); closeFile(F); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.