[ 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 | 8
NapísalOffline : 20.06.2009 18:38 | Delphi: Pomoc s Edit

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 | 74
Bydlisko: Nitra
NapísalOffline : 20.06.2009 18:46 | Delphi: Pomoc s Edit

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 | 8
Napísal autor témyOffline : 20.06.2009 18:51 | Delphi: Pomoc s Edit

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 | 35
Bydlisko: BA - WESTSIDE
NapísalOffline : 20.06.2009 19:01 | Delphi: Pomoc s Edit

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 | 8
Napísal autor témyOffline : 20.06.2009 19:12 | Delphi: Pomoc s Edit

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 | 35
Bydlisko: BA - WESTSIDE
NapísalOffline : 20.06.2009 19:37 | Delphi: Pomoc s Edit

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 | 8
Napísal autor témyOffline : 20.06.2009 20:07 | Delphi: Pomoc s Edit

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 | 74
Bydlisko: Nitra
NapísalOffline : 20.06.2009 20:17 | Delphi: Pomoc s Edit

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 | 8
Napísal autor témyOffline : 20.06.2009 20:22 | Delphi: Pomoc s Edit

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?


 [ Príspevkov: 9 ] 


Delphi: Pomoc s Edit



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

909

28.02.2010 19:42

SVD

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

Delphi - prázdny edit

v Delphi, Visual Basic

2

571

08.09.2013 1:29

nBXXL

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

Delphi : Edit nacitanie cisel

v Delphi, Visual Basic

5

807

05.10.2011 12:40

Memorex88

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

Delphi pomoc

v Delphi, Visual Basic

4

697

12.01.2017 15:55

void

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

pomoc v delphi

v Delphi, Visual Basic

4

1543

18.11.2006 13:30

p55p

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

652

07.10.2018 19:08

peto145

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

1212

02.12.2007 12:11

MANIAC

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

delphi zapis cisla do editu v delphi

v Delphi, Visual Basic

3

1161

11.05.2008 12:02

p360t

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

edit

v Kôš

3

9

09.02.2018 11:48

valneti

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

Edit error :)

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.

Image edit

v Ostatné programy

2

1269

09.04.2006 13:49

Spirit

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

edit nastavenie

v Delphi, Visual Basic

9

855

14.05.2009 8:10

Fico

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

Edit profilu

v PHP, ASP

2

1358

14.12.2008 18:43

kajbo

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

Edit - prázdne

v Delphi, Visual Basic

3

694

05.06.2011 0:11

coldak

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

Cool Edit

v Audio programy

0

1052

24.05.2007 18:04

diademus

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

BBcode Edit

v Redakčné systémy

9

911

23.10.2006 13:48

PCMark



© 2005 - 2025 PCforum, edited by JanoF