Leer Archivo .Q43 de Posición Fija es como un Txt

[FNADALO]

Hola Amigos de Fatiga

En mi empresa me han dado la normativa de Procedimientos bancarios
de normalización de cuenta corriente,
resumiendo tengo un fichero que recibo con extensión .Q43, podría ser perfectamente un Txt con posiciones fijas, el problema no se como empezar
a leer este fichero desde delphi para cargarlo posteriormente en una tabla,
el problema radica también en como puedo interrogar por los valores de unas posiciones que son fijas sin delimitación???, que me marcaran el final del registro ya que se puede componer de varias líneas consecutivas del mismo
archivo.

Atentamente, Fernando Nadal
Gracias.

[marcoszorrilla]

Primero si te lees bien dicha normativa, verás que se trata de registros cuyos dos primeros números son, a saber:

11 : Registro de inicio
22 : Aquí propiamente está el movimiento bancario
23 : Comentario a dicho movimiento.

33: Registro de final de cuenta.
88: Registro de final de fichero.

Cada uno de estos tipo de registros está suficientemente documentado en la normativa.

Como se trata de un fichero de tipo texto, para leerlo creo que la opción más apropiada sería cargarlo en un StringList:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
S: String;
Sl:TStringList;
begin
Sl:=TStringList.Create();
 If OpenDialog1.Execute then
 begin
 AssignFile(F, OpenDialog1.Filename);

 Reset(F);

   While not SeekEof(F) do
   begin
   Readln(F,S);
   Sl.Add(s);
   end;

  CloseFile(F);

  end;

end;

Ahora ya tenemos todas las líneas en un StringList, nos queda extraer la primera (11) que contiene información sobre la cuenta y cliente, recorrer todas las de tipo (22 y 23) que tienen los movimientos y poco más.


Un Saludo.