Ver Mensaje Individual
  #6  
Antiguo 19-10-2004
danytorres danytorres is offline
Miembro
 
Registrado: may 2003
Ubicación: Venezuela. Edo Carabobo
Posts: 361
Reputación: 22
danytorres Va por buen camino
Unhappy

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
__________________
____________________________
Un saludo a todos...
Responder Con Cita