Ĺadny brzuch
Witam Wszystkich
Jak moglbym wykonac procedure (np. przy uzyciu buttona), ktora wyswietlila by message, jesli dzis mamy wtorek i w tresci okienka (message'a) bylby dzisiejszy dzien.
I jaki komponent bylby potrzebny (jesli owy bylby potrzebny)...
Poprostu po kliknieciu na button, zostaje sprawdzony jaki mamy dzien tygodnia, jesli dzis jest wtorek to zostaje pokazany message z trescia 'aaa', jesli jest czwartek pokaze sie 'bbb', natomiast jesli mamy inny dzien nic sie nie pokaze.
BLAGAM POMOZCIE!!!
DJ ProG
PS Mam nadzieje, ze nie pogmatwalem...
trochę namieszałeś....
może to Ci w czymś pomoże procedure TForm1.Button1Click(Sender: TObject); var ADate: TDateTime; days: array[1..7] of string; begin days[1] := 'Sunday'; days[2] := 'Monday'; days[3] := 'Tuesday'; days[4] := 'Wednesday'; days[5] := 'Thursday'; days[6] := 'Friday'; days[7] := 'Saturday'; ADate := StrToDate(Edit1.Text); ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)]; end;
Witam Wszystkich
Jak moglbym wykonac procedure (np. przy uzyciu buttona), ktora wyswietlila by message, jesli dzis mamy wtorek i w tresci okienka (message'a) bylby dzisiejszy dzien.
I jaki komponent bylby potrzebny (jesli owy bylby potrzebny)...
Poprostu po kliknieciu na button, zostaje sprawdzony jaki mamy dzien tygodnia, jesli dzis jest wtorek to zostaje pokazany message z trescia 'aaa', jesli jest czwartek pokaze sie 'bbb', natomiast jesli mamy inny dzien nic sie nie pokaze.
BLAGAM POMOZCIE!!!
DJ ProG
PS Mam nadzieje, ze nie pogmatwalem...
zobaczymy czy zadziala... poprostu (w skrocie) w okreslonym dniu tygodnia ma pokazac sie message...
Pozdrawiam, i dziekuje, a w domu (pozniej) sprawdze czy poszlo i czy o to mi chodzili... Pozdrawiam ponownie... ;)
DJ ProG
Mozesz takze skorzystac z TSystemTime. IMHO lepsze rozwiazanie :)
Użytkownik Oskar_ edytował ten post 13 czerwiec 2005, 13:10
procedure TForm1.Button1Click(Sender: TObject); var st:systemtime; d:word; begin GetSystemTime(st); d:=st.wDayOfWeek; {d: 0 - pn, 1 - wt, ...} end;
chyba czaje...
w domciu sprawdze, bo w szkole siedze ;P
a moze (bo temat daty systemowej ktos wie, jak ustawic date systemowa przy pomocy datetimepickerow???
Oto stronka : http://forum.ks-eksp...showtopic=47744
DJ ProG
No i jestem znowu. Sprawdzilem Wasze 3 kodziki. Dziala w 100% sprawnie kod Kabara, w kodzie Gismo_PLa po odpaleniu procedury wyskakuje error, a w zwiazku z kodem Cyrkla:
procedure TForm1.Button1Click(Sender: TObject); var st:systemtime; d:word; begin GetSystemTime(st); d:=st.wDayOfWeek; {d: 0 - pn, 1 - wt, ...} end;
Jesli chodzi o komentarz: u mnie w komputerze inaczej wyszlo. Odpalilem soft wczoraj (pn.) i prog pokazal mi '1' - czyli wg. Twojej legendy wtorek, a w kalendarzu cos innego pisze..
Oto moj comment:
{d: 1 - pn, 2 - wt, ...} // Code featuring Cyrkiel
Mam nadzieje, ze nie nawrzucasz na mnie za ta poprawke... Jednak chyba to nie JScript, ze wszystkie wartosci leca od zera... niektore owszem, ale NIE WSZYSKIE...
Sorry...
Pozdrawiam, zostane przy pierwszym i trzecim kodzi (czyli przy sprawnych), DJ ProG
No i jestem znowu. Sprawdzilem Wasze 3 kodziki. Dziala w 100% sprawnie kod Kabara, w kodzie Gismo_PLa po odpaleniu procedury wyskakuje error.
Nie uważasz DJ, że pisanie za Ciebie poprawnego kodu byłoby smieszne ??
Wykorzystaj informacje napisane przez wszystkich i ewentualnie pokombinuj z resztą rozwiazań. Nie licz tylko na gotowe rozwiązania, bo to świadczy o lenistwie i niskim poziomie IQ ;)
Wykorzystaj funkcje: EncodeDate, DayOfWeek, StrToDate itp.
Pozdro ...... i powodzenia :D
Wiem...
Ale co zrobic... Zdanie mojego prof. od inforamtyki: "Informatyk, czlowiek leniwy..."
A zawsze poprawic nie zaszkodzi, a inne osoby korzystajace rowniez z forum moga na tym skorzystac. A poza tym mozna sobie dobijac posty ;)
Użytkownik DJ_ProG edytował ten post 18 czerwiec 2005, 19:44
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jak moglbym wykonac procedure (np. przy uzyciu buttona), ktora wyswietlila by message, jesli dzis mamy wtorek i w tresci okienka (message'a) bylby dzisiejszy dzien.
I jaki komponent bylby potrzebny (jesli owy bylby potrzebny)...
Poprostu po kliknieciu na button, zostaje sprawdzony jaki mamy dzien tygodnia, jesli dzis jest wtorek to zostaje pokazany message z trescia 'aaa', jesli jest czwartek pokaze sie 'bbb', natomiast jesli mamy inny dzien nic sie nie pokaze.
BLAGAM POMOZCIE!!!
DJ ProG
PS Mam nadzieje, ze nie pogmatwalem...
trochę namieszałeś....
może to Ci w czymś pomoże procedure TForm1.Button1Click(Sender: TObject); var ADate: TDateTime; days: array[1..7] of string; begin days[1] := 'Sunday'; days[2] := 'Monday'; days[3] := 'Tuesday'; days[4] := 'Wednesday'; days[5] := 'Thursday'; days[6] := 'Friday'; days[7] := 'Saturday'; ADate := StrToDate(Edit1.Text); ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)]; end;
Witam Wszystkich
Jak moglbym wykonac procedure (np. przy uzyciu buttona), ktora wyswietlila by message, jesli dzis mamy wtorek i w tresci okienka (message'a) bylby dzisiejszy dzien.
I jaki komponent bylby potrzebny (jesli owy bylby potrzebny)...
Poprostu po kliknieciu na button, zostaje sprawdzony jaki mamy dzien tygodnia, jesli dzis jest wtorek to zostaje pokazany message z trescia 'aaa', jesli jest czwartek pokaze sie 'bbb', natomiast jesli mamy inny dzien nic sie nie pokaze.
BLAGAM POMOZCIE!!!
DJ ProG
PS Mam nadzieje, ze nie pogmatwalem...
zobaczymy czy zadziala... poprostu (w skrocie) w okreslonym dniu tygodnia ma pokazac sie message...
Pozdrawiam, i dziekuje, a w domu (pozniej) sprawdze czy poszlo i czy o to mi chodzili... Pozdrawiam ponownie... ;)
DJ ProG
Mozesz takze skorzystac z TSystemTime. IMHO lepsze rozwiazanie :)
Użytkownik Oskar_ edytował ten post 13 czerwiec 2005, 13:10
procedure TForm1.Button1Click(Sender: TObject); var st:systemtime; d:word; begin GetSystemTime(st); d:=st.wDayOfWeek; {d: 0 - pn, 1 - wt, ...} end;
chyba czaje...
w domciu sprawdze, bo w szkole siedze ;P
a moze (bo temat daty systemowej ktos wie, jak ustawic date systemowa przy pomocy datetimepickerow???
Oto stronka : http://forum.ks-eksp...showtopic=47744
DJ ProG
No i jestem znowu. Sprawdzilem Wasze 3 kodziki. Dziala w 100% sprawnie kod Kabara, w kodzie Gismo_PLa po odpaleniu procedury wyskakuje error, a w zwiazku z kodem Cyrkla:
procedure TForm1.Button1Click(Sender: TObject); var st:systemtime; d:word; begin GetSystemTime(st); d:=st.wDayOfWeek; {d: 0 - pn, 1 - wt, ...} end;
Jesli chodzi o komentarz: u mnie w komputerze inaczej wyszlo. Odpalilem soft wczoraj (pn.) i prog pokazal mi '1' - czyli wg. Twojej legendy wtorek, a w kalendarzu cos innego pisze..
Oto moj comment:
{d: 1 - pn, 2 - wt, ...} // Code featuring Cyrkiel
Mam nadzieje, ze nie nawrzucasz na mnie za ta poprawke... Jednak chyba to nie JScript, ze wszystkie wartosci leca od zera... niektore owszem, ale NIE WSZYSKIE...
Sorry...
Pozdrawiam, zostane przy pierwszym i trzecim kodzi (czyli przy sprawnych), DJ ProG
No i jestem znowu. Sprawdzilem Wasze 3 kodziki. Dziala w 100% sprawnie kod Kabara, w kodzie Gismo_PLa po odpaleniu procedury wyskakuje error.
Nie uważasz DJ, że pisanie za Ciebie poprawnego kodu byłoby smieszne ??
Wykorzystaj informacje napisane przez wszystkich i ewentualnie pokombinuj z resztą rozwiazań. Nie licz tylko na gotowe rozwiązania, bo to świadczy o lenistwie i niskim poziomie IQ ;)
Wykorzystaj funkcje: EncodeDate, DayOfWeek, StrToDate itp.
Pozdro ...... i powodzenia :D
Wiem...
Ale co zrobic... Zdanie mojego prof. od inforamtyki: "Informatyk, czlowiek leniwy..."
A zawsze poprawic nie zaszkodzi, a inne osoby korzystajace rowniez z forum moga na tym skorzystac. A poza tym mozna sobie dobijac posty ;)
Użytkownik DJ_ProG edytował ten post 18 czerwiec 2005, 19:44