| | |
| Stránka: 1 z 1
| [ Príspevkov: 9 ] | |
Autor | Správa |
---|
Registrovaný: 20.06.09 Prihlásený: 20.01.13 Príspevky: 24 Témy: 8 | Napísal SVD: 20.06.2009 18:38 | |
|
Dobrý deň.
Som zazačiatočník v oblasti delphi a mám taký problém s prvkom Edit.
Chcem načítať z neho len čísla teda nie znaky a neviem ako by som to ošetril. Výpočet mi prebehne automaticky ak sa zmení honota poľa (teda bez tlačítka). Ono to funguje len problém je v tom že ked vymažem celé okienko tak mi vypíše chybu že musím niečo zadať. Ale ja by som to chcel tak aby aj pri náhodnom znaku aj pri náhodnom vymazaní políčka mi program nič nevypísal a ostal bez činosti. A pokila zadám teda správnu hodnotu teda len číslo bude pracovať.
Tu je zdrojový kód:
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Vypocet(Sender: TObject);
var Zo, Zl, PSV, L, Pod :extended;
begin
Zo:=StrTofloat(Edit1.Text);
Zl:=StrTofloat(Edit2.Text);
L:=abs((Zl-Zo)/(Zl+Zo));
PSV:=(1+L)/(1-L);
Pod:=L*L;
Edit3.Text:=FloatToStr(PSV);
Edit4.Text:=FloatToStr(L);
Edit5.Text:=FloatToStr(Pod);
end;
end.
jedná sa mi vlastne o to načítanie aby mi nevyhazdovalo chybu pri nezadaní ničoho v tom okienku. Ono sa to možno v Object Inspectore nastavuje ale ozaj neviem kde.
Ďakujem.
|
|
Registrovaný: 21.10.08 Prihlásený: 18.12.19 Príspevky: 198 Témy: 74 Bydlisko: Nitra | Napísal KViki: 20.06.2009 18:46 | |
|
myslis nieco taketo?
Kód: var s: string; f: extended; begin s :=edit1.text; if TryStrToFloat(s, f) then ShowMessage('Ok!') // a sem si mozes dat funkciu ktora ti bude pracovat iba s osetrenimi premennymi else ShowMessage('No valid float number!'); //sem mozes dat niec ako //edit1.text:=''; // to znamena prazdny retazec end;
|
|
Registrovaný: 20.06.09 Prihlásený: 20.01.13 Príspevky: 24 Témy: 8 | Napísal autor témy SVD: 20.06.2009 18:51 | |
|
No ja by som nepotreboval ani to že mi napíše že tam musia byť len čísla, predsa to len združe odklikávať nejaké hlásenie, ja by som to cchel aby to nič nerobilo až dovtedy kým tam nebude číslo v tom Edit, pretože to je len výpočet.
Ja načítavám z políčok :
Zo:=StrTofloat(Edit1.Text);
Zl:=StrTofloat(Edit2.Text);
možno iný zápis StrTofloat by pomohol ozaj neviem.
|
|
Registrovaný: 30.05.06 Prihlásený: 08.10.14 Príspevky: 1756 Témy: 35 Bydlisko: BA - WESTSIDE | Napísal p360t: 20.06.2009 19:01 | |
|
Juch, veď to tam už máš, len si to musíš upraviť: Kód: var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Vypocet(Sender: TObject); var vZo, vZl, Zo, Zl, PSV, L, Pod :extended; begin vZo:=Edit1.Text; vZl:=Edit2.Text; if TryStrToFloat(vZo, Zo) and TryStrToFloat(vZl, Zl) then begin L:=abs((Zl-Zo)/(Zl+Zo)); PSV:=(1+L)/(1-L); Pod:=L*L; Edit3.Text:=FloatToStr(PSV); Edit4.Text:=FloatToStr(L); Edit5.Text:=FloatToStr(Pod); end; end;
end.
_________________
A. S. Tanenbaum píše: The terms LF, MF, and HF refer to low, medium, and high frequency, respectively. Clearly, when the names were assigned, nobody expected to go above 10 MHz, so the higher bands were later named the Very, Ultra, Super, Extremely, and Tremendously High Frequency bands. Beyond that there are no names, but Incredibly, Astonishingly, and Prodigiously high frequency (IHF, AHF, and PHF) would sound nice. |
|
Registrovaný: 20.06.09 Prihlásený: 20.01.13 Príspevky: 24 Témy: 8 | Napísal autor témy SVD: 20.06.2009 19:12 | |
|
Dakujem krásne všetkým, pekne to pracuje. Len som skôr nepochopil ten príkaz if TryStrToFloat(s, f) then. Ale už to ide skvele dakujem.
|
|
Registrovaný: 30.05.06 Prihlásený: 08.10.14 Príspevky: 1756 Témy: 35 Bydlisko: BA - WESTSIDE | Napísal p360t: 20.06.2009 19:37 | |
|
_________________
A. S. Tanenbaum píše: The terms LF, MF, and HF refer to low, medium, and high frequency, respectively. Clearly, when the names were assigned, nobody expected to go above 10 MHz, so the higher bands were later named the Very, Ultra, Super, Extremely, and Tremendously High Frequency bands. Beyond that there are no names, but Incredibly, Astonishingly, and Prodigiously high frequency (IHF, AHF, and PHF) would sound nice. |
|
Registrovaný: 20.06.09 Prihlásený: 20.01.13 Príspevky: 24 Témy: 8 | Napísal autor témy SVD: 20.06.2009 20:07 | |
|
p360t dakujem za odkaz.
A ešte taká malá otázka:
Mám v jednom programe použitý klasický Chart a ja bgy som sa cchel spýtať čo by sa garf nedal vykreslovať počas výpočtu teda niečo ako dynamický graf. Niečo ako simulácia, pretože ja som to aj cchel ale nešlo mi to vkuse vykreslilo len poseldné dáta a počas výpočtu sa nemenila krivka. Ďakujem.
|
|
Registrovaný: 21.10.08 Prihlásený: 18.12.19 Príspevky: 198 Témy: 74 Bydlisko: Nitra | Napísal KViki: 20.06.2009 20:17 | |
|
Aby sa ti to poamaly vykreslovalo,. to mozes to vykreslovanie supnut cez timer.
|
|
Registrovaný: 20.06.09 Prihlásený: 20.01.13 Príspevky: 24 Témy: 8 | Napísal autor témy SVD: 20.06.2009 20:22 | |
|
Skúšal som to aj z časovým odstupom ale aj tak to nič nerobilo. A aj keby to robilo, zbytočne by som musel čakať, pretože výpočet tak či tak slho trvá preto by som to nechcel cez ten timer. Nedá sa to nejak nastaviť v tom grafe aby vykresloval každú pridanú hodnotu a nie len výsledok?
|
|
| Stránka: 1 z 1
| [ Príspevkov: 9 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Pomoc zo vstupom Edit Delphi v Delphi, Visual Basic | 4 | 855 | 28.02.2010 19:42 SVD | | Delphi - prázdny edit v Delphi, Visual Basic | 2 | 518 | 08.09.2013 1:29 nBXXL | | Delphi : Edit nacitanie cisel v Delphi, Visual Basic | 5 | 752 | 05.10.2011 12:40 Memorex88 | | Delphi pomoc v Delphi, Visual Basic | 4 | 615 | 12.01.2017 15:55 void | | pomoc v delphi v Delphi, Visual Basic | 4 | 1507 | 18.11.2006 13:30 p55p | | Prosím o menšiu pomoc s Delphi v Delphi, Visual Basic | 4 | 585 | 07.10.2018 19:08 peto145 | | Pomoc s programovaním programu v Delphi 7 v Delphi, Visual Basic | 6 | 1174 | 02.12.2007 12:11 MANIAC | | delphi zapis cisla do editu v delphi v Delphi, Visual Basic | 3 | 1100 | 11.05.2008 12:02 p360t | | Edit error :) v Správy pre vedenie fóra | 2 | 1220 | 12.07.2008 23:20 Triminka | | Cool Edit v Audio programy | 0 | 1003 | 24.05.2007 18:04 diademus | | BBcode Edit v Redakčné systémy | 9 | 859 | 23.10.2006 13:48 PCMark | | Tlačítko EDIT [ Choď na stránku: 1, 2 ] v Správy pre vedenie fóra | 38 | 4760 | 19.05.2007 0:12 JanoF | | edit nastavenie v Delphi, Visual Basic | 9 | 799 | 14.05.2009 8:10 Fico | | Edit profilu v PHP, ASP | 2 | 1142 | 14.12.2008 18:43 kajbo | | Edit - prázdne v Delphi, Visual Basic | 3 | 655 | 05.06.2011 0:11 coldak | | Image edit v Ostatné programy | 2 | 1202 | 09.04.2006 13:49 Spirit |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|