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);
data w delphi to liczba rzeczywista, w ktorej czesc calkowita odpowiada numerowi dnia (liczonemu od kiedys tam) a ulamek to czesc dnia jaka juz minela.
Tak ze jak chcesz miec date dnia jutrzejszego to robisz
showmessage('jutro bedzie '+dateTostr(date+1));
na podstawie tego i jakiejs petli zrobisz sobie wypelnianie kolejnymi datami komorek w StringGridzie.
A wyszukiwanie:
wybierasz date
odejmujesz od niej date z pierwszej komorki
i otrzymujsze o ile komorek musisz sie przesunac w dol.
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:
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" :)