名前
題名
▼ Syakeさん > ▼ Syakeさん > > マスター、朝っぱらからすいません。 > 大変申し訳ございませんでした　<m(__)m> > > if Result <> nil then > begin > 　　・・・(別のデータセットを開く) > 　　ADODataSet1.Open; > if ADODataSet1.RecordCount > 0 then > begin > for i := 0 to ADODataSet1.RecordCount -1 do > begin > for j := 0 to Length(Result) -1 do > begin > if Result[j].fXxxx = ADODataSet1.FieldByName('YYYY').AsXxxxx then > begin > →　Result[i].fYxxxx := ADODataSet1.FieldByName('ZZZZ').AsXxxxx; > end; > ・・・・ > end; > end; > ADODataSet1.Close; > end; > > こりゃ、エラーになります。 > しかも、ローカル変数を宣言した際 //Length(Result)の箇所を > 変更するのを忘れていたと言う、おお戯け者のでした。 > あたかも、上手く言ったいったように見えるわけです。 > > 二度、三度と初歩的なミスをやってしまいました。 > なんと申し上げてよいやら、お恥ずかしい。 > お騒がせしました。 >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link