programa para validar formato de archivo de texto

[marcoszorrilla]

Podemos crear un arreglo de controles:

Código Delphi [-]
 procedure TfrDlgConcursos.FormActivate(Sender: TObject);
 begin
 aCod[1]:=@DblkCod1;
 aCod[2]:=@DblkCod2;
 aCod[3]:=@DblkCod3;
 aCod[4]:=@DblkCod4;
 aCod[5]:=@DblkCod5;
 aCod[6]:=@DblkCod6;
 aCod[7]:=@DblkCod7;
 aCod[8]:=@DblkCod8;
 
 aNom[1]:=@EdNom1;
 aNom[2]:=@EdNom2;
 aNom[3]:=@EdNom3;
 aNom[4]:=@EdNom4;
 aNom[5]:=@EdNom5;
 aNom[6]:=@EdNom6;
 aNom[7]:=@EdNom7;
 aNom[8]:=@EdNom8;
 
 aMod[1]:=@EdMod1;
 aMod[2]:=@EdMod2;
 aMod[3]:=@EdMod3;
 aMod[4]:=@EdMod4;
 aMod[5]:=@EdMod5;
 aMod[6]:=@EdMod6;
 aMod[7]:=@EdMod7;
 aMod[8]:=@EdMod8;
 
 aKms[1]:=@EdKms1;
 aKms[2]:=@EdKms2;
 aKms[3]:=@EdKms3;
 aKms[4]:=@EdKms4;
 aKms[5]:=@EdKms5;
 aKms[6]:=@EdKms6;
 aKms[7]:=@EdKms7;
 aKms[8]:=@EdKms8;
 end;
 
 Procedure Mostrar(x:Integer);
 var
 n:Integer;
 begin
  For n:=1 to x do
  begin
    if n <= x then
    begin
    aCod[n]^.Visible:=True;
    aNom[n]^.Visible:=True;
    aMod[n]^.Visible:=True;
    aKms[n]^.Visible:=True;
    end
    else
    begin
    aCod[n]^.Visible:=False;
    aNom[n]^.Visible:=False;
    aMod[n]^.Visible:=False;
    aKms[n]^.Visible:=False;
    end;
  end;
 
 end;

Dependiendo cuantos campos nos pidan ponemos controles para verificar el tipo de dato esto puede hacerse por ejemplo con Combox que muestran opciones tales, como número, Fecha, texto....

Luego podemos intentar conversiones con Try...Except como es lógico y lanzar errores cuando el contenido no sea apropiado, pero así como es fácil validar por ejemplo un Q19, hacer algo para validad cualquier cosa lo veo complicado.

Un Saludo.

[[__hector]]

no se lo del grid ni nada de eso, pero que te parece utilizar un parser para validar el archivo? Los hay muy efectivos, como el goldparser y el javacc o yacc. Si no te molesta aprender algo de automatas, teoria de compiladores y notacion BNF, creo que te vendria como anillo al dedo (ademas de que, el cambio de reglas para el parsing es sumamente simple)