Skocz do zawartości

[delph]odczyt ini


jaa23

Polecane posty

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

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. :D

Link do komentarza
Udostępnij na innych stronach

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! :)

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...