掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テーブルにレコード追加をするには (ID：43991)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
tassyさん、こんばんは。横から失礼します。 11回ループして代入している下記の部分ですが、 > Buffer[fi].VString := @S; は、S(ShortString)のポインタを代入しているので、最後11回目の値が全てのフィールドに書かれているのだと思います。 宣言を S: array [0..10] of ShortString; 代入を S[fi] := varTostr(ExValues[1,fi+1]); 最後のポインタの代入を Buffer[fi].VString := @S[fi]; ...に変更すれば、お望みの動きになりませんか？？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.