/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
String to integer???
Fra : news


Dato : 13-09-02 20:54

Hej
Jeg forsøger at indlæse et tal fra en string, mit problem er blot, at jeg
ikke på forhånd ved om stringen indeholder tekst eller tal...!

Hvordan tester jeg om indholdet af en given string er en valid integer?
(Hvis jeg benytter 'StrToInt' får jeg en fejlmelding hvis stringen
indeholder tekst.)

Venligst

claus



 
 
Peter Vrist (13-09-2002)
Kommentar
Fra : Peter Vrist


Dato : 13-09-02 22:37

Brug:

try
x := StrToInt(TalStr);
ShowMessage('Værdien er konverteret...');
except
ShowMessage('Værdien indeholder andet end tal...');
end;

Det skulle virke.

Opstår der en fejl under konverteringen, hoppet der direkte til except
delen, ellers fortsættes der.

Peter Vrist


"news" <1@2.3> skrev i en meddelelse
news:3d82427f$0$27675$edfadb0f@dspool01.news.tele.dk...
> Hej
> Jeg forsøger at indlæse et tal fra en string, mit problem er blot, at jeg
> ikke på forhånd ved om stringen indeholder tekst eller tal...!
>
> Hvordan tester jeg om indholdet af en given string er en valid integer?
> (Hvis jeg benytter 'StrToInt' får jeg en fejlmelding hvis stringen
> indeholder tekst.)
>
> Venligst
>
> claus
>
>



Simon Hiort-Lorenzen (13-09-2002)
Kommentar
Fra : Simon Hiort-Lorenzen


Dato : 13-09-02 23:43


"news" <1@2.3> wrote in message
news:3d82427f$0$27675$edfadb0f@dspool01.news.tele.dk...
> Hej
> Jeg forsøger at indlæse et tal fra en string, mit problem er blot, at jeg
> ikke på forhånd ved om stringen indeholder tekst eller tal...!
>
> Hvordan tester jeg om indholdet af en given string er en valid integer?
> (Hvis jeg benytter 'StrToInt' får jeg en fejlmelding hvis stringen
> indeholder tekst.)

Du kan bruge Try .. Except til at fange fejlen med, eller du kan tage et kig
på Val proceduren.

Simon



David A. D. Konrad (15-09-2002)
Kommentar
Fra : David A. D. Konrad


Dato : 15-09-02 13:31

"news" <1@2.3> skrev i en meddelelse
news:3d82427f$0$27675$edfadb0f@dspool01.news.tele.dk...
> Hej
> Jeg forsøger at indlæse et tal fra en string, mit problem er blot, at jeg
> ikke på forhånd ved om stringen indeholder tekst eller tal...!

Du burde overveje at bruge en variant.




Lars Bargmann (16-09-2002)
Kommentar
Fra : Lars Bargmann


Dato : 16-09-02 12:07

StrToIntDef...

Bargmann

"news" <1@2.3> wrote in message
news:3d82427f$0$27675$edfadb0f@dspool01.news.tele.dk...
> Hej
> Jeg forsøger at indlæse et tal fra en string, mit problem er blot, at jeg
> ikke på forhånd ved om stringen indeholder tekst eller tal...!
>
> Hvordan tester jeg om indholdet af en given string er en valid integer?
> (Hvis jeg benytter 'StrToInt' får jeg en fejlmelding hvis stringen
> indeholder tekst.)
>
> Venligst
>
> claus
>
>



Hans Milling (11-10-2002)
Kommentar
Fra : Hans Milling


Dato : 11-10-02 21:48

news wrote:
> Hej
> Jeg forsøger at indlæse et tal fra en string, mit problem er blot, at jeg
> ikke på forhånd ved om stringen indeholder tekst eller tal...!
>
> Hvordan tester jeg om indholdet af en given string er en valid integer?
> (Hvis jeg benytter 'StrToInt' får jeg en fejlmelding hvis stringen
> indeholder tekst.)
>
> Venligst
>
> claus
>
>

Du kan prøve den gode gamle Val funktion, så skal du ikke lege med
exceptions:

procedure TForm1.Button1Click(Sender: TObject);
var
Number : Integer;
strInput : string;
Error : Integer;
begin
InputQuery('Tast...','Skriv et tal', strInput);
Val(strInput,Number,Error);
if Error<>0 then ShowMessage('Du har ikke tastet et heltal')
else ShowMessage('Du har tastet et heltal');
end;

Hans...


Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste