Ładny brzuch

Update programu- Chciaem z tego skorzysta i wykonaem wszystko wedug kolejnoci. Chciaem powyy wersj do mojego programu np:
const  wersja = '1.[B]6[/B]';
i w HTTPGet1
procedure TForm5.HTTPGet1DoneFile(Sender: TObject; FileName: String;  FileSize: Integer); var INI : TINIFile; updtVersion : string; cyfra1 : integer; cyfra2 : integer; updtCyfr1 : integer; updtCyfr2 : integer; begin Memo1.Lines.Add('Sprawdzanie, czy jest nowa wersja'); INI := TINIFile.Create(HTTPGet1.FileName); try   updtVersion := INI.ReadString('update','version','');  //odcytanie wersji z pliku ini   cyfra1 := StrToInt(wersja[1]);   cyfra2 := StrToInt(wersja[7]);   updtCyfr1 := StrToInt(updtVersion[[B]1[/B]]);   updtCyfr2 := StrToInt(updtVersion[[B]7[/B]]);   if (cyfra1 < updtCyfr1) or (cyfra2 < updtCyfr2) then  //sprawdzenie, czy jest nowa wersja   begin     Application.MessageBox('Jest nowa wersja programu','Komunikat');
oraz zmieniem na 1.7 w pliku ini. Gdy daem pobierz w moim programie zacz wywala mi jakie dziwne bdy :( Gdy przywrciem wersj programu na 1.2 i prock (to co pogrubione)na poprzedni warto to normalnie aplikacja chodzia. Prosz o pomoc!
BY EDIT//
Ju naprawiem bd. Tzeba byo zostawi 1 i 3 w:
cyfra1 := StrToInt(wersja[1]);   cyfra2 := StrToInt(wersja[3]);   updtCyfr1 := StrToInt(updtVersion[[B]1[/B]]);   updtCyfr2 := StrToInt(updtVersion[[B]3[/B]]);
Uytkownik Real_Anonym edytowa ten post 10 stycze 2006, 16:06
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •