Skocz do zawartości

Jastrząb

Stały użytkownik
  • Postów

    57
  • Dołączył

  • Ostatnia wizyta

Odpowiedzi opublikowane przez Jastrząb

  1. nie ma sesnu aby timer sprawdzal sobie interval, daj dodatkowego buttona w ktorym dasz:

    Timer.Interval := StrToInt(Edit1.Text);
    a do procedury WebBrowsera DocumentCompleted czy jakos tak daj:

    if pos(zrodlostrony, 'przykro nam, nie ma wolnych miejsc') = 0 then // nie pamietam jak sie bralo zrodlo strony, ale z tym to sobie poradziszWebBrowser.RefreshelseMessageBox('Uwaga', 'Mozna sie rejstrowac', MB_OK);

    Wszytsko pisane z glowy wiec moga byc male bledy

  2. Skorzystaj z TWebBrowser'a. Pozatym za duzo pytan, poszukaj, nikt nie bedzie za Ciebie pisal programu bo ma swoje projekty a pozatym Ty nic sie nie nauczysz. Pytaj sie ale o cos jak cos obejsc albo jak zrobic cos czego nie potrafisz (poza tym aby ktos napisal Ci aplikacje)

  3. Ja dalbym petle aby leciala po kazdym znaku, zmienna przechowujaca poprzedni znak i sprawdzal co mam teraz i co bylo znak do tylu. Jezeli sa dwie spacje to jedna kasuje, jezeli przed przecinkiem jest spacja to kasuje, jezeli jest jakas litera lub cyfra a przed nia nie ma spacji to ja dodawal itd

    Analogicznie z wielkoscia liter i enterami

  4. racja nie zaowazylem tego, ale na swoje usprwiedliwienie mam to ze juz mi sie oczy zamykaly :)

    teraz chyba dobre :)

     

    procedure liczby;vari:integer;beginfor i:= Low(tablica) to High(tablica) dobeginif (tablica[i] > max1) and (max1 <= max2) and (max1 <= max3) thenmax1:= tablica[i]elseif (tablica[i] > max2) and (max2 <= max1) and (max2 <= max3) thenmax2:= tablica[i]elseif (tablica[i] > max3) and (max3 <= max1) and (max1 <= max2) thenmax3:= tablica[i]end;end;

    do postu ponizej

    Sry, pomylilem posty i myslalem ze to byl Twoj kod :)

  5. tak na szybko jeszcze napisalem w notatniku, wiec moga byc bledy

     

    vartablica : array[0..99] of integer;max1, max2, max3 : integer;procedure losowanie;vari: integer;beginrandomize;for i := 0 to High(tablica) do  //tutaj nie jestem pewny czy high zwroci 100 czy 99 ale to sobie sprawdz samtablica[i] := random(200);end;procedure liczby;vari : integer;beginfor i := 0 to High(tablica) do  //jwbeginif tablica[i] > max1 thenmax1 := tablica[i]elseif tablica[i] > max2 thenmax2 := tablica[i]elseif tablica[i] > max3 thenmax3 := tablica[i];end;end;end.
  6. jezeli chcesz w jednym momencie robic dzialanie tylko na 2 liczbach to niech zmienna wynik bedzie zmienna globalna, jezeli chesz robic dzialanie odrazu na wiekszej ilosci liczby (cos jak x + y - z * i) to musisz sprawdzac znak po znaku i odpowiednio je interpretowac

  7. instrukcja goto nie jest dzisiaj zalecana poniewaz mozna ja zastapic petla i uzyciem continue lub break, instrukcja goto zostala nadal pozostawiona dla kompatybilnosci z wczesniejszymi srodowiskami programistycznymi (przynjmniej tak jest w delphi)

×
×
  • Dodaj nową pozycję...