Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
12.05.2002. binarno ucitavanje fajlova...
24.05.2002. Kreiranje fajlova - ima li josh neki nachin?
25.03.2005. Program za skupljanje naziva fajlova?
25.04.2005. Zamena karaktera u vise txt fajlova
20.05.2005. ucitavanje sadrzaja folder-a u fajl
22.08.2005. Imena fajlova u Combo Box
20.09.2005. Kako ovo da rjesim ...
07.12.2005. Pomoc u vezi kreiranja funkcije??
30.03.2006. generisanje niza output fajlova?

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Ucitavanje fajlova(npr.txt) u aplikaciju

[es] :: Pascal / Delphi / Kylix :: Ucitavanje fajlova(npr.txt) u aplikaciju

[ Pregleda: 3177 | Odgovora: 19 ] > FB > Twit

Autor

beli.pastuv
Milos Zikic
Student
Bor, Srbija

Član broj: 120340
Poruke: 66
*.smin.my-its.net.

Profil

Ucitavanje fajlova(npr.txt) u aplikaciju

^{07.11.2006. u 17:05 - pre 212 meseci}

Interesuje me kako mogu da ucitam neki txt fajl u npr memo1.text obrazac preko opendialog-a? Takodje bi mi bilo dragoceno ako bi me neko posavetovao kako mogu da startujem tajmer od pocetka kao stopericu a ne da iscitavam trenutno vreme iz biosa? Unapred hvala svima na odgovorima!

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
212.200.145.*

Sajt: https://avramovic.info

+46 Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{07.11.2006. u 18:23 - pre 212 meseci}

1.

Code:
if opendialog1.execute then memo1.lines.loadfromfile(opendialog1.filename);

2.
timer1.enabled:=true; ?

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

beli.pastuv
Milos Zikic
Student
Bor, Srbija

Član broj: 120340
Poruke: 66
*.smin.my-its.net.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{07.11.2006. u 22:20 - pre 212 meseci}

Hvala za ucitavanje txt fajla u memo.text bas mi je pomoglo! Sto se tice tajmera ova naredba ga samo aktivira ali meni je potrebno da ga podesi da pocne od 00:00:00 a ne da ''cupa'' vreme iz biosa npr.23:12:52!?

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
212.200.145.*

Sajt: https://avramovic.info

+46 Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{07.11.2006. u 22:32 - pre 212 meseci}

Ne razumem te, pojasni malo šta hoćeš tačno od timera? Timer jednostavno ponavlja OnTimer događaj na svakih xxxx milisekundi (koliko je definisano u svojstvu Interval).

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.kalik.info.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{08.11.2006. u 00:53 - pre 212 meseci}

Citat:

beli.pastuv: Sto se tice tajmera ova naredba ga samo aktivira ali meni je potrebno da ga podesi da pocne od 00:00:00 a ne da ''cupa'' vreme iz biosa npr.23:12:52!?

Pozdrav,

koliko sam te razumeo, treba ti štoperica, odnosno, simulacija štoperice!?! Ako je tako, postavi na TForm komponentu TTimer i TLabel. Potom na event OnTimer možeš odraditi:

Code:

Label1.Caption:= Format ('%.1h',[(Now - StartCount) * 86400]);

Evo ti ceo source:

Code:

...
var
  Form1: TForm1;
  StartCount: TTime;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:= Format ('%.1f',[(Now - StartCount) * 86400]);
end;

procedure TForm1.StopClick(Sender: TObject);
begin
  Timer1.Enabled:=false;
end;

procedure TForm1.NewCountClick(Sender: TObject);
begin
  StartCount:= Now;
  Timer1.Enabled:=true;
end;
...

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

beli.pastuv
Milos Zikic
Student
Bor, Srbija

Član broj: 120340
Poruke: 66
*.beobug.com.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{10.11.2006. u 13:47 - pre 212 meseci}

Hvala puno ste mi pomogli, hvala najlepse! Sve je veoma jednostavno, ali kad se neke stvari ne znaju, one se ne znaju... Sad imam novi problem, nije u skaldu sa postavljenom temom, ali nema veze! Potrebno mi je da mi neko objasni kako mogu da napravim da kada pokrenem program i kliknem na dugme, da se stvori nova forma (prozor).. koju kasnije mogu da zatvorim, ne znam ali ako je moguce bilo bi bolje sa create/destroy a ne sa visble:=true/false. Jednostavnije - KAKO SE POVEZUJU DVE FORME?

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.kalik.info.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{10.11.2006. u 14:03 - pre 212 meseci}

Citat:

Potrebno mi je da mi neko objasni kako mogu da napravim da kada pokrenem program i kliknem na dugme,da se stvori nova forma (prozor).. koju kasnije mogu da zatvorim, ne znam ali ako je moguce bilo bi bolje sa create/destroy a ne sa visble:=true/false. Jednostavnije - KAKO SE POVEZUJU DVE FORME?

Treba vršiti pretragu na forumu pogotovo ako su ovakva pitanja.
Na TForm1:

Code:

Form2:= TForm2.Create(nil);
Form2.Show;

u odeljak uses dodaj Unit2, ako si ga tako nazvao. Izlaz iz TForm2, odradi jednostavno sa Close

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

beli.pastuv
Milos Zikic
Student
Bor, Srbija

Član broj: 120340
Poruke: 66
*.beobug.com.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{12.11.2006. u 11:36 - pre 212 meseci}

Hvala ti Milose, zahvaljujuci tebi sam zavrsio svoj program Pitagoru v1.0! Radjen je po uzoru na scientific calculator iz windowsa, tako da postuje starije operacije pri racunanju, ali je prosiren sa mogucnoscu resavanja kvadratnih jednacina, sto smatram idealnim za sve srednjoskolce! Takodje u programu je ubacen i komletan source code, super resenje za sve one koji uce programiranje u Delphiju, a naravno mogu se obratiti i meni radi pojasnjavanja! Ukoliko si ti ili bilo ko drugi zainteresovan mogu vam poslati e-mailom, program je velik samo 457 kb! POZDRAV!

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
212.200.145.*

Sajt: https://avramovic.info

+46 Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{12.11.2006. u 12:08 - pre 212 meseci}

Prikači ga uz poruku ovde na forumu

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

beli.pastuv
Milos Zikic
Student
Bor, Srbija

Član broj: 120340
Poruke: 66
*.beobug.com.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{12.11.2006. u 12:15 - pre 212 meseci}

Izvol'te!

Prikačeni fajlovi

Project1.exe

Project1.exe - 457.5k

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.kalik.info.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{12.11.2006. u 13:13 - pre 212 meseci}

Citat:

beli.pastuv: Sto se tice tajmera ova naredba ga samo aktivira ali meni je potrebno da ga podesi da pocne od 00:00:00 a ne da ''cupa'' vreme iz biosa npr.23:12:52!?

Izgleda da te ovde i nisam baš najbolje razumeo, jer u primeru koji si postavio odradio si da u toku aktivnosti programa i sistemski sat ti bude aktivan, dinamičan - ne statičan. Postovao sam ti primer na osnovu kojeg možeš napraviti simulaciju za štopericu. Bez obzira, ako je to u pitanju, ipak si rešio problem.

Što se tiče programa, a "početnik" si, ovo izgleda sasvim solidno, mada kako budeš učio shvatićeš i sam šta ćeš sve moći unaprediti, što će ti biti satisfakcija ka daljem usavršavanju, a i novijim verzijama kalkulatora.

BTW, zahvaljujem se na zahvali i drago mi je ako sam ti u nečemu pomogao, savetujem ti da vršiš pretragu foruma jer ćeš naći mnoštvo odgovora na tvoja buduća pitanja.

Pozdrav.

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

beli.pastuv
Milos Zikic
Student
Bor, Srbija

Član broj: 120340
Poruke: 66
*.beobug.com.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{12.11.2006. u 13:41 - pre 212 meseci}

Hvala na savetima i pohvalama, a sto se tice stoperice to mi je trebalo za neki drugi program, ovde je samo obican sat! Bio bih ti zahvalan jos ako bi mi dao misljenje za novu ideju. Hocu da napravim izlazni fajl oblika *.txt koji se moci da se snimi opcijom Save As i u kome ce biti upisan kompletan proces racunanja (npr. u fajlu rad.txt ce stojati tekst 2+3*3-1=10) i koliko ce to biti korisno! Pozdrav

Odgovor na temu

pricadarko
Darko Prica
Novi Sad

Član broj: 105564
Poruke: 14
*.metrohive.net.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{12.11.2006. u 14:34 - pre 212 meseci}

Nevezano za temu, ali ... Posto si pocetnik mozda bi trebao da znas i ovo. Imas "sifru" na source codu, znam da je nisi stavio da ljudi ne bi mogli da ga pogledaju (da si hteo ne bi stavio tako jednostavnu), ali ako je stavis u kodu (a nije kriptovana) sifra je totalno bezvredna. Ceo Borland paket alata je isti. EXE koji dobijes je veoma lako citljiv i promenljiv u bilo kom HEX editoru, pa cak mozes da ga otvoris i modifikujes sa UltraEdit-om. Tako, mozes menjati labele dugmadi, poruke koje program izbacuje, sifre koje se zahtevaju ... Cisto da znas za kasnije.
Pozdrav.

Odgovor na temu

beli.pastuv
Milos Zikic
Student
Bor, Srbija

Član broj: 120340
Poruke: 66
*.beobug.com.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{12.11.2006. u 15:06 - pre 212 meseci}

Hvala o ovome bas nisam imao pojma, mislio sam da je dobijeni *.exe fajl totalno ne editabilan ali sam se ocigledno prevario. Sifru sam stavio cisto onako da oprobam svoje skromno umece, posto Delphi ucim tek nepunih dva meseca. Da bi se provalila nije potrebno nikakvo hakersko umece dovoljno je da se procita help! Posto ocigleno nisi pocetnik i imas dosta iskustva bilo bi lepo kada bi mi objasnio kako da je kriptujem, posto stvarno nemam ideju, osim one kada se ukucana sifra zamenjuje sa *****. Vezano za ovo bih ti preporucio sajt www.picofactory.com koji poseduje par super programcica izmedju kojih je i picocrypt koji bas sluzi za kriptovanje fajlova, a cela "caka" je u tome da su svi programi radjeni u assembleru i neverovatno su malih velicina, prosto nisam verovao. Iznenadices se! Hvala unapred na zanju!

Odgovor na temu

pricadarko
Darko Prica
Novi Sad

Član broj: 105564
Poruke: 14
*.metrohive.net.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{12.11.2006. u 15:33 - pre 212 meseci}

Za kriptovanje postoje naravno profi alati koji ti obezbedjuju 128bit-nu enkripciju ali za neke sitne stvari ne moras koristiti nikakve dodatne programe. Dovoljno je da uzmes dva-tri niza od po 15 karaktera i da napises metodu koja uzima po nekom (samo tebi poznatom) redu karaktere i sklapa sifru. Znaci, nizovi ce biti vidljivi i u dobijenom EXE ali kod nije vidljiv, odnosno kod se ne moze menjati (bar ja ne znam) te si koliko - toliko zasticen.
Primer:
"DSADASJWE3434Y7"
"QWRTERTXNXVCKDS"
"SDF3YUWRHKJDFUS"
pa protrcis po nizovima sa tvojom funkcijom, uzmes npr. ASCI kodove pronadjenih karaktera i sklopis neku svoju sifru.

Odgovor na temu

beli.pastuv
Milos Zikic
Student
Bor, Srbija

Član broj: 120340
Poruke: 66
*.beobug.com.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{12.11.2006. u 20:33 - pre 212 meseci}

Znam da ovo nije tema za enkripciju i dekripciju, ali prosto moram da pitam pa cu posle pogledati po ostatku foruma! Jer bi mogao prosto da napravim par nizova i u njima projzvoljno dodam podatke tipa char, i ako stringu sifra dodam vrednost edit polja u koje je upisana sifra jednostavno pitam:

Code:

if (sifra[1]=a[5]) and (sifra[2]=b[21])...........and (sifra[x]=a[y]) then pass:=true
else showmessage('Pogresna sifra');

ako te ne mrzi molim te napisi mi neki svoj primer!

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.240.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{12.11.2006. u 23:00 - pre 212 meseci}

Evo posto si vec dao kod programa koji je gore spomenut, dao sam sebi slobodu da ti ga malo doradim i uglancam. Malo sam sredio forme ( forme sam radio od nule, sa samo sam koristio delove koja, a u sustini sam i kod malo optimizovao ) i dodao sam ti primanje komandi sa tastature, tako da sada u edit mozes da kucas 2 + 3 = i on ce ti izracunati kao da si kliktao na dugmice kalkulatora...

Nadam se da ce ti se svideti ovako kako izgleda, pa javi sta mislis.

P.S. Pogledaj prozor o autoru programa i obrati paznju na link za sajt ;).

P.S.2 Ovaj drugi fajl je Kalkulator koji koristi XP manifest, ali bi na toj varijanti trebalo malo resizeovati dugmice da bi ceo Caption stao na dugme, a ne da bude onako kako se sada... Pogledaj i to pa ako ti se svidi povecaj malo sporne dugmice.

_{[Ovu poruku je menjao Strog dana 13.11.2006. u 00:11 GMT+1]}

ex Strog

http://www.zeussoftware.rs

Prikačeni fajlovi

Kalkulator.zip

Kalkulator.zip - 183.25k

KalkulatorXPTema.zip

KalkulatorXPTema.zip - 240.36k

Odgovor na temu

pricadarko
Darko Prica
Novi Sad

Član broj: 105564
Poruke: 14
*.metrohive.net.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{13.11.2006. u 09:32 - pre 212 meseci}

Dobro si razumeo, to je upravo to. Mozes jos malo da zakomplikujes sa ASCI kodovima ili recimo kombinacijom toga sto si ti rekao i npr. serijskog broja HDD da bi se bolje zastitio.

Odgovor na temu

beli.pastuv
Milos Zikic
Student
Bor, Srbija

Član broj: 120340
Poruke: 66
*.beobug.com.

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{13.11.2006. u 13:32 - pre 212 meseci}

Hvala Strogu na znacajnim informacijama puno mi je pomogao, Pitagora izgleda sada mnogo bolje, a sto se tice XP manifesta sad mi je jasno cemu sluzi, padalo mi je napamet ali nisam ni pomisljao da je ovako jednostavno! Samo bih ti bio jos zahvalan kada bi mi objasnio sta radi funkcija key:=#0? A Darku puno hvala za sifru, ukljucicu taj sistem u narednoj verziji programa, samo bez tolikih komplikacija, kao na primer to sa serijskim brojem hard diska, rano je za takvu enkripciju! Kad bi mi jos neko odgovorio sta misli o opciji Save As (gore navedenoj u mom postu) i o njenoj prakticnoj primeni!!!! Pozdrav svim pomagacima!

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.240.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Ucitavanje fajlova(npr.txt) u aplikaciju

^{13.11.2006. u 19:30 - pre 212 meseci}

key := #0 ti je stavljeno da se ne bi karakteri +, -, * i / otkucali na editu vec da se ne otkuca nista... To ti je u sustini Null string i ne predstavlja nikakav znak

.

SaveAs bi ti bila super opcija da bi ucenici imali postupno resene jednacine. Samo napred

.

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Ucitavanje fajlova(npr.txt) u aplikaciju

[ Pregleda: 3177 | Odgovora: 19 ] > FB > Twit

Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
12.05.2002. binarno ucitavanje fajlova...
24.05.2002. Kreiranje fajlova - ima li josh neki nachin?
25.03.2005. Program za skupljanje naziva fajlova?
25.04.2005. Zamena karaktera u vise txt fajlova
20.05.2005. ucitavanje sadrzaja folder-a u fajl
22.08.2005. Imena fajlova u Combo Box
20.09.2005. Kako ovo da rjesim ...
07.12.2005. Pomoc u vezi kreiranja funkcije??
30.03.2006. generisanje niza output fajlova?

Navigacija

Lista poslednjih: 16, 32, 64, 128 poruka.