bonjour
j'ai un petit probleme avec le language je veux obtimiser mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
sdt[0]:=Tmds(@a,@b,@c,@d,tp[3],S41,$f4292244);
merci d'avance