Transtypage sans variable

bonjour
j'ai un petit probleme avec le language je veux obtimiser mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
type
  Tmds = record
    a:^cardinal;
    b:^cardinal;
    c:^cardinal;
    d:^cardinal;
    x:cardinal;
    s:byte;
    t:cardinal;
end;
 
function st_enc(k:Thash;tp:Thash):Thash;//
var
a,b,c,d:cardinal;
i:integer;
sdt:array [0..15] of Tmds;
bh:Tmds;
begin     if(start > finish) then exit;
          a:=k[0];
          b:=k[1];
          c:=k[2];
          d:=k[3];
 
bh.a:=@a; bh.b:=@b; bh.c:=@c; bh.d:=@d; bh.x:=tp[3]; bh.s:=S41; bh.t:=$f4292244;
sdt[0]:=bh;
bh.a:=@d; bh.b:=@a; bh.c:=@b; bh.d:=@c; bh.x:=0; bh.s:=S42; bh.t:=$432aff97;
sdt[1]:=bh;
bh.a:=@c; bh.b:=@d; bh.c:=@a; bh.d:=@b; bh.x:=0; bh.s:=S43; bh.t:=$ab9423a7;
sdt[2]:=bh;
.....

Mon probleme je veux eviter l'utilisation du variable bh
je postule pour qlq chose comme ça

Code:

1
2
 
sdt[0]:=Tmds(@a,@b,@c,@d,tp[3],S41,$f4292244);

merci d'avance

Quand bien même cela serait possible, ce ne serait pas plus rapide que ton code actuel.

Quant à la lisibilité, tu peux faire ceci :
Code:

1 2 3 4 5 6 7 function mds(a, b, c, d: PCardinal; x: Cardinal; s: Byte; t: Cardinal): Tmds; begin Result.a := a; Result.b := b; ... Result.t := t; end;
Puis :

Code:

sdt[0] := mds(@a, @b, @c, @d, tp[3], S41, $f4292244);

Oh merci :D