jaa23 Napisano Listopad 3, 2007 Zgłoś Share Napisano Listopad 3, 2007 czesc mam problem otoz w programie na formie3 mam edity do ktorych po wcisnieciu zostaje zapisana data gdy wylanczam program te dane zostaja zapisane do ini czyli godzina i data i teraz chcialbym aby po wlaczeniu programu na formie2 gdy godzina i data roznia sie od tych zapisanych byl aktywny lub nie aktywny button taki kod ale nie odczytuje mi godziny i daty zapisanej w ini do editow na formie2 if (data_systemowa.Tex>= daty_zapisanej.Text) then begin if godzina_systemowa.Text < godzina_zapisana.Text then begin button2.enabled:=false; end else if ( godzina_systemowa.Text >= godzina_zapisana.Text) then button2.enabled:=true; end; end; ŚQ ŃĄMQ=))QąŃĄ)Ń)Ń%IMŃŃ)Ń%IMŃ)ąą)) i nie wiem dlaczego jak wrzuce ten kod na forme3 skad zapisywane sa dane to je wczytuje ale wtedy nie dziala mi zeby button na formie2 byl niekatywny moze mi ktos powiedziec o co chodzi?? Link do komentarza Udostępnij na innych stronach More sharing options...
Brainer Napisano Listopad 3, 2007 Zgłoś Share Napisano Listopad 3, 2007 Zrób tak: 1.)W otwarciu formy trzeciej wpisz: Edit1.Text := DateToStr(Now()); Edit2.Text := TimeToStr(Now()); żmlIr+śźr'ŁŹŚ)(%Q%ą)(%Q%ą ŃŃ(Ń(%]ŃŃ ŃMŃQŃĄQ(%]ŃQ QMŃQQĄQ(ąą(%()lgsękhr'Ś~ć'Łui' var Ini: TIniFile; begin Ini := TIniFile.Create('C:\test.ini'); try Edit1.Text := Ini.ReadDate('Config', 'Date', Edit1.Text); Edit2.Text := Ini.ReadTime('Config', 'Time', Edit2.Text); Button2.Enabled := (StrToDate(Edit1.Text) = Now()) and (StrToTime(Edit2.Text) = Now()); finally Ini.Free(); end; end; Mam nadzieję, że pomogło. .: Brainer :. patrick.nusbaum@gmail.com Link do komentarza Udostępnij na innych stronach More sharing options...
jaa23 Napisano Listopad 4, 2007 Autor Zgłoś Share Napisano Listopad 4, 2007 teoretycznie mam tak zrobione ale wlasnie nie odczytuje mi edit1 i edit2 do formy2 Link do komentarza Udostępnij na innych stronach More sharing options...
Brainer Napisano Listopad 4, 2007 Zgłoś Share Napisano Listopad 4, 2007 Ty masz ten kodzik tak: edit14.text:=Ini.ReadString('sekcja1','data','0'); edit15.text:=Ini.ReadString('sekcja2','godzina','0'); gsęk3Ęęh)s<jG^bppVFCBFWBŁć&VE7G&ćrb336Vś6Śb33b33śFFb33VFCBFWBVFCRFWBŁć&VE7G&ćrb336Vś6Ś\"b33b33śvGŚćb33VFCRFWB Spróbuj w ten sposób! .: Brainer :. patrick.nusbaum@gmail.com Link do komentarza Udostępnij na innych stronach More sharing options...
5corpio Napisano Listopad 4, 2007 Zgłoś Share Napisano Listopad 4, 2007 Eh trzeci parametr to jest wartość domyślna gdy z jakiś powodów nie uda się odczytać wartości klucza... Ot taka mini-strona moja po godzinach http://www.wnetrzekuchni.pl Link do komentarza Udostępnij na innych stronach More sharing options...
jaa23 Napisano Listopad 4, 2007 Autor Zgłoś Share Napisano Listopad 4, 2007 ja wiem ze to jest wartosc domyslna oki juz mi dziala dzieki Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.