DateTimePicker + StringGrid

Witam
Mam pytanko jak zrobić taki bajer:
W w wierszu w StringGridzie wyświetlała sie data np: w pierwszym jakaś data w drugim o 1 dzień nastepna itd. i po wybraniu daty z dateTimePickera przechodził do wiersza z tą data?

Form1.StringGrid1.Cells[i,j]:= DateToStr(Form1.DateTimePicker1.Date);

Oki dzięki bardzo pomogło !!!

Ale mam jeszcze jeden dylemat jak zrobić aby w stringgridzie pojawił sie dzień tygodnia czyli:
Wybieram jakas date i wyswietla mi się poniedziałek, wtorek itp

Dzięki za pomoc

chcesz wyswietlic DzienTygodnia, a funkcje w delphi nazywaja sie mniejwiecej po angielsku.

pomysl chwile... :>

Wiem:
http://4programmers.net/Delphi/Dayoftheweek

Tylko teraz jak robie coś takiego:

Form1.StringGrid1.Cells[0,1]:= (+DateToStr(p)++DayValues[DayOfTheWeek(p)]+'');

i wywala mi bład. Jestem początkujący może źle coś robie. Gdzie p:=DateTimePicker1.date

a jaki blad Ci wyswietla?

Access Violation at adres 00465d03.....

Może mi ktoś z łaski swojej wyjaśnić co robie nie tak ???

Hallo elofura!

Moze w ten sposob:

        ...
        String WeekDays[] = {"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"};

        TDateTime p = Now();
        StringGrid1->Cells[1][1] = DateToStr(p) + " " + WeekDays[DayOfWeek(p)];

        ...

Pozdrawiam
Markus

na moje oko kod

elofura napisał(a)

 Form1.StringGrid1.Cells[0,1]:= (''+DateToStr(p)+''+DayValues[DayOfTheWeek(p)]+'');

jest w porzadku

czy jestes pewnien ze blad wyskakuje w tym momencie?

Błąd jest taki:
Return Value of function'DayOFTheWeek' might be undefined

nie wiem co jest... :(

Hallo elofura!

Tym razem w Delphi:

procedure TForm1.Button2Click(Sender: TObject);
const
   WeekDays: array[1..] of String = ('Niedziela', 'Poniedzialek', 'Wtorek', 'Sroda', 'Czwartek', 'Piatek', 'Sobota');

var
   p: TDateTime;

begin
   p := Now();
   StringGrid1.Cells[1,1] := DateToStr(p) + '  ' + WeekDays[DayOfWeek(p)];
end;

Pozdrawiam
Markus

edit: kosmetyka

Dziękuje bardzo !!
"Aby twoje dzieci piękne matki miały" :)