| | |
| Stránka: 1 z 1
| [ Príspevkov: 4 ] | |
Autor | Správa |
---|
Registrovaný: 04.04.10 Prihlásený: 04.03.14 Príspevky: 41 Témy: 14 | Napísal Gumeny: 04.06.2011 17:38 | |
|
Čaute,
som pomerne začínajúci programátor a chcem sa spýtať, ako mám zapísat podmienku, že keď je Edit okno prázdne? Napr. mám program, kde do Editu (Edit1.Text) sa zapíše hodnota premennej a potom sa odtiaľ načíta, ale Delphi hadže chybu, ak chcem odtiaľ premennú načítať, ale okno je prázdne alebo tam je namiesto čísla text. Chcem, aby v takomto prípade namiesto pádu programu vypísalo Delphi nejakú správu a aby program hneď nepadol.
Ďakujem
|
|
Registrovaný: 29.10.08 Prihlásený: 30.07.12 Príspevky: 933 Témy: 2 | Napísal coldak: 04.06.2011 18:48 | |
|
vloz cas kodu ktora sa vykonava ked ti to pada
|
|
Registrovaný: 04.04.10 Prihlásený: 04.03.14 Príspevky: 41 Témy: 14 | Napísal autor témy Gumeny: 04.06.2011 21:36 | |
|
procedure TForm1.Button1Click(Sender: TObject);
begin
A:=StrToFloat(Edit1.Text);
B:=StrToFloat(Edit2.Text);
X:=A*B;
Label3.Caption:=FloatToStr(X);
end;
S tým, že v tých Edit1 a Edit2 nie je nič napísané. Keď tam zadám normálne čísla, tak to funguje, ako má.
|
|
Registrovaný: 29.10.08 Prihlásený: 30.07.12 Príspevky: 933 Témy: 2 | Napísal coldak: 05.06.2011 0:11 | |
|
jednoduchsie by bolo odchytavat exception EConvertError
Kód: try A:=StrToFloat(Edit1.Text); B:=StrToFloat(Edit2.Text); X:=A*B; Label3.Caption:=FloatToStr(X); except on E : EConvertError do end;
|
|
| Stránka: 1 z 1
| [ Príspevkov: 4 ] | |
| 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
|
|