[Luis F. Orjuela]

A continuación te muestro un procedimiento en el cual yo leo secuencialmente un archivo de texto y extraigo la información que necesito a cada una de las variables..:


procedure TForm1.Traer_Morcar_1;
var F1: TextFile;
cadena,nro_oblig,dias_mora,saldo_capi: string;
Pasados, Leidos: integer;
begin
if (Edit4.Text <> '') then
begin
Leidos:=0;
Pasados:=0;
AssignFile(F1, Edit4.text);
Reset(F1);
while not Eof(F1) do
begin
Readln(F1, cadena);
nro_oblig:=copy(cadena,1,12);
dias_mora:=copy(cadena,137,4);
saldo_capi:=copy(cadena,227,14);
if (dias_mora <> ' ') and (strtoInt(dias_mora) <=90 )then
begin
Importa_Obligaciones_1(nro_oblig,dias_mora,saldo_capi);
inc(Pasados);
end;
Leidos:=Leidos+1;
ProgressBar2.Position:=Leidos;
StatusBar1.Panels[4].Text:= InttoStr(Leidos);
Application.ProcessMessages;
end;
CloseFile(F1);
StaticText3.Caption:=InttoStr(Pasados);
end;
end;