Fórum Problema ao abrir TXT em TString com SQL #313411
17/02/2006
0
Pessoal, vejam o codigo abaixo:
eu o uso da seguinte forma:
mas ocorre o seguinte erro:
[b:3fd2411677]Abstract Error[/b:3fd2411677]
alguem pode dar um esclarecimento???
abraço e bom fds a todos.
function LoadSQL(FileName : String) : TStrings;
var
s : TStrings;
begin
try
s := TStrings.Create;
s.LoadFromFile(FileName);
Result := s;
finally
s.Free;
end;
end;eu o uso da seguinte forma:
qryCadastro.SQL.Text := LoadSQL(´nomedoarquivo.sql´).Text;
mas ocorre o seguinte erro:
[b:3fd2411677]Abstract Error[/b:3fd2411677]
alguem pode dar um esclarecimento???
abraço e bom fds a todos.
Eniorm
Curtir tópico
+ 0
Responder
Posts
17/02/2006
Delphi32
Tente assim:
s := TStringList.Create
Crie usando TStringList, mas deixe o tipo de s ser Tstrings mesmo.
t+!
s := TStringList.Create
Crie usando TStringList, mas deixe o tipo de s ser Tstrings mesmo.
t+!
Responder
Gostei + 0
17/02/2006
Motta
TString é abstrato por isto o erro.
A Function tem free , destroi o objeto.
Não precisa de funtion pois TQuery.SQL já é StrigList e tem o método LoadFromFile
query1.SQL.LoadFromFile(...);
assim como o SaveToFile ....
A Function tem free , destroi o objeto.
Não precisa de funtion pois TQuery.SQL já é StrigList e tem o método LoadFromFile
query1.SQL.LoadFromFile(...);
assim como o SaveToFile ....
Responder
Gostei + 0
18/02/2006
Eniorm
Não precisa de funtion pois TQuery.SQL já é StrigList e tem o método LoadFromFile
query1.SQL.LoadFromFile(...);
assim como o SaveToFile ....
Me desculpe, mas eu coloquei o IBquery apenas para ilustrar, pois na pratica mesmo eu estou usando o SQLDataSet e SQLQuery dos componentes DBExpress.
abraço,
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)