missing operator or semicolon

[MarcosDG95]

Buenas tardes a todos, soy bastante nuevo en el foro, estoy teniendo un problema con mi codigo Delphi, estoy desarrollando un programa que cargue nombres de equipos para mas tarde hacer un sistema round-robin. El problema es que no me compila el programa por esta linea

Código Delphi [-]
procedure TForm1.btn2Click(Sender: TObject);
Var
value,value2:string;
primero,ultimo,sgte,ante,contador,a,b:Integer;
orden:TTorneo;
orden2:TTorneo2;
Cambio,Cambio2:Boolean;

begin //Simulo mi botón START.
ultimo:= (N div 2);
randomize
//if orden[1].Nombre <> '' then
  //begin
    //Showmessage('El torneo ya comenzó');
    //exit;
  //end;
  for a:=1 to N div 2 do //ERROR MISSING OPERATOR OR SEMICOLON
    begin
    repeat
      value:= inputbox('Ingrese nombre', 'equipos participantes','.');
    until value <> '';
      orden[a].Nombre:=value;
      strngrd1.cells[a,0]:=value;
    end;
  For b:=1 to N div 2 do// ERROR MISSING OPERATOR OR SEMICOLON
    begin
    repeat
      value2:= inputbox('Ingrese nombre', 'equipos participante','.');
    until value2<> '';
      orden2[b].Nombre:=value2;
        strngrd2.cells[b,0]:=value2;
    end;
end;

Si alguien me puede ayudar con este error que no logro ver estare mas que agradecido, desde ya muchas gracias

[MarcosDG95]

Empezado por MarcosDG95

Buenas tardes a todos, soy bastante nuevo en el foro, estoy teniendo un problema con mi codigo Delphi, estoy desarrollando un programa que cargue nombres de equipos para mas tarde hacer un sistema round-robin. El problema es que no me compila el programa por esta linea


procedure TForm1.btn2Click(Sender: TObject);
Var
value,value2:string;
primero,ultimo,sgte,ante,contador,a,b:Integer;
orden:TTorneo;
orden2:TTorneo2;
Cambio,Cambio2:Boolean;

begin //Simulo mi botón START.
ultimo:= (N div 2);
randomize
//if orden[1].Nombre <> '' then
//begin
//Showmessage('El torneo ya comenzó');
//exit;
//end;
for a:=1 to N div 2 do //ERROR MISSING OPERATOR OR SEMICOLON
begin
repeat
value:= inputbox('Ingrese nombre', 'equipos participantes','.');
until value <> '';
orden[a].Nombre:=value;
strngrd1.cells[a,0]:=value;
end;
For b:=1 to N div 2 do// ERROR MISSING OPERATOR OR SEMICOLON
begin
repeat
value2:= inputbox('Ingrese nombre', 'equipos participante','.');
until value2<> '';
orden2[b].Nombre:=value2;
strngrd2.cells[b,0]:=value2;
end;
end;

Si alguien me puede ayudar con este error que no logro ver estare mas que agradecido, desde ya muchas gracias

Olvide poner que tengo un record para esto

Código Delphi [-]
type
Const
N=8;
Equipo= record
Nombre:String;
Resultado:Boolean;
difgol:integer;
numero:integer;
end;

Type
TTorneo= array [1..N div 2] of Equipo;
Type
TTorneo2= array [1..N div 2] of Equipo;

[Casimiro Notevi]

No olvides usar las etiquetas para el código, para que se pueda leer mejor.

[ecfisa]

Hola.

El error de compilación es el que mencionas como comentario en esta parte de tu código:

Código Delphi [-]
 for a:=1 to N div 2 do //ERROR MISSING OPERATOR OR SEMICOLON

y es provocado por la falta de un punto y coma en la línea inmediata activa superior:

Código Delphi [-]
   randomize ; // <- ¡ Aquí !

Saludos