Deglosar Cadena Archivo CSV

[ninguno]

Hola

Mírate la clase TStringList, te será muy sencillo, ya verás

[jhonny]

O tal vez te sirva utilizar la función ExtractString, en el foro hay varios ejemplos de como utilizarla .

[TOPX]

Buenos días (aún por acá),

Lo que yo haría:

1. Cada línea del archivo, asignarla a la propiedad CommaText de una nueva TStringList
2. Por cada línea de esa nueva TStringList, una de dos (si aplica):
   • Ir mostrando el nombre de la columna del archivo concatenado de '=' y de la línea en sí
   • Asignarla a la propiedad Values[nombre_de_la_columna_del_archivo] de una segunda TStringList

Espero no haber enredado la cosa...

[el_barto]

ah Gracias

pues lo hice asi

function TFrmCmCacot.extraerItemarchivo;
var
  coma: integer;
begin
  coma := pos(delimitador, st);
  if coma = 0 then
  begin
    result := st;
    st := '';
  end
  else
  begin
    result := copy(st, 1, coma - 1);
    st := copy(st, coma + 1, length(st));
  end;
end;

Y me funciono muy bien, les agradezco su valiosa ayuda