掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
レコード型→文字列 (ID：22318)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
固定長ファイルの入出力プログラムを作成しています。 入力時、レコード型を定義し、moveして固定長の各フィールドの値を取得しています。 出力時、レコード型のフィールドをバッファ文字列にプラスで結合して代入しておりますが、 せっかくのレコード型を一括でバッファ文字列に代入して出力する方法はないでしょうか。 また、固定長テキストファイルを出力する場合の王道（？）とはどのような方法なのでしょうか。 ・読込処理 var INPRec: record INP1: array[0..1] of Char; INP2: array[0..3] of Char; end; buf:String; //読込バッファ begin //読込−−−− Move(buf[1],INPRec,SizeOf(INPRec)); ShowMessage(INPRec.TEST1 + '/' + INPRec.TEST2); end; ・書込処理 var OUTRec: record OUT1: String[2]; OUT2: String[4]; end; buf:String; //読込バッファ begin OUTRec.OUT1 := '11'; OUTRec.OUT2 := '2222'; Buf := OUTRec.OUT1 + OUTRec.OUT2; //出力−−−− end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.