Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 9 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Delphi: Pomoc s Edit

Registrovaný: 20.06.09
Prihlásený: 20.01.13
Príspevky: 24
Témy: 8
Príspevok NapísalOffline : 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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 21.10.08
Prihlásený: 18.12.19
Príspevky: 198
Témy: 74
Bydlisko: Nitra
Príspevok NapísalOffline : 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;


Offline

Užívateľ
Užívateľ
Delphi: Pomoc s Edit

Registrovaný: 20.06.09
Prihlásený: 20.01.13
Príspevky: 24
Témy: 8
Príspevok Napísal autor témyOffline : 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.


Offline

Skúsený užívateľ
Skúsený užívateľ
Delphi: Pomoc s Edit

Registrovaný: 30.05.06
Prihlásený: 08.10.14
Príspevky: 1756
Témy: 35
Bydlisko: BA - WESTSIDE
Príspevok NapísalOffline : 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.
Offline

Užívateľ
Užívateľ
Delphi: Pomoc s Edit

Registrovaný: 20.06.09
Prihlásený: 20.01.13
Príspevky: 24
Témy: 8
Príspevok Napísal autor témyOffline : 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.


Offline

Skúsený užívateľ
Skúsený užívateľ
Delphi: Pomoc s Edit

Registrovaný: 30.05.06
Prihlásený: 08.10.14
Príspevky: 1756
Témy: 35
Bydlisko: BA - WESTSIDE
Príspevok NapísalOffline : 20.06.2009 19:37

http://www.freepascal.org/docs-html/rtl ... float.html







_________________
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.
Offline

Užívateľ
Užívateľ
Delphi: Pomoc s Edit

Registrovaný: 20.06.09
Prihlásený: 20.01.13
Príspevky: 24
Témy: 8
Príspevok Napísal autor témyOffline : 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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 21.10.08
Prihlásený: 18.12.19
Príspevky: 198
Témy: 74
Bydlisko: Nitra
Príspevok NapísalOffline : 20.06.2009 20:17

Aby sa ti to poamaly vykreslovalo,. to mozes to vykreslovanie supnut cez timer.


Offline

Užívateľ
Užívateľ
Delphi: Pomoc s Edit

Registrovaný: 20.06.09
Prihlásený: 20.01.13
Príspevky: 24
Témy: 8
Príspevok Napísal autor témyOffline : 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?


Odpovedať na tému [ 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. Pomoc zo vstupom Edit Delphi

v Delphi, Visual Basic

4

855

28.02.2010 19:42

SVD Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Delphi - prázdny edit

v Delphi, Visual Basic

2

518

08.09.2013 1:29

nBXXL Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Delphi : Edit nacitanie cisel

v Delphi, Visual Basic

5

752

05.10.2011 12:40

Memorex88 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Delphi pomoc

v Delphi, Visual Basic

4

615

12.01.2017 15:55

void Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pomoc v delphi

v Delphi, Visual Basic

4

1507

18.11.2006 13:30

p55p Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Prosím o menšiu pomoc s Delphi

v Delphi, Visual Basic

4

585

07.10.2018 19:08

peto145 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pomoc s programovaním programu v Delphi 7

v Delphi, Visual Basic

6

1174

02.12.2007 12:11

MANIAC Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. delphi zapis cisla do editu v delphi

v Delphi, Visual Basic

3

1100

11.05.2008 12:02

p360t Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Edit error :)

v Správy pre vedenie fóra

2

1220

12.07.2008 23:20

Triminka Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Cool Edit

v Audio programy

0

1003

24.05.2007 18:04

diademus Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. BBcode Edit

v Redakčné systémy

9

859

23.10.2006 13:48

PCMark Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Tlačítko EDIT

[ Choď na stránku:Choď na stránku: 1, 2 ]

v Správy pre vedenie fóra

38

4760

19.05.2007 0:12

JanoF Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. edit nastavenie

v Delphi, Visual Basic

9

799

14.05.2009 8:10

Fico Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Edit profilu

v PHP, ASP

2

1142

14.12.2008 18:43

kajbo Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Edit - prázdne

v Delphi, Visual Basic

3

655

05.06.2011 0:11

coldak Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Image edit

v Ostatné programy

2

1202

09.04.2006 13:49

Spirit Zobrazenie posledných príspevkov


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

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra