Hallo! Stunden später häng ich jetzt grad dran das sinnvoll zu verwenden, d.h. er soll in nen StringGrid nur die Termine für den ausgewählten Tag anzeigen!
Ich denke mal er macht was ich will, aber er zeigt es nur wieder beim zuletzt eingegebenen! Aber ich weiß nicht wie ich so einen Redraw der Form ausführe? Habs mit Form1.Refresh probiert, aber da passiert auch nicht mehr
Der Teil wo das "x" vorkommt soll eine leere Zeile suchen und dann dort reinschreiben.. Das n ist immer die Anzahl der Termine..
Delphi-Quellcode:
procedure TForm1.MonthCalendar1Click(Sender: TObject);
var Jahr, Monat, Tag: word; i, c, x: integer;
begin
Form1.DateTimePicker1.Date:=MonthCalendar1.Date;
DecodeDate(DateTimePicker1.Date, Jahr, Monat, Tag);
for i := 1 to n do
if T[i].J=Jahr then
if T[i].M=Monat then
if T[i].T=Tag then
begin
for c := 1 to StringGrid1.RowCount - 1 do StringGrid1.Rows[c].Clear();
x:=0;
repeat
x:=x+1;
until StringGrid1.Cells[1, x]='';
StringGrid1.Cells[0, i]:=DateToStr(EncodeDate(T[i].J, T[i].M, T[i].T));
StringGrid1.Cells[1, x]:=T[i].Zh + ' : ' + T[i].Zm;
StringGrid1.Cells[2, x]:=T[i].B;
StringGrid1.Cells[3, x]:=T[i].O;
end
else
for c := 1 to StringGrid1.RowCount - 1 do StringGrid1.Rows[c].Clear();
end;