Forum Sveta kompjutera

Nazad   Forum Sveta kompjutera > Test Run > Programiranje

Programiranje Programski jezici, tehnike, alatke...

Odgovor
 
Alatke vezane za temu Vrste prikaza
Stara 11.4.2010, 15:13   #1
Pera iz Ghetta
Novi član
 
Član od: 25.4.2009.
Poruke: 29
Zahvalnice: 37
Zahvaljeno 0 puta na 0 poruka
Određen forumom Molim za pomoc oko zadatka! Delphi:)

Evo ovako: postaviti 3 edita, 1 button. U prvi edit uneti niz chiji su chlanovi razdvojeni zarezom. U drugu upisati max, a u trecu min cifara. Ako neko mozhe nek mi napishe kod tako da bude shto manje redova...
Pera iz Ghetta je offline   Odgovor sa citatom ove poruke
Stara 11.4.2010, 15:51   #2
boshkodj
Veteran
 
Član od: 4.7.2008.
Lokacija: Somewhere along the line
Poruke: 505
Zahvalnice: 85
Zahvaljeno 34 puta na 29 poruka
Određen forumom Re: Molim za pomoc oko zadatka! Delphi:)

Citat:
Pera iz Ghetta kaže: Pregled poruke
Evo ovako: postaviti 3 edita, 1 button. U prvi edit uneti niz chiji su chlanovi razdvojeni zarezom. U drugu upisati max, a u trecu min cifara. Ako neko mozhe nek mi napishe kod tako da bude shto manje redova...
Evo, uradio sam ti domaci. Prvo probaj, pa ako ti odgovara, poslacu ti i source.

http://xxxxxxxxxxxxxxxxxxxxxxxxxx

Poslednja ispravka: VojaM (16.4.2010 u 17:15)
boshkodj je offline   Odgovor sa citatom ove poruke
Stara 12.4.2010, 0:56   #3
irreal
V.I.P. Programiranje
 
Član od: 9.1.2009.
Lokacija: Beograd, Banovo Brdo
Poruke: 1.157
Zahvalnice: 83
Zahvaljeno 448 puta na 303 poruka
Određen forumom Re: Molim za pomoc oko zadatka! Delphi:)

Fajl iz gore navedenog linka, dok ga neki moderator ne ukloni, ce prikazati poruku a zatim bez pitanja odmah force-ovati shutdown sistema!

decko, ti mislis da si sada ispao faca ? da si ispao kul i duhovit ? da si ga naucio vrednu lekciju ?

jel ti znas kolko si nisko spao i kolko si jadan ispao ?

evo ja sam se prvi upecao, jer te kao fol znam sa foruma i msn-a, pa nisam koristio potreban oprez, nisam imao spreman shutdown -a, nisam nikakve provere radio, samo pokrenuo program.

ok, ispao sam glup, ha ha, a sta cemo sa stvarima koje sam izgubio ? sa downtime-om servisa koje drzim ?
zasto ? da bi ti ispao duhovit ?

ja bi te za ovo ladno banovao.
ocigledno nisi dobacio da ako neko ne zeli da radi domaci to nije povod da mu ugasis racunar bez pitanja, al kako bar nisi dobacio dotle da ce jos neko da skine i pogleda tvoj rad, pogotovo zato sto se iz aviona vidi da je radjen u visual studiu, pa ono, mozda ce hteti da vidi u cemu je fora ?

ma sta ja tebi pricam, ko da neces svejedno ostati jadan.
irreal je offline   Odgovor sa citatom ove poruke
Sledećih 6 korisnika se zahvaljuje korisniku irreal na korisnoj poruci:
doctor (16.4.2010), DylaN (20.4.2010), Francesko (21.4.2010), Geomaster (20.4.2010), Lich_king2 (20.4.2010), pedjastudio84 (12.4.2010)
Stara 12.4.2010, 16:24   #4
jare25
Član
 
Član od: 9.3.2009.
Lokacija: Podgorica
Poruke: 164
Zahvalnice: 27
Zahvaljeno 8 puta na 5 poruka
Slanje poruke preko Skypea korisniku jare25
Određen forumom Re: Molim za pomoc oko zadatka! Delphi:)

evo neshto na brzinu, pa vidi odgovara li ti i mozesh li kako da "skratish" kod:

procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
min: integer;
max: integer;
duzina: integer;
pom: string;
pom1:integer;
i: integer;
begin
if edit1.Text <> '' then
begin
str:=edit1.Text;
duzina:=length(str);
pom:='';
i:=1;
while str[i] <> ',' do
begin
pom:=pom + str[i];
i:=i+1;
end;

min:=strtoint(pom);
max:=strtoint(pom);

i:=1;
pom:='';
while i <= duzina do
begin
while str[i] <> ',' do
begin
pom:=pom + str[i];
i:=i+1;
end;
i:=i+1;
pom1:=strtoint(pom);
if pom1>max then max:=pom1;
if pom1<min then min:=pom1;
pom:='';

end;
end;
edit2.Text:=inttostr(max);
edit3.Text:=inttostr(min);

end;
jare25 je offline   Odgovor sa citatom ove poruke
Stara 16.4.2010, 14:26   #5
doctor
Deo inventara foruma
 
Član od: 14.3.2008.
Lokacija: EHCPCGG
Poruke: 10.898
Zahvalnice: 3.733
Zahvaljeno 2.790 puta na 1.953 poruka
Određen forumom Re: Molim za pomoc oko zadatka! Delphi:)

Citat:
boshkodj kaže: Pregled poruke
Evo, uradio sam ti domaci. Prvo probaj, pa ako ti odgovara, poslacu ti i source.

http://xxxxxxxxxxxxxxxxxx
Ako je stvarno u pitanju shutdown program kao što irreal, kaže, a verujem mu, što ne bih, onda si zaista dubokouman... Ne daj Bože da sam ja ovo skinuo i prekinuo non-resumable download od 16GB sada bih te već tražio po Srbiji... Bedno.

Poslednja ispravka: VojaM (21.4.2010 u 10:26)
doctor je sada online   Odgovor sa citatom ove poruke
Sledeći korisnik se zahvaljuje korisniku doctor na korisnoj poruci:
Geomaster (20.4.2010)
Stara 20.4.2010, 20:57   #6
Geomaster
V.I.P. Programiranje
 
Član od: 28.6.2007.
Lokacija: Beograd
Poruke: 2.342
Zahvalnice: 2.836
Zahvaljeno 1.047 puta na 507 poruka
Slanje poruke preko MSN-a korisniku Geomaster Slanje poruke preko Skypea korisniku Geomaster
Određen forumom Re: Molim za pomoc oko zadatka! Delphi:)

Citat:
boshkodj kaže: Pregled poruke
Evo, uradio sam ti domaci. Prvo probaj, pa ako ti odgovara, poslacu ti i source.

http://xxxxxxxxxxxxxxxxxxxxxxxxxx
Preterao si dečko, i to debelo.

@doctor: Edituj poruku, vidi ti se link u citatu...
Geomaster je offline   Odgovor sa citatom ove poruke
Stara 21.4.2010, 17:32   #7
boshkodj
Veteran
 
Član od: 4.7.2008.
Lokacija: Somewhere along the line
Poruke: 505
Zahvalnice: 85
Zahvaljeno 34 puta na 29 poruka
Određen forumom Re: Molim za pomoc oko zadatka! Delphi:)

Izvinite, stvarno sam preterao
boshkodj je offline   Odgovor sa citatom ove poruke
Odgovor

Bookmarks sajtovi

Alatke vezane za temu
Vrste prikaza

Vaš status
Ne možete postavljati teme
Ne možete odgovarati na poruke
Ne možete slati priloge uz poruke
Ne možete prepravljati svoje poruke

BB kod: uključeno
Smajliji: uključeno
[IMG] kod: uključeno
HTML kod: isključeno


Slične teme
tema temu započeo forum Odgovora Poslednja poruka
Sta mislite o ovoj konfiguraciji? Molim pomoc! stefanopulos Šta da kupim? 25 2.11.2009 23:55
Megaupload premium nalog, gde ima...? jovche Internet tehnologije 31 10.4.2009 13:51
Molim Pomoc!!! Nov "kompjuterash"!!! salegl Šta da kupim? 21 4.12.2007 11:19
Molim za pomoc...(maticna ASUS TUEP2-M & 200GB HDD) CakumPakumVakum Nosači podataka 1 4.2.2006 1:43
molim pomoc - nestabilnost sistema severijan Kvarovi 10 5.12.2005 0:03


Sva vremena su po Griniču +2 h. Sada je 8:46.


Powered by vBulletin® verzija 3.8.7
Copyright ©2000–2020, vBulletin Solutions, Inc.
Hosted by Beograd.com