Hola Chicos tengo casi la misma duda y al final leí las recomendaciones de casimiro sin embargo tengo una pequeña Interrogante:
en realidad mi intensión es que al leer mi archivo TxT con Tabulaciones pueda al final realizar insert en Firebird por Delphi. tengo este codigo que recorre linea por linea es algo lento pero necesito orientación de como hacer el insert usando el componente TQuery del DBExpress..
Este es el procedimiento de recorrido:
Código Delphi
[-]
procedure TfrmCargaComprobante.Button2Click(Sender: TObject);
var
i, j: integer;
cadena, cadena2: string;
begin
SetLength(valores, 0);
for i := 0 to Memo1.Lines.Count - 1 do begin
SetLength(valores, length(valores) + 1);
cadena := Memo1.Lines[i];
cadena2 := '';
for j := 1 to length(cadena) do begin
if cadena[j] <> ';' then
cadena2 := cadena2 + cadena[j] else
begin
SetLength(valores[length(valores) - 1],
length(valores[length(valores) - 1]) + 1);
valores[length(valores) - 1, length(valores[length(valores) - 1]) - 1]
:= cadena2;
cadena2 := '';
end;
end;
end;
ShowMessage('Carga del archivo completada');
end;
Código Delphi
[-]
procedure TfrmCargaComprobante.Button4Click(Sender: TObject);
var
rutaTxT, archivotxt : string;
txtFile: TFileStream;
begin
if OpenDialog1.Execute = true then
begin
txtFile := TFileStream.Create(OpenDialog1.FileName,fmOpenRead or fmShareExclusive);
archivotxt := txtFile.FileName;
TxtFile.Destroy; Memo1.Lines.LoadFromFile(archivotxt);
end;
end;
Como hago el insert en mi DB De Firebird?
Saludos
novato_erick