AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Schleife in einseitiger Auswahl

Ein Thema von KiRi · begonnen am 14. Mär 2011 · letzter Beitrag vom 27. Mär 2011
 
KiRi

Registriert seit: 13. Mär 2011
6 Beiträge
 
#1

Schleife in einseitiger Auswahl

  Alt 14. Mär 2011, 00:30
Delphi-Version: 2009
Ich hab bisher keine Antwort hierauf finden können. Vielleicht geht mein Plan ja auch grundsätzlich nicht.

Im Rahmen meiner Kalenderprogrammierung ist folgender Effekt aufgetreten:

Der nachstehende Code schafft es in meiner Kalender-Monatsansicht mittels SringGrid die Rahmendaten zu integrieren - also in Spalte 1 die Tage 1. bis 31. des Monats.
Zitat:
Form1.SgAnzeige.Cells[0,0] := 'Tag';
Form1.SgAnzeige.Cells[1,0] := 'Termine';
for c:=1 to 31 do
SgAnzeige.cells[b,c]:= IntToStr(c) + '.';
Nun will ich aber über die Variable 'a' (wert 1 = Januar / 12 = Dezember) entscheiden bis zu wie viele Tage im jeweiligem Monat eingetragen werden sollen. Also a=3=März --> c bis 31 // a=2=Februar --> c bis 28.

Dachte ich setze vor die Zählschleife einfach die Bedingung und dann läuft's, aber nee, will nicht. Beispiel März:


Zitat:
[...]
Form1.SgAnzeige.Cells[0,0] := 'Tag';
Form1.SgAnzeige.Cells[1,0] := 'Termine';

a:=3;

if a=3 then
for c:=1 to 31 do
SgAnzeige.cells[b,c]:= IntToStr(c) + '.';

[...]
Schon bei diesem Code wird im StringGri nichts mehr für c erzeugt.

Hab schon mit Semikolon, begin/end usw. hin und her probiert (typisch Laie eben) aber ohne Erfolg.

Geht es überhaupt vor eine Zählschleife eine Bedingung zu setzen?

Bin für jede Hilfe dankbar.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz