Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Zeilen nach Datum erkennen und anmalen


marcon01 - Mo 30.07.12 09:05
Titel: Zeilen nach Datum erkennen und anmalen
Hallo zusammen,

ich habe da mal eine Frage ^^:

Und zwar bin ich dabei einen Kalender zu gestalten mit Hilfe Stringgrids.
Die Tage Samstag und Sonntag bekomme ich auch gemalt/markiert kein Problem aber nun wollte ich auch die festen
Feiertage markiert bekommen und da hapert es.
Es liegt meiner Meinung nach daran, dass das ein anderer Datentyp ist (TDate).
Nun habe ich eine Zeile code die mir den Fehler ausgibt:"Missing operator or semicolon"

Noch gut zu wissen ist, dass ich hier nur den tag und den Monat angegeben habe
da das Jahr variabel bleiben muss.
Das Jahr ändert sich ja immer der Tag und der Monat jedoch bleibt.

Hier der code:

Delphi-Quelltext
1:
if( pos( sgPlanerDatum.Cells [ACol,0] := tmpDatum 01.05 ) > 0 ) then ...    //Tag der Arbeit                    

über Antworten würde ich mich freuen danke

Moderiert von user profile iconNarses: Delphi-Tags hinzugefügt


bummi - Mo 30.07.12 09:46

irgendetwas in der Art ....

Delphi-Quelltext
1:
2:
3:
4:
StrToDate(sgPlanerDatum.Cells [ACol,0] +'.' +IntToStr(Jahr));
//oder

if( pos( sgPlanerDatum.Cells [ACol,0] , FormatDateTime('dd.mm.yyyy',Vergleichdatun) ) > 0 ) then


marcon01 - Mo 30.07.12 10:47

Hallo bummi

Danke für deine Antwort

Ich habe deine Idee eingefügt und ich kann es ohne Fehler compelieren
allerdings malt er mir die Spalte nicht an.

Ich weis nicht woran es liegt aber dennoch danke ^^
Ich denke ich kann hiermit weiter arbeiten ^^


Blawen - So 05.08.12 09:28

user profile iconmarcon01 hat folgendes geschrieben Zum zitierten Posting springen:
Ich denke ich kann hiermit weiter arbeiten ^^

user profile iconmarcon01 hat folgendes geschrieben Zum zitierten Posting springen:

Delphi-Quelltext
1:
if( pos( sgPlanerDatum.Cells [ACol,0] := tmpDatum 01.05 ) > 0 ) then ...    //Tag der Arbeit                    


Und bist Du weitergekommen und hast Du den grundsätzlichen Fehler bei Deiner QT-Zeile entdeckt??