Hi zusammen
Ein besserer Titel ist mir da leider nicht eingefallen. Ich bin dabei, eine brauchbare Oberfläche für meinen Kalender zu entwerfen. Dazu fülle ich zur Laufzeit ein Stringggrid in einem Frame. Dieser enthält (zumindest bis jetzt) nur gerade die Prozedur zum füllen des Grids. Das Testprogramm enthält letztlich mehrere solcher Frames.
Nun habe ich vor einiger Zeit einen Frame angelegt und diesem eine schon bestehende und erprobte Prozedur zum füllen des Grids verpasst. Bei Programmstart rufe ich diese Prozedur auf, das Programm hält an zwei Haltepunkten, so dass ich besagte Procedur Zeile für Zeile durchlaufen kann.
Aber nachdem das geschehen ist ist das Grid in der Frameinstanz leer.
Das Programm enthält noch weitere, andere Instanzen anderer Frames mit den selben Einstellungen, und die zeigen alle genau das an, was sie sollen, nur dieser eine ist leer...
Kann es sein, dass das Arbeiten mit Frames in früheren Editionen von Delphi...hmmm...zuverlässiger war? Ich habe erst kürzlich einige Zugriffsverletzungen gehabt, nachdem ich im Basisframe eine Komponente gelöscht habe. Erst ein Neustart von Delphi und Windows hat das Problem gelöst.
Meine Frage im Moment ist: wesswegen wird mein Stringgrid auf dem Frame nich ausgefüllt? Die Prozedur:
Delphi-Quellcode:
procedure TCompleteYearFrame.StartAndEndOfTheMont;
var i,j,y, Nr,x : Integer; Jahr,Woche: Word;
Today : String;ADate,Datum, LLastMonthDay :TDateTime;
begin
ADate := a.DateTimePicker2.Date; //Übergeben des Anfangdatums
Nr := DayofTheWeek(ADate); //Tagesnummer ermitteln : 1. Wochentag := Montag
Today := Wochentage[(NR-(NR-1))];
Datum := (ADate-(NR-1));
i := 0;
j := 2;
x := 1;
y :=1;
LLastMonthDay := EndOfTheMonth(ADate);
while Datum <= LLastMonthDay do // Dies schreibt 7 Wochenblöcke ins Stringgrid ;
begin
inc(i);
while j <= 8 do begin
if j = 2 then begin
DateToWeek(Datum, Woche, Jahr);
StringGrid15.Cells[y,x] := 'Woche '+IntToStr(Woche); {1 ist die Spalte, X ist die Zeile}
end;
StringGrid15.Cells[0,j]:= Today;
StringGrid15.Cells[y,j]:= DateToStr(Datum);
StringGrid15.Cells[y+1,j]:= 'StartAndEndOfTheMont';
Inc(j);
Datum := Datum +1;
Nr := DayofTheWeek(Datum); //Tagesnummer ermitteln : 1. Wochentag Montag
Today := Wochentage[Nr];
end;
Inc(y);
j := 2;
end;
end;
Gruss
Delbor