caption:=intToStr(icount) in einem Datamodul

[manfred_h]

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