cadena de texto

[[oscarac]]

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);
  //LIN,KOD,DESCL,PR1,Check
          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;