tjekke om en variabel indholder andet end tal... (pascal)

try
strtoint(variabel)
showmessage('fint tal')
except
showmessage('ikke kun tal');
end;

Det er et dos program... Ved ikke om det gør en forskel?
jeg har en varibael kaldet vaegt...
og jeg skal tjekke om det indholder andet end tal?
og hvis det gør skal der komme en besked...

function IsStrANumber(const S: String): Boolean;
VAR
  V,E : Integer;
begin
  Val(S,V,E);
  Result := (E = 0);
end;

Det GØR man på DKN's måde da det vil tage ALT for langt tid og bruge Exceptions itil noget sådan.

nicidem -> DOS-program? Mener du et TurboPascal-program?
Hvis ja, prøv med

function IsStrANumber(const S: String): Boolean;
VAR
  V,E : Integer;
begin
  Val(S,V,E);
  IsStrANumber := (E = 0);
end;

Har ikke testet det i TurboPascal!

if IsStrANumber(vaegt) then
  writeln(vaegt,' er ikke et gyldigt tal!');

Mange tak for svarene!
Jeg bruger FreePascal, når jeg prøver at compile får jeg en fejl ved "function IsStrANumber(const S: String): Boolean;"
Er der en fil jeg skal "uses"?
og hvor skal jeg sætte "function" delen ind? lige efter begin eller før?

Sætter lige pointene op pga. sværheden!

prøv at tilføje System.pas

jeg er rimlig meget nybegynder, desværre...
Skal der så stå:
uses system; ?
og skal function stå lige efter "begin" eller hvor?

i toppen af din pas file står der uses...du sætter den bare ind i rækken.

ok når du starter en console app ser det sådan her ud:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, system; //der er den sat ind

function IsStrANumber(const S: String): Boolean;
VAR
  V,E : Integer;
begin
  Val(S,V,E);
  IsStrANumber := (E = 0);
end;

begin
//code here
end.

det ser sådan ud nu:

program porto;

uses crt, system;

var
vaegt : integer;
land : char;

label here;

function IsStrANumber(const S: String): Boolean;
VAR
  V,E : Integer;
begin
  Val(S,V,E);
  Result := (E = 0);
end;

begin

here:
textbackground(white);
textcolor(black);
clrscr;

writeln('Indtast vaegt i gram -->');
readln(vaegt);

if IsStrANumber(vaegt) then
  writeln(vaegt,' er ikke et gyldigt tal!');

end.

Men får stadig fejl?
ved: if IsStrANumber(vaegt) then

Hvilken slags variabel (String, Integer, ...) er vaegt?

er vaegt en string?

vaegt er en integer.. den skal indholde et tal, men komme med fejl hvis brugeren skriver noget andet end et tal...

det ser sådan ud nu:

program porto;

uses crt, system;

var
vaegt : string;
land : char;

label here;

function IsStrANumber(const S: String): Boolean;
VAR
  V,E : Integer;
begin
  Val(S,V,E);
  Result := (E = 0);
end;

begin

here:
textbackground(white);
textcolor(black);
clrscr;

writeln('Indtast vaegt i gram -->');
readln(vaegt);

if IsStrANumber(vaegt) then
  writeln(vaegt,' er ikke et gyldigt tal!');

end.

efter du har set om vaegt er et gyldigt tal kan du bruge: strtoint(vaegt)

er det en readln(vaegt); (evt. en resd(vaegt);) der gir' fejl?

husk at strtoint bruger SysUtils i uses

Jeg kan desværre ikke uses "SysUtils"
der kommer fejl...
og jeg skal bruge vaegt, som et integer...
=(
Jeg er virkelig glad for jeres hjælp!

program porto;

{$APPTYPE CONSOLE}

uses
  SysUtils, crt;

var
vaegt : integer;
response:string;
land : char;

label here;

function IsStrANumber(const S: String): Boolean;
VAR
  V,E : Integer;
begin
  Val(S,V,E);
  Result := (E = 0);
end;

begin
here:
textbackground(white);
textcolor(black);
clrscr;

writeln('Indtast vaegt i gram -->');
readln(response);

if IsStrANumber(response) then
  writeln(vaegt,' er ikke et gyldigt tal!') else
  begin
  vaegt := strtoint(response);
  //Nu har du vægt som integer
  end;
end.


prøv lige det

En af mine venner sagde min compiler hed, FreePascal...
Men der står TMT Pascal...
Den kommer med en fejl ved "SysUtils, crt;"

Men hvis i ikke har andre forslag eller ideer, vil jeg bare sig, mange tak for hjælpen!
og jeg deler pointene, som i har fortjent det...
athlon-pascal > du må gerne lige smide et svar...
(jeg vil eventuelt lige prøve at skaffe TurboPascal senere og compile i det, der virker det nok!!)

jeg ved ikke, du har altså ikke SysUtils.pas. Tror måske den er med i delphi personal som du kan hente fra borland.

Hvorfor bruger du ikke bar val til at få værdien ?
Så skal der heller ikke 'uses' noget

Function StrToNumber(const S: String, var Res:Integer): Boolean;
VAR
  V: Real;
  E : Integer;
begin
  Val(S,V,E);
  If E=0 then
  Begin
    Res := Round(V);
    StrToNumber := True;
  End
  Else
  Begin
    Res := 0;
    StrToNumber := False;
  End;
end;

Kaldes med:

if StrToNumber(Response,Vaegt) then
  bla bla bla
else
  writeln(vaegt,' er ikke et gyldigt tal!');

jeg får fejl i øverste linie...
Men det er vist et dårligt program jeg bruger til compiling =)
Men tak for hjælpen!
lig lige et svar hvis det er =)

Lukker =)

Hvis nogen føler sig snydt, siger i til, så får i de point i fortjener!
især hvis hreiff og athlon-pascal vil have del af deres fortjeneste! så smid en kommentar...