Tjekke om string indeholder 1, 2, 3 osv

Prøv dette:

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpint: Integer;
begin
  Try
    tmpint := StrToInt(Edit1.Text);

    Case tmpint of
    1: Showmessage('Tal = 1');
    2: Showmessage('Tal = 2');
    3: Showmessage('Tal = 3');
    4: Showmessage('Tal = 4');
    5: Showmessage('Tal = 5');
    6: Showmessage('Tal = 6');
    7: Showmessage('Tal = 7');
    8: Showmessage('Tal = 8');
    9: Showmessage('Tal = 9');
    Else
      Showmessage('Tal er anderledes end 1-9');
    End;
    Except
      Showmessage('Edit1 indeholder ikke en integer!');
    End;
end;

kan det ikke lade sig gøre med en mindre kode?
Noget lignende case [1...9] eller noget i den stil?

Ahh.. fandt en nem metode ;)
if string < 9 then...
Nå men hvodan gør man så hvis man skal finde længden af en string?

Sorry, troede du ville finde ud af hvilket tal strengen indeholdte ;)

Du kan finde længden på en streng ved at bruge "Length" funktionen.

Hmm har forsøgt sådaan: String.Lenght men det virker ikke.
Hvordan bruger man den?

Og jo, ovenstående kan godt forkortes til nedenstående hvis du ikke vil vide det præcise tal.

var
  tmpint: Integer;
begin
  Try
    tmpint := StrToInt(Edit1.Text);

    Case tmpint of
    1..9: Showmessage('Tal er mellem 1 og 9');
    Else
      Showmessage('Tal er anderledes end 1-9');
    End;
    Except
      Showmessage('Edit1 indeholder ikke en integer!');
    End;
end;

Du Length som en funktion!

F.eks.: Showmessage('Længden på indhold af Edit1 er ' + IntToStr(Length(Edit1.Text)) + ' tegn');

Læs evt. om funktionen i hjælpen.

Det var det jeg mente! Tak.. Men bruger bare < 9 istedet ;)
Men hvis du kan fortælle mig hvordan jeg finder længden så skal du nok få pointene :P hehe

Hmm dette virker ikke:
if Lenght(Hexadecimal) = 1 then...

fejl: [Error] BinDecHex.pas(193): Undeclared identifier: 'Lenght'

Ups stavefejl ;) My bad...

Yeps, du har stavet det lidt forkert ;)