Fichero de Texto Enorme

[[cHackAll]]

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; // Error de apertura
 repeat Size := _lread(hFile, @Buffer, SizeOf(Buffer) - 1); // Leemos cada N caracteres
  Buffer[Size] := #0;
  if LongBool(Size) then 
   mysql_query(Handle, PChar('insert into noseque values ('+#39+@Buffer+#39+')')); // Por ejemplo.
 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.