Forum: Object-Pascal / Delphi-Language
Delphi
by patti,
27. Dez 2009
Naja, bei einem so "kleinem" Problem sehe ich kaum eine andere Möglichkeit, als den Fehler zu beheben und die richtige Lösung in Form von Quelltext zu liefern, der ja noch dazu leicht kommentiert war. Gut, ich habe nicht unbedingt geschrieben, woran es genau lag, dass es nicht funktioniert hat, aber anscheinend hat meine kleine Erklärung ja ausgereicht, um den "Knoten zu lösen". Was hätte ich...
Forum: Object-Pascal / Delphi-Language
Delphi
by patti,
27. Dez 2009
Bitteschön. Aber wie ich weiter oben schon geschrieben habe: Mit div und mod wäre das ganze etwas einfacher und übersichtlicher. Wolfgang Mix hat ja bereits eine kleine Erklärung dazu geschrieben:
Für die Zahl 8 gilt beispielsweise folgendes:
8 div 7 = 1 // ganzzahliges Teilen, die 7 geht in die 8 nur einmal rein
8 mod 7 = 1 // Rest des ganzzahligen Teilens (= 8 - (8 div 7)*7)
Forum: Object-Pascal / Delphi-Language
Delphi
by patti,
27. Dez 2009
Wenn du auf div und mod verzichten und die Schleife so wie oben aufbauen willst, dann musst du folgendes machen:
row := 1;
count := 0;
//
for i := 1 to DaysInMonth(date) do
begin
if count = 7 then
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by patti,
27. Dez 2009
Einfacher geht es so:
for i := 0 to DaysInMonth(Now) - 1 do
StringGrid1.Cells := IntToStr(i+1);
mfg
Patti