Hallo zusammen
for einiger Zeit habe ich ( mit grosser Hilfe eines Bekannten ) ein kleines
Import / Convertierungsprogramm erstellt.
Das Problem ist nun das ich dieses Programm erweitern muss ( darf ) und ich
der Ordnung halter auch mit Datamodulen Arbeite.
Der Folgende Code funktioniert einwandfrei aber die Zeile
caption:=intToStr(icount);
Will er nicht in einem Datamodule.
Der Code ist für mich eigentlich verständlich ausser was er in dieser Zeile
macht und wie ich das in einem Datamodule erledigen kann.
Delphi-Quellcode:
procedure TDM_nursing.id_convert(Sender: TObject);
begin
DB_Gideons.Open;
pFIBTrans.StartTransaction;
Q_NursingH.ExecQuery;
icount:=0;
while not Q_NursingH.eof do
begin
theOldId := Q_NursingH.fields[0].AsString; // there is only one field in here
theNewId:= CreateClassID;
Q_NursingH_UPDATE.ParamByName('new_id').AsString:=theNewId;
Q_NursingH_UPDATE.ParamByName('old_id').AsString:=theOldId;
Q_NursingH_UPDATE.ExecQuery;
inc(icount);
Q_NursingH.Next;
end;
pFIBTrans.Commit;
DB_Gideons.Close;
caption:=intToStr(icount);
Shalom
Manfred