Vælge tal i et integer

Jeg ved ikke om det her virker, jeg forstod måske ikke helt dit spørgsmål, men:

var
  tal : string;
  bestemttal : integer;
begin
tal := IntToStr(4763);
bestemttal := StrToInt(tal[3]);
end;


Så ligger det tredje tegn fra 4763 i bestemttal (utestet).

Ups, der skulle nok have stået:

bestemttal := StrToInt(tal[2]);

i stedet for:

bestemttal := StrToInt(tal[3]);

Ciffer3 := (Tal div 100) mod 10;

mikkel_C> Tak for svaret, men det er netop det der med strtoint og inttostr jeg vil undgå! :-), så jeg håber at der er nogle andre forslag.

pellelil>?

BTW: I må undskylde at jeg først checker spørgsmålet igen nu, men jeg kom til at dræbe mit modem - som i rigtig død, så jeg skulle lige have krejlet mig et nyt!

bone> Jeg ser ingen grund til at convertere dit tal til en streng blotfor at isolere et enkelt ciffer. Når du lave en \"div 100\" så laver du en heltalt divition og 100 går således op i tallet (4763) 47 gange. Dernæst laver man en mod 10 (resten efter man har divideret med 10) hvilket er 7 ergo du har isoleret dit 3. ciffer.

<SNIP>
  Ciffer1 := Tal mod 10;
  Ciffer2 := (Tal div 10) mod 10;
  Ciffer3 := (Tal div 100) mod 10;
  Ciffer4 := (Tal div 1000) mod 10;
  // og så frem deles
<SNIP>

BTW: Både DIV og MOD er \"kommandoer\" der eksistere helt ned på assembler niveau så der bliver ikke meget hurtigere.