integer zu word typecast problem

[chrislike]

hi,

sorry für die dumme frage, aber delphi bringt mich zum verzweifeln. muss dazu sagen, bin sehr neu in delphi

Code:

function isWeekend(ACol:Integer; year, month: word) :boolean;
var newDate :TDate;
    weekday :word;
begin
    newDate := EncodeDate(year, month, ACol);
    weekday := DayOfWeek(newDate);
    if (weekday = 1) OR (weekday = 7) then
       result := true
    else
       result := false;
end;

so folgendes problem:

er meckert das die EncodeDate argumente ungültig sind, ja ich weiß ACol sollte word sein, jegliche typecast versuche meinerseits schlugen fehl

ich komm nich weiter und im inet bzw forum hab ich auch nix gescheites gefunden

bitte um hilfe

mfg chris

[3_of_8]

Kompiliert bei mir (Delphi 7) ohne Probleme. Aber so lässt es sich vereinfachen:

Delphi-Quellcode:

function isWeekend(ACol:Integer; year, month: word) :boolean;
begin
    Result:=DayOfWeek(EncodeDate(year, month, ACol)) in [1, 7];
end;

[chrislike]

hab auch delphi7.

es erscheint nach dem compilieren ein fehler fenster in dem ein EConvertError beschrieben wird.

vielleicht sollte ich zu der funktion sagen, dass sie von einem StringGridOnDrawCell ereignis aufgerufen wird.

MfG chris

[semo]

beim stringgrid beginnen meines wissens nach die columns beim index 0.
wenn du nun versuchst auf den 0. tag eines monats zuzugreifen kann das wohl nicht klappen.

[chrislike]

das ist mir auch schon aufgefallen aber jegliche eingrenzungsversuche von ACol meinerseits schlugen ebenfalls fehl bzw wurden vom programm so nich akzeptiert und es hat denselben error ausgespuckt :/

mfg chris

[semo]

wie willst du denn column eingrenzen wenn der startwert immer 0 ist? du musst da etwas an deioner herangehensweise ändern....

[chrislike]

ich meinte ich grenze es insoweit ein, dass die funktion nur nach ACol Werten >=1 und <=31 aufgerufen wird

mfg chris

[chrislike]

boah nee, jetzt hab ichs ^^

mein stringgrid wird immer mit dem akutellen monat erzeugt und da der september nunmal nur 30 tage hat, war meine eingrenzung wohl nich klein genug

danke für den tipp

mfg chrislike

[semo]

no problem. dafür sind wir ja hier