|
▼ 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)の箇所を
変更するのを忘れていたと言う、おお戯け者のでした。
あたかも、上手く言ったいったように見えるわけです。
二度、三度と初歩的なミスをやってしまいました。
なんと申し上げてよいやら、お恥ずかしい。
お騒がせしました。
|