zxz | 09.11.2010 23:12 |
---|---|
Predmet:Koristan Pascal Kod Tetris igrica u paskalu. |
|
Prilozi: tetris.txt (Velicina datoteke:12.07 KB) |
zxz | 10.11.2010 02:00 | ||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Predmet:Učitavanje vrijednosti Za učitavanje vrijednosti koriste se dvije naredbe u paskalu: READ i READLN. Učitavanje moze biti preko ulazne datoteke ili preko tastature. Na primer: READ (i, j, k) znači učitavanje promjenljivih i, j i k. Pretpostavimo da su podaci upisani preko tastature: 25 6 -100 tada će nakon izvrsenja naredbe READ promenljive imati sledeće vrednosti:
U naredbi READ podaci se učitavaju po redu kako su u naredbi navedeni. Na primer: READ (i, j); READ (k, x); READ (y, z) Ako su ulazni podaci: 25 30 400 3.5 7.8 2.0 promenljive će imati sledeće vrednosti:
Naredba READLN učitava vreijdnosti kako su specificirane promenljivama, a nakon toga se prelazi na sledeći red, tj. zanemaruju se svi ostali podaci u tekućem redu. Na primer, neka se izvrse naredbe: READLN (i, j); READLN (x, y) ako su zadati podaci: 10 20 4.5 19 6.9 8.5 17 3.5 Vrijednosti promenljivih biti će:
|
zxz | 10.11.2010 02:36 |
---|---|
Predmet:Delphi-String Grid u boji StringGrid sa ćelijama u boji ima veoma dobar izgled, a na taj način možete informisati o korisnika o važnosti određenog sadržaja u ćeliji. Da bi obojili određene ćelije koristit ćemo događaj "OnDrawCell". U sledećem kodu prikazat ćemo vam kako da obojite pozadinu ćelija u crvenu boju. Pozadina druge kolone ćelija ?e biti obojena u zelenu boju. PreuzmiIzvorni kôd (Delphi): Ukoliko želite da obojite vaÅ¡e ćelije u zavisnosti od vrednosti u ćelijama možete zamijeniti prethodne 3 linije (if Acol = 2 ...), sa sledećim:
PreuzmiIzvorni kôd (Delphi):
|
zxz | 10.11.2010 02:39 |
---|---|
Predmet:Procedura za praznjenje Windows Recycle Bin-a Procedura za praznjenje Windows Recycle Bin-a; Za ovu proceduru cemo iskoristiti sistemsku DLL biblioteku Shell32.dll, koja dolazi uz stariju verziju Internet Explorer-a (verziju 4.0), tj. vec je ugradjena u Windows 98 i novije verzije ovog operativnog sistema. Morate obratiti paznju na to da starije verzije Windows-a 95 nemaju update-ovanu verziju (tj. verzija koja onemogucava izvoz procedure) ove biblioteke. Procedura koristi funkciju SHEmptyRecycleBinA koju ?emo pozvati iz Shell32.dll biblioteke. A sada evo i procedure: PreuzmiIzvorni kôd (Delphi):
|
zxz | 10.11.2010 02:49 |
---|---|
Predmet:Delphi - Funkcija Trim Delphi - Funkcija Trim Jedan od velikih problema za programere je trimovanje ulaznih stringova od strane korisnika programa. Ono sto se cesto desava je da korisnici nepaznjom unesu manji ili veci broj praznih mjesta, a vas program treba da operise sa takvim stringovima, npr. da ih uporedjuje. A Da bi popravili unos korisnika, Delphi obezbjedjuje tri funkcije: Trim TrimLeft TrimRight Zbog postojanja tri trim funkcije, ne morate povecavati kod da bi trimovali odredjeni string sa obje strane. Evo i primera primjene ove funkcije, na praznu formu postavite jedno dugme (Button) i jedan Listbox. I u proceduru dogadjaja OnClick dugmeta dodajte sledece redove: PreuzmiIzvorni kôd (Delphi): Pokrenite program i pritisnite dugme Button1, string konstanta sadrzi prazna mjesta i dodijeljena je varijabli S. Potom je vrednost varijable S dodijeljena drugoj string varijabli - Temp. Sledeci red uklanja prazna mesta sa pocetka i kraja stringa uz pomoc funkcije "Trim". U ovom trenutku, varijabla S vise nema praznih mjesta, a varijabla Temp ima. I u poslednja dva koraka dati stringovi se dodaju u Listbox, jedan ispod drugog, da bi vidjeli razliku.
___Tekst___ Tekst Pokazat cemo i primer za funkciju "TrimRight": PreuzmiIzvorni kôd (Delphi): Kao izlaz dobit cemo string sa cije desne strane su uklonjena tri prazna mjesta:
___Tekst___ ___Tekst |
zxz | 10.11.2010 02:58 |
---|---|
Predmet:Delphi-Skrol teksta Klizna poruka Ovo skrolovanje je vrlo slicno tekstu koji skroluje u Taskbar liniji ili recimo kao u WinAmp prozoru, kada naslov pjesme koja se reprodukuje skroluje. Ono sto cemo prvo odrediti su dvije globalne varijable: PreuzmiIzvorni kôd (Delphi): Prva varijabla (ScrollPozicija) je tipa integer i ona ce sadrzati vrednost trenutne pozicije skrolujuceg teksta, a druga (ScrollTekst) predstavlja tekst koji ce da "klizi" po naslovnoj liniji. Startovat cemo skrolovanje teksta sa istim brojem karaktera (praznih mesta), koliko celimo da se odjednom prikaze odredjeni tekst. Potom skrolovanje pocinje sa desne strane i ide ka levoj. Sledeca procedura koristi komponentu "Timer" da bi se izvrsilo pomijeranje teksta udesno. Zato smo iskoristili dogadjaj komponente "OnTimer":
PreuzmiIzvorni kôd (Delphi):
|
zxz | 26.01.2011 02:37 |
---|---|
Predmet:Delphi - Rad sa tekstualnim fajlovima Delphi - Rad sa tekstualnim fajlovima Svaki tekstualni fajl se sastoji od niza ASCII karaktera. Rad sa ovakvim fajlovima u Delphi-ju je vrlo sličan "čitanju" i snimanju podataka sa audio kaseta. U tekstualne fajlove možemo da dodajemo nove podatke,činimo izmjene nad postojećim i dr. Tekst fajlovi u stvari predstavljaju nizove karaktera koji su formatirani u linije (redove), gde je svaka linija određena znakom "end-of-line" na kraju linije. Da bi uopÅ¡te radili u Delphi-ju sa ovakvim fajlovima, moramo da povežemo fajl na disku sa fajl-varijablom u naÅ¡em programu. Da bi ovo uradili prvo ćemo deklarisati varijablu tipa "TextFile", i potom ćemo uz pomoć procedure "AssignFile" dodijeliti fizički fajl na disku, varijabli u programu: PreuzmiIzvorni kôd (Delphi): ...
Da napomenemo, ukoliko fajl pozvan uz pomoć "FileName", nije u tekućem folderu, moramo navesti celu putanju do fajla na disku. Da bi učitali podatke iz tekst fajla u Delphi projekt, upotrebit ćemo komponentu "TMemo" i upisat ćemo samo jednu liniju programskog koda: Memo1.Lines.LoadFromFile('c:\autoexec.bat') Da bi pročitali iz fajla liniju po liniju, morat ćemo da otvorimo fajl za ulaz, koristeći "Reset" proceduru. Ova procedura otvara postojeći fajl sa nazivom dodeljenim pomoću TextFile varijable. U slučaju da fajl ne postoji na disku javit će se greÅ¡ka. Kada fajl otvorimo na ovaj način - resetovanjem, koristit ćemo instrukciju "ReadLn" za čitanje pojedinačne linije. ... v PreuzmiIzvorni kôd (Delphi): ...
Procedura ReadLn, iÅ¡čitava jednu liniju teksta i prelazi na sledeću. Kada zavrÅ¡imo rad sa tekstualnim fajlovima, obavezno sledi njihovo zatvaranje pomoću procedure "CloseFile". Slična prethodnoj proceduri "ReadLn" je i procedura "Read", s tim Å¡to ona kada iÅ¡čita liniju pokazivač ne prebacuje na sledeću liniju. Takođe, moguće je da sadržaj jedne linije teksta dodijelimo dvjema varijablama odjednom: PreuzmiIzvorni kôd (Delphi): Da spomenemo joÅ¡ i funkciju "EndOfFile" (EOF), koja sliči za provjeru kraja tekstualnog fajla, tj. da spriječi čitanje linija nakon krajnje linije fajla.
PreuzmiIzvorni kôd (Delphi):
|
zxz | 26.01.2011 02:44 |
---|---|
Predmet:Delphi - Preimenovanje fajlova i foldera Delphi - Preimenovanje fajlova i foldera Za ovu operaciju iskoristit ćemo Windows API funkciju "MoveFile()". Preimenovanje ćemo prikazati na primeru, recimo da imamo folder "C:\Moj folder" i da želimo da ga preimenujemo u "C:\Drugi folder". Krajnje je jednostavno, samo pozovemo API funkciju MoveFile(): PreuzmiIzvorni kôd (Delphi): Vrlo je slično i kada se radi o fajlovima, za primer preimenovat ćemo fajl "word.txt" u fajl "excel.txt" u nekom folderu:
PreuzmiIzvorni kôd (Delphi): Evo i sintakse i definicije same API funkcije.
PreuzmiIzvorni kôd (Delphi): Argumenti i parametri funkcije su:
lpExistingFileName - predstavlja PChar string (string koji se zavrÅ¡ava nulom), naziv postojećeg fajla-foldera. lpNewFileName - predstavlja PChar string koji specifikuje novi naziv prethodnog fajla ili foldera. Novi nazivi ne smeju da već postoje, novi fajl može biti na različitom drajvu. Novi folder mora da bude na istom drajvu na kome se nalazi i prethodni folder (preimenovani). Funkcija MoveFile() će premestiti (preimenovati) postojeći fajl ili folder uključujući sve podfoldere. Jedina mana ove funkcije je ta, Å¡to neće proći ako vrÅ¡imo premijeÅ¡tanje (move) na neki drugi drajv na sistemu. |
zxz | 27.02.2011 22:54 |
---|---|
Predmet:Sortiranje podataka Kod za sortiranje podataka. type PreuzmiIzvorni kôd (Delphi):
|