Problem mit Zähler in For-Schleife (gelöst)

[JannesDKS]

Hallo,

ich habe ein kleines Problem mit einer For-Schleife. Sie befindet sich in dem Before-Post eines Datasets.

Delphi-Quellcode:

  for i := 1 to DataSet.FieldCount do
  begin
    if DataSet.Fields.FieldByNumber(i).FieldName = 'DONE' then
    begin
      if DataSet.Fields.FieldByNumber(i).NewValue<> DataSet.Fields.FieldByNumber(i).oldValue then CheckCertified := False;
    end else
    begin
      if DataSet.Fields.FieldByNumber(i).NewValue<> DataSet.Fields.FieldByNumber(i).oldValue then CheckCertified := True;
    end;
  end;

Fieldcount ist 68, aber nach 60 geht i wieder auf 0. bitte erleuchtet mich mit eurer Weisheit

[mkinzler]

Eigentlich müsste es
for i := 0 to DataSet.FieldCount-1 do heissen

[s.h.a.r.k]

Jup, so sollte es eigentlich sein. Aber bei dem gegebenen Code müsste dann ja eine Exception auftreten, oder? Und nicht der beschrieben Fehler, den ich mal mehr als strange finde.

[JannesDKS]

ich dachte, das fieldbynumber auch mit 1 anfängt. bei 0 gibt er auf jeden fall eine Zugriffsverletzung an.

[shmia]

Dein Code ist sehr umständlich. Die Lösung heisst Zwischenvariable:

Delphi-Quellcode:

var
  f : TField;
begin
  CheckCertified := False; // sollte nicht fehlen, da CheckCertified ansonsten undefiniert sein könnte
  for i := 1 to DataSet.FieldCount-1 do 
  begin
    f := Dataset.Fields[i];
    if f.FieldName = 'DONE' then 
    begin 
      if f.NewValue<> f.oldValue then CheckCertified := False; 
    end else 
    begin 
      if f.NewValue<> f.oldValue then CheckCertified := True; 
    end; 
  end;

Damit ist die Sache schon viel übersichtlicher.
Dann gibt es noch einen logischen Fehler.
Die Variable CheckCertified kann bei jedem Feld neu gesetzt werden.
Das letzte veränderte Feld entscheidet über den Inhalt von CheckCertified.
Es ist also wichtig, an welcher Feldposition das Feld 'DONE' steht.
Aber das willst du sicher nicht, oder?

[JannesDKS]

ah ich hab's =

Zitat:

Mit FieldByNumber können Sie Feldinformationen für ein Feld abrufen, von dem nur die Feldnummer bekannt ist. Beachten Sie bitte, dass die Feldnummer die Position des Feldes in der zugrunde liegenden Datenbanktabelle angibt, nicht den Index des Feldes in dem TFields-Objekt.

in der Delphi-Hilfe steht's klar drin. Trotzdem Danke für die Antworten

[JannesDKS]

hey shmia, das ist kein logischer Fehler, sondern so gewollt. Wenn zum Beispiel Done und(!) ein anderes Feld geändert wurden, dann soll das Result True sein. Ansonsten hättest du natürlich recht.

[DeddyH]

Falls ich die Logik richtig verstanden habe:

Delphi-Quellcode:

var
  f : TField;
begin
  CheckCertified := true; //Standardwert festlegen
  for i := 1 to DataSet.FieldCount-1 do
  begin
    f := Dataset.Fields[i];
    if f.FieldName = 'DONE' then
      CheckCertified := f.NewValue<> f.oldValue;
  end;
end;

[JannesDKS]

Danke, das sieht gut aus, besser als meins. FieldbyNumber war der Hauptfehler. hab ich grad schon gemerkt. der Fields[i] ist das wahre.
Probier ich gleich mal aus

[JannesDKS]

So, ich denk ich hab's. Vielen Dank nochmal.

wen's interessier hier nochmal Die Lösung:

Delphi-Quellcode:

Fieldcount := DataSet.FieldCount;
  for i := 0 to FieldCount-1 do
  begin
    f := Dataset.Fields[i];
    if (f.FieldName = 'DONE')
    or (f.FieldName = 'DOCUMENT_NAME')
    or (f.FieldName = 'REFERENCE')
    or (f.FieldName = 'CONTACT_NAME')
    or (f.FieldName = 'REMINDER_DATE')
    or (f.FieldName = 'REMARKS_ACTION') then
    begin
      if f.NewValue<> f.oldValue then EditableField := True;
    end else
    begin
      if f.NewValue<> f.oldValue then NotEditableField := True;
    end;
  end;

  if not ((EditableField = true) and (NotEditableField = False)) then
  begin
....

Der Sinn war halt, dass nur bestimmte Felder in einer zertifizierten Periode geändert werden können sollen. Sogesehen hatte shmia doch recht und ich hab das mit dem Logikfehler nicht richtig durchschaut. Asche auf mein Haupt