www.elektronik.si

[Silvo]

Knjiga je že nekaj časa doma. Naloženo imam verzijo 6. Popoldne je bilo nekaj časa v službi. "Predelal" sem 100 strani teorije. Sedaj sem se lotil prakse. Glede na to, da imam kar dosti izkušenj s programiranjem v Clipperju pa tudi Pascal mi ni tuj, mi osnovno razumevanje (procedure, funkcije, konstante spremenjivke...) ne dela kakih težav.

Nametal sem nekaj vnosnih polj ter gumbov na form (za nekaj podobnega v DOS okolju bi v Cliperju potreboval vsaj pol ure ) Napisal sem kratko lastno proceduro ter funkcijo.
Imam nekaj vprašanj poznavalcem:
Prevzeta vsebina vnosega polja je tipa string (niz). Ugotovil sem, kje lahko nastavim dolžino. Kako vnosno polje definiram kot real recimo z 2 decimalkama. Kako omejim vnos le na numerične vrednosti? Recimo pri moji testni proceduri sem string pretvoril z vgrajeno funkcijo strtoint() v integer jo matematično obdelal ter vrnil v drugo polje kjer se prikazuje rezultat preko funkcije inttostr() oziroma flottostr() V tem primeru program "crkne" če vnesem karakter.
Zakaj mi lastna funkcija ne dela, če ni napisana pred odzivno proceduro, ki jo kliče?
Toliko za začetek.
Hvala za odgovore.

[Glitch]

Za vnos podatkov, ki naj bi bili dolocenega tipa obstaja objekt TMaskEdit. Ta bo kar koristen.

Glede pretvarjanja podatkov. V primeru napacno vnesenega podatka pomaga, ce uporabljas funkcije, ki vrnejo napako (in jih seveda preverjas) ali pa uporabljajo default vrednosti, ce do napake pride.

Recimo StrToInt vrze exception (katerega moras ujeti), StrToIntDef pa vrne default vrednost (recimo NaN).

[Silvo]

[mucek4]

Za dodatne komponente, o katerih sem ti govoril in ki jih boš občasno potreboval (recimo 7 segmentni displayi, itd...) se pa nahajajo na http://www.torry.net/pages.php?id=20


Če te pa kaj zanima, pa telefon imaš

[jur]

SIlvo: Če je procedura uporabljena prej, kot je napisana, je program ne pozna, zato jo jo deklariraš: forward procedure blabla;
proceduro pa dejansko napišeš kasneje

Jur

[Silvo]

Še vprašanje, preden sploh pridem do tja (Pa, da ne premečem cele pomoči)
Ima Delphi kako enostavno možnost shranjevanja spremenjivk? (recimo pri Clipperju sem lahko vse shranil v *.mem datoteko.) Recimo, ko program zaprem, bi rad shranil trenutne vrednosti vnešene v obrazcu. Pri ponovnem zagonu bi jih rad spet naložil.

[Glitch]

Poglej si objekt TIniFile, ki omogoča shranjevanje v ini datoteke. Obstaja tudi varianta za shranjevanje v registry (ampak ta je ze tako in tako poln raznoraznih smeti).

[mucek4]

Ročno. Avtomatsko ne. Vsako stvar posebej shraniš v TForm.onClose(); Ini je lepa zadevšna, pa tudi ni težko osvojit. Edino, če podaš samo ime datoteke ("mojprogram.ini") jo automatsko shrani v "windows" imenik in ne v tekočega.

[Silvo]

Še nakaj vprašanj za poznavalce Delphija.
TMaskEdit mi dela nekaj težav. Recimo imam masko '999', ki dovoljuje vnos treh številk. Vrednost pretvorim v integer s funkcijo StrToIntDef, še prej pa porežem presldedke s funkcijo Trim, če slučajno vnesem le eno ali dvomestno vrednost. (sicer bi za vnos 1 moral vpisat 001 )
Ok, to nekako gre moti me pa da se v maski v primeru, da je vnešeno manše število kot je dolžina polja ne poravna desno. A gre to izvesti drugače? Je potrtebno masko kako drugače sestavit. A polje vedno vrača string? Hudiča, že z 20 let starim Clipperjem je to šlo lažje - s polja je "priletelo" direkt realno število, če je bila predhodno spremenjivka določena kot numerična. Ne vrjamem, da v Delphiju ne bi šlo, a jaz očitno ne znam. .
Še eno vprašanje:
A mogoče obstaja že narejena funkcija IF (da ne pišem svoje) pa se morda drugače imenuje?
V Clipperju je izgledala nekako takole:
nX=IF(nA=nB,nResA,nResB)

Povedano po domače:Če je vrednost nA, enaka nB potem vrne nResA sicer nResB.

[mucek4]

Silvo. Žal. Web aplikacije so še slabše. Nimaš drugega kot string.
Kot sem ti že rekel. Tukaj je en primer TFloatEdit-a iz torry-ja. FreeWare with Source.

In druga stvar. Ne. Žal. Ne.
Tisti je pogojni operator (vsaj c, java) in se ga uporablja
X = (a==b)?vA_vB;

za delphi je pa spisana knjižnica tukaj

[Sokrat]

Kaj je pa narobe z

[VolkD]

Ha ha.. Silvo, če hočeš pisati v delphi-ju, moraš začeti razmišljat paskalsko. Pozabi na cliper.

[jur]

Najkrajša koda za prej omenjeni if stavek je: if nA=nB then nX:=nResA else nX:=nResB;

Maskedit: mask edit ne poravnava številk na desno, preprosto zato, ker ne ve koliko cifer boš vnesel. Če bi hotel poravnavanje, bi moral uporabiti navaden Edit. Za event OnChange (ko nekaj spremeniš) pa bi moral preveriti pravilnost vnosa (ali je to črka ali cifra) in potem poravnati string.

Delphi je uporabna stvar, vendar nima na razpolago čisto vseh možnosti, ki bi jih človek želel. Zato pa ponuja možnost, da si željo sprogramiraš.

Jur

[aly]

[Silvo]