Hallo
bin gerade dabei meine Anwendung ein wenig aufzureumen.
Jetzt habe ich das Problem das ich Code von einem Formular in ein Datamodul
verschoben habe. Es geht auch alles bis...
bei diesem Code erhalte ich die Fehlermeldung E2003 Undeclared identifier: 'caption'
der Code ist aber ok nur bei
caption[i]:=intToStr(icount); ist caption
unterstrichen.
Kann mir das jemand erklären?
Manfred
procedure TDM_nursing.id_convert(Sender: TObject);
begin
pFIBDB_Gideons.Open;
pFIBTrans.StartTransaction;
pFIBQ_NursingH.ExecQuery;
icount:=0;
while not pFIBQ_NursingH.eof do
begin
theOldId := pFIBQ_NursingH.fields[0].AsString; // there is only one field in here
theNewId:= CreateClassID;
pFIBQ_NursingH_UPDATE.ParamByName('new_id').AsStri ng:=theNewId;
pFIBQ_NursingH_UPDATE.ParamByName('old_id').AsStri ng:=theOldId;
pFIBQ_NursingH_UPDATE.ExecQuery;
inc(icount);
pFIBQ_NursingH.Next;
end;
pFIBTrans.Commit;
pFIBDB_Gideons.Close;
caption[i]:=intToStr(icount);