Jastrząb

musisz zrobic petle po wszystkich polach i sprawdzac ich nazwe, jezeli pasuje to wpisujesz dane i na koniec wysylasz

no to powodzenia w szukaniu :), czegos takiego nie ma, a pozatym co tu tlumaczyc??

jezeli chodzi o automatyczne wypelnianie to skorzystaj z: WebBrowser.OleObject.Document.Forms. Length Item Item.Length Item.Name Item.Value Item.Submit z tymi informacjami juz powinienes poradzic soebie z wypelnianiem i wysylaniem formularza

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

zamiast 0 daj 1

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)

Sry ze tak pozno ale nie mialem ostatio czasu i zapomnialem o tym watku :). Zrodla prostego komunikatora znajdziesz na stronie 4programmers.net

Napisz o co dokldanie chodzi, kiedys uzywalem sockety wiec troche pamietam :) niestety nie mam juz delphi wiec moge pisac tylko z pamieci

Czy przekopiowanie 10 stron metoda ctrl-a , ctrl-c, ctrl-v jest takie trudne?

http://msdn.microsoft.com/library/default....filelistbox.asp http://msdn.microsoft.com/library/default....profilename.asp http://msdn.microsoft.com/library/default....l/vbpropath.asp W Delphi pewnie bedzie podobnie

np, thx i nawzajem btw zmienilbym jeszcze max1:=t[1]; max2:=t[2]; max3:=t[3]; na max1:=Low(t); max2:=Low(t) + 1; max3:=Low(t) + 2;

zastosuj to co dal Nargil i wprowadz moje poprawki z postu 13 i powinno byc ok

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

chodzilo mi o to zeby kod byl bardziej uniwersalny, aby mozna go bylo zastosowac jako procedure, a do 0 jestem przyzwyczajony :) Pozatym pierwsze elementy komponentow maja indeks 0 oraz tablice socketow tez sie od 0 zaczynaja

Racja, nie wziolem pod uwage przypadku gdy sa same ujemne Ale zostal jeszcze jedne blad do poprawienia i powinno byc juz dobre Nie mozesz zakladac ze pierwszy element tablicy ma indeks 1, skorzystaj z funkcji Low i High

1. Twoj kod tez nie zadziala jezeli ciag bedzie: 0,0,0,5,4,7 itd 2. w moim wystarczy zmienic typ zmiennej i bedzie ok

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

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.

otrzymujesz zera poniewaz przy tworzeniu zmiennych ich wartosc wynosi 0, a warunki w petli sa tak napisane ze nigdy sie nie spelnia(max1 nie bedzie mniejsze od max2 gdyz obie zmienne sa zerami, itd). Jak wstane to napisze jak to widze bo teraz juz nie mam sil

stworz nowy projekt i skompiluj go jezeli skompiluje sie poprawnie to otworz swoj projekt ktory juz tworzyles i zapisz go w inne miejsce

zainstaluj ponownie delphi

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

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)

Nie odbierajcie mu chceci do poprawiania tego, kazdy programista zaczyna od czegos prostego btw to jest w pascalu?

Poznaj Delphi lub C++ (Builder/Dev-Cpp) i poznawaj nowe komponenty, sprobuj jakis napisac, naucz sie oblugi sieci i baz danych