Pascal/Turbo Pascal - ayuda fatal syntax error

   
Vista:

ayuda fatal syntax error

Publicado por diego (2 intervenciones) el 30/01/2016 06:23:30
Hola tengo un error en las variables

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  ClientKeys: array [0..11] of DWord =
    ($DF0E0846, $3FEE2C3F, $9E41C45A, $EE6207BA, $DA62EBF9, $CCC43B05,
     $4D675BE8, $E4C79836, $EFFEFACC, $3D3B22A1, $40FE9962, $43318F13);
  ClientKeys: array [0..11] of DWord =
    ($20F0E9D7, $C0107E65, $61BFB9BE, $119F6477, $259D5275, $333BB27E,
     $B298C46A, $1B384C4C, $1001F707, $C2C426C7, $BF01ECB3, $BCCE8CBB);
  ServerKeys: array [0..11] of DWord =
    ($A15F3E2F, $ABA28336, $634C7EE5, $EF3974CF, $FA8D578E, $1000FA0B,
     $C4A75D76, $EAE60F53, $3A2391C1, $374B433F, $3E7B34B7, $F6CE3267);
  ServerKeys: array [0..11] of DWord =
    ($5EA1359F, $545FFF4F, $9CB29341, $10C72AA2, $0572D349, $EFFF020B,
     $3B587C3A, $1519D76B, $C5DCD323, $C8B40895, $C184F00B, $09315FA1);
 
 
  DecryptResult: TByteArray;
  EncryptResult: TByteArray;
 
 
 
10 / 38 encdec~1.pas
 Fatal: Syntax error, ; expected but = found

Ayuda porfavor
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ayuda fatal syntax error

Publicado por ramon (2072 intervenciones) el 30/01/2016 13:50:58
con que estas programando si es con pascal dime la versión.

pero por si mira que tienes repetidos los nombres.

ClientKeys: y ServerKeys
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda fatal syntax error

Publicado por Diego (2 intervenciones) el 30/01/2016 17:40:55
Es free pascal pero mi duda es si esta bien el formato en el que se estan metiendo las variables por que no hallo como meterlas todas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda fatal syntax error

Publicado por ramon (2072 intervenciones) el 01/02/2016 14:36:21
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
32
33
{Mira así funciona te faltaba la unidad}
 
  uses
  crt, objects;
 
var
  ClientKeys1: array [0..11] of DWord =
    ($DF0E0846, $3FEE2C3F, $9E41C45A, $EE6207BA, $DA62EBF9, $CCC43B05,
     $4D675BE8, $E4C79836, $EFFEFACC, $3D3B22A1, $40FE9962, $43318F13);
  ClientKeys2: array [0..11] of DWord =
    ($20F0E9D7, $C0107E65, $61BFB9BE, $119F6477, $259D5275, $333BB27E,
     $B298C46A, $1B384C4C, $1001F707, $C2C426C7, $BF01ECB3, $BCCE8CBB);
  ServerKeys1: array [0..11] of DWord =
    ($A15F3E2F, $ABA28336, $634C7EE5, $EF3974CF, $FA8D578E, $1000FA0B,
     $C4A75D76, $EAE60F53, $3A2391C1, $374B433F, $3E7B34B7, $F6CE3267);
  ServerKeys2: array [0..11] of DWord =
    ($5EA1359F, $545FFF4F, $9CB29341, $10C72AA2, $0572D349, $EFFF020B,
     $3B587C3A, $1519D76B, $C5DCD323, $C8B40895, $C184F00B, $09315FA1);
 
  i : integer;
  DecryptResult: TByteArray;
  EncryptResult: TByteArray;
 
 
 
   begin
      clrscr;
      for i := 0 to 11 do
      write('  ',ClientKeys1[i]);
      for i := 0 to 11 do
      write('  ',ClientKeys2[i]);
      readln;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar