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 |
#2
|
|||
|
|||
Por cierto, que se me olvidó, no me gustaría tener que utilizar la propiedad LoadFromFile del TQuery en su propiedad SQL:
QUtil.SQL.LoadFromFile(file); Si no queda otro remedio ya sé que se puede hacer así, gracias. |
#3
|
||||
|
||||
y por qué no quieres usar loadfromfile?
|
#4
|
|||
|
|||
La verdad, a mi me da lo mismo pero tengo la "manía" de guardar el contenido de ese tipo de cosas en variables (strings, streams...) por si tengo que hacer algo con ellas, que normalmente me toca, aunque en este caso concreto no.
|
#5
|
||||
|
||||
Cita:
Si quieres hacer eso, puedes hacer Pero me siguie pareciendo abusrdo, simplemente por una costumbre Explicate un poco mas!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|