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 | 8 |
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 | 74 Bydlisko: Nitra |
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 | 8 |
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 | 35 Bydlisko: BA - WESTSIDE |
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 | 8 |
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 | 35 Bydlisko: BA - WESTSIDE |
_________________
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 | 8 |
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 | 74 Bydlisko: Nitra |
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 | 8 |
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 |
---|
![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v Delphi, Visual Basic | 4 | 909 | 28.02.2010 19:42 SVD | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v Delphi, Visual Basic | 2 | 571 | 08.09.2013 1:29 nBXXL | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v Delphi, Visual Basic | 5 | 807 | 05.10.2011 12:40 Memorex88 | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v Delphi, Visual Basic | 4 | 697 | 12.01.2017 15:55 void | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v Delphi, Visual Basic | 4 | 1543 | 18.11.2006 13:30 p55p | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v Delphi, Visual Basic | 4 | 652 | 07.10.2018 19:08 peto145 | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v Delphi, Visual Basic | 6 | 1212 | 02.12.2007 12:11 MANIAC | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v Delphi, Visual Basic | 3 | 1161 | 11.05.2008 12:02 p360t | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v Kôš | 3 | 9 | 09.02.2018 11:48 valneti | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v Správy pre vedenie fóra | 2 | 1278 | 12.07.2008 23:20 Triminka | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v Ostatné programy | 2 | 1269 | 09.04.2006 13:49 Spirit | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read_hot.gif) | v Delphi, Visual Basic | 9 | 855 | 14.05.2009 8:10 Fico | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v PHP, ASP | 2 | 1358 | 14.12.2008 18:43 kajbo | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v Delphi, Visual Basic | 3 | 694 | 05.06.2011 0:11 coldak | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read.gif) | v Audio programy | 0 | 1052 | 24.05.2007 18:04 diademus | ![V tomto fóre nie sú ďalšie neprečítané témy. V tomto fóre nie sú ďalšie neprečítané témy.](https://www.pcforum.sk/styles/white/imageset/topic_read_hot.gif) | v Redakčné systémy | 9 | 911 | 23.10.2006 13:48 PCMark |
|