Ĺadny brzuch
Witam.
Borykam się z następującym problemem.
Mam kilka plików z danymi i chciałbym, żeby program przypisywał je do określonego dnia tygodnia i wyświetlał np. w memo.
Czyli: plik pon.data i żeby wyświetlał się tylko w poniedziałek w tym memo.
Mam nadzieję, że wyraziłem się jasno, o co chodzi.
Proszę o pomoc.
procedure TForm1.Button1Click(Sender: TObject); var FileName: string; begin FileName := IncludeTrailingPathDelimiter( ExtractFilePath(ParamStr(0)) ) + FormatDateTime('ddd', Now) + '.data'; Memo1.Lines.LoadFromFile(FileName); end;Zamiast tych pierwszych dwóch linijek możesz napisać tak:
case DayOfTheWeek(Now) of 1: FileName := 'pon.data'; 2: FileName := 'wt.data'; 3: FileName := 'itd.'; 4: FileName := ''; 5: FileName := ''; 6: FileName := ''; 7: FileName := ''; end; i samemu uzupełniać nazwę pliku :)
(...)Zamiast tych pierwszych dwóch linijek możesz napisać tak:
case DayOfTheWeek(Now) of 1: FileName := 'pon.data'; 2: FileName := 'wt.data'; 3: FileName := 'itd.'; 4: FileName := ''; 5: FileName := ''; 6: FileName := ''; 7: FileName := ''; end; i samemu uzupełniać nazwę pliku :)
Ten pomysł jest dla mnie lepszy, jednak podkreślane jest(Delphi 2005) DayOfTheWeek. Czy tą funcję muszę zadeklarować osobno? Jeśli tak, to jaki jest jej kod? :huh:
Kurde, ale jestem głupi.
Poza tym dzięki.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Borykam się z następującym problemem.
Mam kilka plików z danymi i chciałbym, żeby program przypisywał je do określonego dnia tygodnia i wyświetlał np. w memo.
Czyli: plik pon.data i żeby wyświetlał się tylko w poniedziałek w tym memo.
Mam nadzieję, że wyraziłem się jasno, o co chodzi.
Proszę o pomoc.
procedure TForm1.Button1Click(Sender: TObject); var FileName: string; begin FileName := IncludeTrailingPathDelimiter( ExtractFilePath(ParamStr(0)) ) + FormatDateTime('ddd', Now) + '.data'; Memo1.Lines.LoadFromFile(FileName); end;Zamiast tych pierwszych dwóch linijek możesz napisać tak:
case DayOfTheWeek(Now) of 1: FileName := 'pon.data'; 2: FileName := 'wt.data'; 3: FileName := 'itd.'; 4: FileName := ''; 5: FileName := ''; 6: FileName := ''; 7: FileName := ''; end; i samemu uzupełniać nazwę pliku :)
(...)Zamiast tych pierwszych dwóch linijek możesz napisać tak:
case DayOfTheWeek(Now) of 1: FileName := 'pon.data'; 2: FileName := 'wt.data'; 3: FileName := 'itd.'; 4: FileName := ''; 5: FileName := ''; 6: FileName := ''; 7: FileName := ''; end; i samemu uzupełniać nazwę pliku :)
Ten pomysł jest dla mnie lepszy, jednak podkreślane jest(Delphi 2005) DayOfTheWeek. Czy tą funcję muszę zadeklarować osobno? Jeśli tak, to jaki jest jej kod? :huh:
Kurde, ale jestem głupi.
Poza tym dzięki.