Cita:
Empezado por muli
Te refieres a cargarlo en un componente Memo, RichEdit, etc, y luego cortarlo como yo quiera. El tema es que lo he cargado en un Memo y tambien en un RichEdit, pero ahora estoy parado no se como cortarlo por ejemplo a 100 caracteres por linea.
Gracias.
Saludos.
|
Espero no salirme por la tangente pero se me ocurre;
Código Delphi
[-]var Buffer: array [0..666] of Char;
procedure TForm1.ButtonClick(Sender: TObject);
var hFile, Size: Integer;
begin
hFile := _lopen('archivo.txt', OF_READ);
if hFile = -1 then Exit; repeat Size := _lread(hFile, @Buffer, SizeOf(Buffer) - 1); Buffer[Size] := #0;
if LongBool(Size) then
mysql_query(Handle, PChar('insert into noseque values ('+#39+@Buffer+#39+')')); until Size < (SizeOf(Buffer) - 1);
CloseHandle(hFile);
end;
Espero no hayan muchos errores pues no tenga el Delphi a la mano; pero la idea es leer cada cierta cantidad de bytes del archivo e ir insertandolos a la BD
Suerte.