Newsgroup: it.comp.lang.pascal
Titolo: Controlli numerici

Non č possibile ricevere in input una stringa e controllare se sia un numero
o meno???? io (che vengo dal cobol :-(** ) ricevevo tutti i dati da
terminale in campi alfanumerici (stringhe) , poi esisteva un controllo piů o
meno cosě:
 if  NOME_CAMPO  numeric then ........
e a quel punto, se il campo NOME_CAMPO era un numero poteva essere spostato
anche in variabili di tipo numerico. Questo č possibile in TP???
Graize ancora.

...


Entro nella stanza e...cosa ti vedo ? sette lettini.
Su uno di essi c'era scritto Riccardo :
#Non č possibile ricevere in input una stringa e controllare se sia un numero
#o meno???? io (che vengo dal cobol :-(** ) ricevevo tutti i dati da
#terminale in campi alfanumerici (stringhe) , poi esisteva un controllo piů o
#meno cosě:
# if  NOME_CAMPO  numeric then ........
#
#e a quel punto, se il campo NOME_CAMPO era un numero poteva essere spostato
#anche in variabili di tipo numerico. Questo č possibile in TP???
Puoi leggere l'input in una stringa e scrivere una funzione :
function is_numeric( s : string ) : boolean ;
var i : integer ;
begin
  is_numeric := true ;
  for i := 1 to length( s ) do
      if not( s[i] in ['0'..'9'] ) then
      begin
        is_numeric := false ;
        exit ;
      end ;
end ;
ed utilizzarla come :
if is_numeric( NOME_CAMPO ) then ...
Andrea Laforgia        (
andrea_...@bigfoot.com
)
----------------------------------------------------
There is nothing better for understanding a kangaroo
than seeing it jump.
----------------------------------------------------

 anche in variabili di tipo numerico. Questo č possibile in TP???
Function IsNumeric(S : String):Boolean;
Var R : Real; Chk : Integer;
Begin
  Val(S,R,Chk);
  IsNumeric := Chk=0;
End;
??? :-)
-- 
Franz Glaser, Glasau 3, A-4191 Vorderweissenbach Austria +43-7219-7035-0
Muehlviertler Elektronik Glaser.  Industrial control and instrumentation
http://members.eunet.at/meg-glaser/
           mailto:
meg-g...@eunet.at
http://www.geocities.com/~franzglaser/
 
http://members.xoom.com/f_glaser/

Ciao
Cosa fanno i comandi "try" ed  "except"  ?
CIAOoooo....
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

Entro nella stanza e...cosa ti vedo ? sette lettini.
Su uno di essi c'era scritto Auran :
#Cosa fanno i comandi "try" ed  "except"  ?
Purtroppo il codice postato e' Delphi e non Pascal.
try...except... servono a gestire le eccezioni d'errore nel codice,
cioe' si dice : tenta (try) questi comandi, se va tutto bene, ok,
altrimenti esegui i comandi di "except".
Non sono comunque comandi Pascal.
Anche se nel codice, a dire la verita', dovrebbe esserci qualcosa di
sbagliato, in quanto la stringa non viene passata per riferimento,
mentre dovrebbe esserlo per funzionare correttamente.


 mentre dovrebbe esserlo per funzionare correttamente.
io l'ho provato in un pgm TP7 e funziona che è una meraviglia......

Entro nella stanza e...cosa ti vedo ? sette lettini.
Su uno di essi c'era scritto Riccardo :
#> Anche se nel codice, a dire la verita', dovrebbe esserci qualcosa di
#> sbagliato, in quanto la stringa non viene passata per riferimento,
#> mentre dovrebbe esserlo per funzionare correttamente.
#io l'ho provato in un pgm TP7 e funziona che è una meraviglia......
Ripeto ancora una volta, visto che non ci intendiamo :
NON SONO COMANDI *PASCAL*
(il Pascal e' una cosa, TP e Delphi sono un'altra).
In quanto al funzionamento, normalmente i parametri vanno passati per
riferimento e non per copia perche' si agisca effettivamente su di
loro !
