FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema leer un fichero .sql
Buenas a todos, seguro que mi problema es una gilipollez pero me trae frito. Necesito leer un archivo .sql y guardarlo en una variable sql para poder realizar una query después.
Utilizo una función, que ahora os pondré, para leer este fichero pero no me tiene en cuenta los retornos de carro ni las indentaciones y el caso es que su resultado no me sirve. Función: [delphi] function BfFilGetTextFile(Ruta : string) : string; var f : textfile; aux : char; str : string; begin try AssignFile(f, Ruta); Reset(f); while not SeekEof(f) do begin if SeekEoln(f) then Readln(f, aux); Read(f, aux); str := str + aux; end; CloseFile(f); finally end; result := str; end; [\DEPHI] Me puede decir alguien como solucionar este problema?? No tengo necesidad ninguna de utilizar esta función, cualquier idea será bien recibida. Gracias a todos |
|
|
|