hups hab noch was vergessen zu fragen ...
bei mir geht das mit dem bolten nicht ... ich wollte das mit nem array machen , sprich tage da in ein array packen und dieses array dann bolten lassen hier der code was ist daran falsch
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
VAR i,k,j: INTEGER;
datum2 : STRING;
bolting : ARRAY[1..30] of cardinal;
begin
i := 0;
Datum := datetostr(MonthCalendar1.Date);
monat := datum[4] + datum[5];
edit1.Text := monat;
while not Table1.eof do begin
datum2 := Table1.FieldByName('Datum').AsString;
datum2 := datum2[4] + datum2[5];
if datum2 = datum then
inc(i);
bolting[i] := strtoint(datum2);
Table1.next;
end;
MonthCalendar1.BoldDays([bolting],MonthBoldInfo);
[edit=Sharky]Delphi-Tags korrigiert. Mfg, Sharky[/edit]