Ungültiges Quell-Array bei Zuweisung string zu Query.FieldByName

[haentschman]

Zitat:

Dann mach doch einen Unit-Test

...damit stehe ich auf Kriegsfuß...wegen Zeitmangel.

Zitat:

Tritt der Fehler auch auf, wenn das Programm beim Virenscanner als Ausnahme hinzugefügt wird?

...kann ich mal probieren. Ich halte die Aussichten aber eher unter 1%.

[Uwe Raabe]

Zitat von haentschman:

Zitat:

Dann mach doch einen Unit-Test

...damit stehe ich auf Kriegsfuß...wegen Zeitmangel.

... und wieviel Zeit steckst du mittlerweile in die Suche nach diesem Fehler?

{$I Geschichte von dem Bauern, der keine Zeit hat einen Zaun zu bauen, weil er die Kühe einfangen muss }

Wenn du einen Test schreibst, der die besagte Zeile ein paar Millionen mal fehlerfrei aufruft, dann brauchst du an der Stelle vermutlich nicht mehr weiter zu suchen. Das Problem liegt dann (wie schon vermutet) an einer anderen Stelle und die sichtbare Fehlermeldung ist nur ein Nebeneffekt eines anderen Fehlers.

[haentschman]

Zitat:

... und wieviel Zeit steckst du mittlerweile in die Suche nach diesem Fehler?

...bis auf das Lesen der Meldung...keine. Ich habe noch andere Baustellen...

Zitat:

Wenn du einen Test schreibst, der die besagte Zeile ein paar Millionen mal fehlerfrei aufruft,

...ich habe mich damit noch nicht beschäftigt.

[Uwe Raabe]

Zitat von haentschman:

...bis auf das Lesen der Meldung...keine. Ich habe noch andere Baustellen...

Dann scheint es ja auch nicht sooo wichtig zu sein

[freimatz]

Zu Unit-Tests: https://blogs.itemis.com/schreibe-niemals-unit-tests

[haentschman]

Moin...

...das der Quelltext in Ordnung sei, ist nicht ganz richtig. Aber ihr konntet es nicht wissen...

Fällt Euch was auf?

Delphi-Quellcode:

procedure TDMED.FDQVorgangAssignmentNewRecord(DataSet: TDataSet);
begin
  DMED.FDQVorgangAssignment.FieldByName('idBelKopf').AsString := DMED.FDQAssignment.FieldByName('idBelKopf').AsString;
  DMED.FDQVorgang.FieldByName('ixUserVon').AsString := FPreferences.CurrentUser.UserNameShort;
  DMED.FDQVorgang.FieldByName('ErfasstAm').AsDateTime := Now();
  DMED.FDQVorgang.FieldByName('ixSPAdr').AsString := DMED.FDQAssignment.FieldByName('ixSPAdr').AsString;
end;

...so muß es sein:

Delphi-Quellcode:

procedure TDMED.FDQVorgangAssignmentNewRecord(DataSet: TDataSet);
begin
  DMED.FDQVorgangAssignment.FieldByName('idBelKopf').AsString := DMED.FDQAssignment.FieldByName('idBelKopf').AsString;
  DMED.FDQVorgangAssignment.FieldByName('ixUserVon').AsString := FPreferences.CurrentUser.UserNameShort;
  DMED.FDQVorgangAssignment.FieldByName('ErfasstAm').AsDateTime := Now();
  DMED.FDQVorgangAssignment.FieldByName('ixSPAdr').AsString := DMED.FDQAssignment.FieldByName('ixSPAdr').AsString;
end;

...vorher schreibe ich in eine andere Datenmenge.

Das ist mit der Trennung der Datenmenge passiert...

Danke für die Teilnahme... Sollte nochwas sein, melde ich mich.


ja, ja, ja... mit UnitTests wäre das nicht passiert.

[BerndS]

wäre es nicht so noch besser?

Delphi-Quellcode:

procedure TDMED.FDQVorgangAssignmentNewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('idBelKopf').AsString := DMED.FDQAssignment.FieldByName('idBelKopf').AsString;
  DataSet.FieldByName('ixUserVon').AsString := FPreferences.CurrentUser.UserNameShort;
  DataSet.FieldByName('ErfasstAm').AsDateTime := Now();
  DataSet.FieldByName('ixSPAdr').AsString := DMED.FDQAssignment.FieldByName('ixSPAdr').AsString;
end;