 |
www.elektronik.si
Forum o elektrotehniki in računalništvu
|
| Poglej prejšnjo temo :: Poglej naslednjo temo |
| Avtor |
Sporočilo |
Silvo
Moderator
 
Pridružen-a: Pon 24 Feb 2003 17:09
Prispevkov: 14677
Aktiv.: 61.80
|
|
| Nazaj na vrh |
|
 |
Silvo
Moderator
Pridružen-a: Pon 24 Feb 2003 17:09
Prispevkov: 14677
Aktiv.: 61.80
|
 Objavljeno: Pet Sep 28, 2007 5:39 pm Naslov sporočila: |
 |
|
| GJ je napisal/a: |
| Silvo je napisal/a: |
| Poskusil sem proceduro Val ter funkcijo StrToFloat. Kako rešujete podobne težave? |
Najlažje preveriš dogodek OnKeyPress takole:
| Koda: |
procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in['0'..'9','-',DecimalSeparator, #8, #13, #128])then
key:=#0;
if key=#13 then //Če pritisneš enter se naj izvrši...
IzracunajPodatek;
end; |
Kasneje pa takole:
| Koda: |
try
x := StrToInt(...
except
//pohendli napako!
end;
|
Drugače pa je to že nova tema! 
LP GJ |
Poskusil tole v praksi.
Poučno, razumljivo, enostavno... Hvala.
| Koda: |
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['1'..'9']) then
begin
key:=#0;
Application.MessageBox('Bimbo, le cifre!','Napaka',0)
end
end; |
_________________
lp
Silvo |
|
| Nazaj na vrh |
|
|
GJ
Član
Pridružen-a: Čet 02 Nov 2006 15:51
Prispevkov: 946
Aktiv.: 4.16
Kraj: Ljubljana
|
| Objavljeno: Sob Sep 29, 2007 1:12 am Naslov sporočila: |
|
|
| jur je napisal/a: |
| Forward direktiva je kar dobra stvar. Na delovanje programa ne vpliva, objektno programiranje gor ali dol. Uporaba je bistveno hitrejša in bolj praktična, kot kopiranje procedure na začetek, ali vpisovanje v interface section programa (to je le bolj komplicirana oblika forwarda, kjer je za povrh potrebno vpisati ali copy/paste premakniti vse parametre). |
Eee moj Jur..
Žal ni tako..
Delphi se je vmes razvijal..
Razvijajo pa ga ljudje z vsaj IQ 130 in več..
Copy paste ni potreben ker obstajajo shortcat-i kot naprimer Ctrl-Alt-c, ki ti že vsaj od verzije 5 naprej avtomatično generira kodo, če napišeš deklaracijo v interface delu.
| jur je napisal/a: |
| Podobna zadeva je goto stavek. Nekateri se kar nerazumljivo zgražajo nad njim, vendar je izjemno učinkovit (in kratek) za uporabo (strukturirano programiranje gor ali dol). |
Ja..
Vendar pa je programiranje intelektualna umetnost..
In tukaj tiči razlog zakaj goto stavek ni zaželjen!
| jur je napisal/a: |
Mimo tematike: Enkrat je ena programerska firma uporabnikom razlagala delovanje in uporabo svojega novega programa. V vsakem drugem stavku je bilo omenjeno objektno ali strukturirano programiranje, tako da ubogi uporabniki pojma niso imeli, kako naj uporabljajo program. Sem rekel: ja guspa, sej mi tle vse delamo z objekti. Tud drva t_ko zlagamo. Od takrat naprej so samo z stisnjenimi zobmi pojasnjevali uporabo programa. Brez objektov in podobnega nakladanja.  |
Če so končnemu uporabniku razlagali kaj je to objektno programiranje to res ni bila neka profi firma! Za uporabnika je pomembno obladovanje uporabniškega vmesnika (HMI) in ne tehnika programiranja,
| jur je napisal/a: |
'1 ,0' is not a valid floating point value':
Uporabljam izključno decimalno piko, ne vejice in nisem še doživel kaj takega. |
Ali je tvoje življenje zelo kratko ali pa nisi nikoli zaganjal aplikacij na slovenskih in ameriških winsih! Vprašaj Silvota, ki piše programe v Delphiju že cele tri dni! 
| Silvo je napisal/a: |
Poskusil tole v praksi.
Poučno, razumljivo, enostavno... Hvala. |
Ni zakaj..
Vidim, da ti kar dobro gre..
Drugače pa je osnovno bistvo objektnega programiranja programsko dedovanje lastnosti prednikov in s tem večja preglednost/nadzor programa. Če ima nek objekt skupnega prednika ima tudi skupne 'gene' oziroma logiko. In to je bistvo uspeha objektnega programiranja. In končnega uporabnika to ne zanima sploh! Zanima pa tistega, ki bo gledal to tvojo kodo čez nekaj let.
LP GJ
|
|
| Nazaj na vrh |
|
|
jur
Član
Pridružen-a: Pet 02 Dec 2005 14:45
Prispevkov: 5142
Aktiv.: 21.65
Kraj: [color=zelena]Ljubljana[/color]
|
| Objavljeno: Pon Okt 01, 2007 10:58 am Naslov sporočila: |
|
|
| GJ je napisal/a: |
| ...Razvijajo pa ga ljudje z vsaj IQ 130 in več... |
Če pogledaš na buge, ki jih pri tem naredijo, zgleda, da imajo tudi programerje z IQ 30 in manj.
| GJ je napisal/a: |
| ...Ali je tvoje življenje zelo kratko ali pa nisi nikoli zaganjal aplikacij na slovenskih in ameriških winsih! |
Moje programersko življenje je čez 20 let. Prva generacija pri nas, ki se je učila pascal.
Jur
|
|
| Nazaj na vrh |
|
|
mucek4
Član
Pridružen-a: Sob 18 Jun 2005 20:52
Prispevkov: 2952
Aktiv.: 12.43
Kraj: Tržič - Mesto med gorami
|
| Objavljeno: Pon Okt 01, 2007 12:25 pm Naslov sporočila: |
|
|
| Silvo je napisal/a: |
| Koda: |
if key=#13 then //Če pritisneš enter se naj izvrši...
IzracunajPodatek;
|
|
Silvo. Če nočeš, da ob pritisku tipke enter ne zapiska napiši takole:
| Koda: |
if key=#13 then begin
key:=#0;
IzracunajPodatek;
end;
|
|
|
| Nazaj na vrh |
|
|
|
|
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
Ne, ne moreš pripeti datotek v tem forumu
Ne, ne moreš povleči datotek v tem forumu
|
Uptime: 7 dni
Powered by phpBB © 2001, 2005 phpBB Group
|
Pomoč
Išči
Seznam članov
Skupine
Statistika
Album
Filemanager
Registriraj se
Priponke
Koledar
Tvoj profil
Prijava
Še dobro, da me je GJ opozoril glede decimalke, sicer si bi belil glavo kaj je narobe, kajti ko sem ta programček pognal na enem službenem pc-ju z angleško verzijo je program težil glede vejice...
