掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
BlockWriteで文字列（配列）を保存するには？ (ID:23537)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
出来るだけオリジナルに忠実に書くと procedure ToFile; var F:File; //宣言し忘れ？グローバル変数？ str:array[0..2]of string; Buff:array[0..255]of Char; //タイプミス i,j:integer; begin str[0]:='123'; str[1]:='あいう'; str[2]:='あaいｂ'; AssignFile(F,'c:\temp\test.dat'); //ファイルを指定（ファイル名は適当） Rewrite(F,1); // ファイルを作成 for i:=0 to 2 do begin j:=GetChars(Buff, str[i]); Buff[j]:=#0 ; BlockWrite(F, Buff, (j+1)); end; CloseFile(F); //ファイルを閉じる end; >BlockWrite(F, Buff, (j+1)); この部分のFが宣言されてないし、初期化されてない。 グローバル変数で他で宣言しているならその部分が間違っているのでは？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.