1 ciffer x 1 ciffer efterfulgt af 2ciffer x 2 ciffer

Kunne du prøve at beskrive det lidt mere?

Jeg skal prøve.
Jeg har 2 variabler:
var1: 1 2 3 4 5 6
var2: 1 2 1 2 1 2
rest: 1 4 3 8 5 12

1 ciffer fra hver variablen ganges sammen
2 ciffer fra hver variablen ganges sammen osv

Jeg har ikke lige metoden til at beregne betalings-ID til FI-kort ved hånden, men du kan gøre noget a la dette:

function CalcFI(s1, s2: string): string;
var
  i,res:integer;
begin
  Result := '';
  for i := 1 to Length(s1) do begin //vi går ud fra de to strenge er lige lange
    res := strtoint(s1[i])*strtoint(s2[i]);
    //gør hvad du nu skal med produktet af de to cifre og smid i enden af Result
  end;
end;

FI := CalcFI('123456','121212');

Det ser lovende ud.
Nå jeg kommer i nærheden af min Delphi vender jeg lige tilbage

Jeg går udfra at, hvis strengene ikke er lige lange, skal det opfattes som om der står null i den anden streng f.eks.
12345678
123456

bliver til
12345678
00123456
00381234
    5458

10 = 0
20 = 0
31 = 3
42 = 8
53 = 15
64 = 24
75 = 35
86 = 48

Så fik jeg det afprøvet.
Det virker perfekt. Tak for hjælpen.

Lægger du et svar?

Jeg går ud fra det var henvendt til mig, så værsgo. :)

Det var i hvert fald dig der kom med svaret.
Havde slet ikke set der var to forskellige der havde skrevet...

Jeg synes at spørgsmålet lyder lidt som om at du ønsker at lave noget i stil med Modulus-11 tjekket fra CPR-numre?

Hvis det er rigtigt er der vel ikke nogen grund til at tal-serie nr. 2 også kommer som en streng (med cifre i) - normalt plejer man blot at arbejde med et array af integers; så spare man også at skulle konvereterer fra streng til tal for den nummer-serie.