Ładny brzuch
Mam taki kod
repeat edit1.Text := listbox1.Items[0]; // przenies 1 element do edita... //rob cos tam... jak zle to... edit1.Text := listbox1.Items[1]; // ...przenies 2 element do edita... until //az stanie sie to
tylko jak zrobic by po rzeniesieniu 1 elementu do edita wykonac cos tam (//rob cos tam) jezeli jest zle to przeniesz 2 element do edita i znowu zrob cos tam )//rob cos tam) i tak dalej....
.... (//az stanie sie to)
prosze o pomoc
Uytkownik maros edytowa ten post 11 listopad 2005, 22:28
Moe wyjanisz bardziej szczegowo, co ta ptla ma robi? I co wywietlasz? Jakie ostrzeenia? Nie mona tego wyrzuci poza ptl? Twj kod niczego nie wyjania.
Jeli chcesz sprawdza jaki warunek, to uywaj instrukcji if...then np.
if co_tam then Edit1.Text := ListBox1.Items[0] else Edit1.Text := ListBox1.Items[1];
Aha - jeli chcesz, by zawarto Edit1 bya odwieana podczas wykonywania ptli, musisz gdzie wrzuci albo Edit1.Update, albo Application.ProcessMessages
Uytkownik Kokoszek edytowa ten post 11 listopad 2005, 22:53
CHodzi mi oto aby wrzocac do edita po kolei elementy z listboxa i jezeli jeden z nich pasuje to wykonac jakas procedure
//sorry za pisownie
Ale jak to "pasuje"? Co takiego ma pasowa? Dugo tekstu? Ma by wsplny jaki wyraz? Jaki jest warunek tego "dopasowania"?
mam w listboxie 3 hasla [aaa] [bbb] [ccc] teraz wrzocam do edita haslo 1 czyli [aaa] i probuje sie polaczyc np z poczta. haslo nie pasuje wiec wrzocam drugi element z listy czyli [bbb] haslo jest prawidlowe wiec sie polaczym z ta poczta.
wiec
repeat
wrzocanie elementow do edita;
laczenie;
until
polaczony //czyli podstawiaj aj sie polaczysz
i teraz mam probelm taki zeby te elemnty automatycznie wrzocaly sie do edita. jezeli wrzoce prawidloey to wykonuje sie procedura polaczony
Oki, nie bardzo rozumiem zatem, po co sobie komplikowa ycie wrzucaniem tego do Edita? Nie moesz zrobi czego takiego:
procedure TryToConnect; var i: Integer; Done: Boolean; begin for i := 0 to ListBox1.Items.Count - 1 do begin Done := False; try Mail.Password := ListBox1.Items[i]; Mail.Connect; Done := True; except end; if Done then Break; end; end;
Oczywicie, nie przeno tego dosownie - nie wiem, czym si czysz z kontem pocztowym. Jeli jest to funkcja zwracajca warto Boolean, to odpada blok try...except. Powyszy kod dziaa, jeli niepowodzenie logowania generuje wyjtek (bd). Czy to ma by jaki program, ktry wamuje si do kont pocztowych metod sownikow? ;)
Uytkownik Kokoszek edytowa ten post 11 listopad 2005, 23:33
powiedzmy... :D
Bez obrazy, ale z takim przygotowaniem teoretycznym nie wr Ci byskotliwej kariery hakera ;) Moe poprbuj si najpierw z prostszymi zagadnieniami? Albo np. sprbuj napisa program do amania metod sownikow hase do plikw z Office'a? Darmowych narzdzi tego typu jest jak na lekarstwo, a czasem si taka maa rzecz przydaje :)
// nie widziales jego innych tematow - ciesz sie ;) - m
Uytkownik migajek edytowa ten post 13 listopad 2005, 12:33
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
repeat edit1.Text := listbox1.Items[0]; // przenies 1 element do edita... //rob cos tam... jak zle to... edit1.Text := listbox1.Items[1]; // ...przenies 2 element do edita... until //az stanie sie to
tylko jak zrobic by po rzeniesieniu 1 elementu do edita wykonac cos tam (//rob cos tam) jezeli jest zle to przeniesz 2 element do edita i znowu zrob cos tam )//rob cos tam) i tak dalej....
.... (//az stanie sie to)
prosze o pomoc
Uytkownik maros edytowa ten post 11 listopad 2005, 22:28
Moe wyjanisz bardziej szczegowo, co ta ptla ma robi? I co wywietlasz? Jakie ostrzeenia? Nie mona tego wyrzuci poza ptl? Twj kod niczego nie wyjania.
Jeli chcesz sprawdza jaki warunek, to uywaj instrukcji if...then np.
if co_tam then Edit1.Text := ListBox1.Items[0] else Edit1.Text := ListBox1.Items[1];
Aha - jeli chcesz, by zawarto Edit1 bya odwieana podczas wykonywania ptli, musisz gdzie wrzuci albo Edit1.Update, albo Application.ProcessMessages
Uytkownik Kokoszek edytowa ten post 11 listopad 2005, 22:53
CHodzi mi oto aby wrzocac do edita po kolei elementy z listboxa i jezeli jeden z nich pasuje to wykonac jakas procedure
//sorry za pisownie
Ale jak to "pasuje"? Co takiego ma pasowa? Dugo tekstu? Ma by wsplny jaki wyraz? Jaki jest warunek tego "dopasowania"?
mam w listboxie 3 hasla [aaa] [bbb] [ccc] teraz wrzocam do edita haslo 1 czyli [aaa] i probuje sie polaczyc np z poczta. haslo nie pasuje wiec wrzocam drugi element z listy czyli [bbb] haslo jest prawidlowe wiec sie polaczym z ta poczta.
wiec
repeat
wrzocanie elementow do edita;
laczenie;
until
polaczony //czyli podstawiaj aj sie polaczysz
i teraz mam probelm taki zeby te elemnty automatycznie wrzocaly sie do edita. jezeli wrzoce prawidloey to wykonuje sie procedura polaczony
Oki, nie bardzo rozumiem zatem, po co sobie komplikowa ycie wrzucaniem tego do Edita? Nie moesz zrobi czego takiego:
procedure TryToConnect; var i: Integer; Done: Boolean; begin for i := 0 to ListBox1.Items.Count - 1 do begin Done := False; try Mail.Password := ListBox1.Items[i]; Mail.Connect; Done := True; except end; if Done then Break; end; end;
Oczywicie, nie przeno tego dosownie - nie wiem, czym si czysz z kontem pocztowym. Jeli jest to funkcja zwracajca warto Boolean, to odpada blok try...except. Powyszy kod dziaa, jeli niepowodzenie logowania generuje wyjtek (bd). Czy to ma by jaki program, ktry wamuje si do kont pocztowych metod sownikow? ;)
Uytkownik Kokoszek edytowa ten post 11 listopad 2005, 23:33
powiedzmy... :D
Bez obrazy, ale z takim przygotowaniem teoretycznym nie wr Ci byskotliwej kariery hakera ;) Moe poprbuj si najpierw z prostszymi zagadnieniami? Albo np. sprbuj napisa program do amania metod sownikow hase do plikw z Office'a? Darmowych narzdzi tego typu jest jak na lekarstwo, a czasem si taka maa rzecz przydaje :)
// nie widziales jego innych tematow - ciesz sie ;) - m
Uytkownik migajek edytowa ten post 13 listopad 2005, 12:33