Gracias por responder Roman, observe el hilo que me indicaste pero no se adapta a lo que quiero la sintaxi que uso es la siguiente;
Code:
______________________________________________________________
Var
ArchivoCsv, Campos: TStringList;
I, J: Integer;
F1: TextFile;
Ch: string;
begin
ArchivoCsv := TStringList.Create;
Campos := TStringList.Create;
try
ArchivoCsv.LoadFromFile('c:\HV.txt');
for I := 0 to ArchivoCsv.Count - 1 do
begin
Campos.Clear;
Campos.CommaText := ArchivoCsv[i];
for J := 0 to DataModule2.Table1.FieldCount do
begin
DataModule2.Table1.Insert;
DataModule2.Table1.Fields[J].Value := Campos[J];
DataModule2.Table1.Post;
end;
end;
finally
ArchivoCsv.Free;
Campos.Free;
end;
____________________________________________________________
El txt tien esta forma;
005,260.00,0.00,25
006,2.00,0.00,285
007,2600.00,15.00,25
008,55.00,45.00,25
el problema que tengo es que los datos estan separados por coma pero el detalle es que no tienen la misma longitud por ejemplo en la linea uno 005 es el codigo del trabajador que lo uso como referencia para buscar en la tabla, el 260.00 es dato que debo guaradar en la tabla al igual que el 0.00 y el 25, como hago para determinar el tamaño y guardar corectamente el campo sin cortarlo ?????????
Ayuda