yo hacia algo similar con esta rutina, de acuerdo a la posicion, lo asignaba en variables
Código Delphi
[-]
AssignFile (_file, edtArticulos.Text);
Reset (_file);
while not Eof(_File) do
begin
Readln(_File, sLinea);
vCadena := '';
CDSArticulo.Append;
vContador := 0;
for i:= 1 to Length(sLinea) do
begin
vChar := Copy(sLinea, i, 1);
if vChar = '¦' then
begin
Inc(vContador);
case vContador of
1: begin CDSArticuloLIN.Value := vCadena; vCadena:= ''; end;
2: begin CDSArticuloKOD.Value := vCadena; vCadena:= ''; end;
3: begin CDSArticuloDESCL.Value := vCadena; vCadena:= ''; end;
4: begin CDSArticuloPR1.Value := strtofloat(vCadena); vCadena:= ''; end;
5: begin CDSArticuloCheck.Value := vCadena; vCadena:= ''; end;
end
End
Else
vCadena := vCadena + vChar;
end;
CDSArticulo.Post;
end;
CloseFile(_file);
end;