DateTime-Variable einer Funtion übergeben

[sventeq]

Hallo zusammen, hab da ein kleines Problem. Ich muss ein Datum auf Samstag oder Sonntag prüfen. Das klappt auch alles ganz prima. Jetzt wollte ich diese Prüfung in einer Funktion auslagern und da bekomme ich jetzt eine Fehlermeldung.

"TMenuItem kann nicht zu TDateField zugewiesen werden"

Delphi-Quellcode:

function sa_so_pruefung(laufdatum1:tdatetime):tdatetime;
begin
  if dayofweek(laufdatum1)-1 = 6 then
                  begin
                    Result:=laufdatum1-1;
                    kapadb.kap001test.Prior;
                  end;
                  if dayofweek(laufdatum1)-1 = 0 then
                  begin
                    Result:=laufdatum1-2;
                    kapadb.kap001test.Prior;
                    kapadb.kap001test.Prior;
                  end;
end;

laufdatum:=sa_so_pruefung(laufdatum);

was mache ich da falsch? Wäre für etwas Hilfe echt dankbar

[DeddyH]

Wenn Du uns jetzt noch sagst, was laufdatum, kapadb und kap001test für Komponenten/Datentypen sind, können wir Dir bestimmt helfen.

[sventeq]

Zitat von DeddyH:

Wenn Du uns jetzt noch sagst, was laufdatum, kapadb und kap001test für Komponenten/Datentypen sind, können wir Dir bestimmt helfen.

Das laufdatum ist tdatetime, kapadb ist eine Unit mit Datenbankzugriff und kap001test ist eine TTable

[DeddyH]

Hmm, das scheint soweit alles richtig zu sein. Hast Du evtl. noch ein MenuItem selben Namens?

[RavenIV]

Zitat von sventeq:

was mache ich da falsch? Wäre für etwas Hilfe echt dankbar

1) Du ignorierst Gross/Kleinschreibung. Das macht den Code nicht besonders leserlich.
2) Du benutzt den "_" im Funktionsnamen. Das macht den Code nicht besonders leserlich.
3) was ist "laufdatum"? Könnte es vielleicht wirklich einen Menueintrag mit diesem Namen geben?
4) Zum Testen:
4a) leg eine neue Variable an -> TestDatum : TDateTime;
4b) mach dann: TestDatum := SaSoPruefung(Now);
4c) was steht dann in TestDatum?

[shmia]

Du suchst garantiert an der falschen Stelle.
Ein Doppelklick auf die Fehlermeldung bringt dich genau in die fehlerhafte Zeile im Sourcecode.

[tomsel]

Dann würde ich die Fehlerursache mal in kap001testAfterScroll vermuten, falls vorhanden.

[sventeq]

Zitat von DeddyH:

Hmm, das scheint soweit alles richtig zu sein. Hast Du evtl. noch ein MenuItem selben Namens?

Definitiv nicht.

[DeddyH]

Dann versuch mal #6 und nenn uns die monierte Zeile.

[RavenIV]

Hallo????
Hat überhaupt einer meinen Post bemerkt?
Es war #5.