Problema ao abrir TXT em TString com SQL

Delphi

17/02/2006

Pessoal, vejam o codigo abaixo:

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

Eniorm

Curtidas 0

Respostas

Delphi32

Delphi32

17/02/2006

Tente assim:

s := TStringList.Create

Crie usando TStringList, mas deixe o tipo de s ser Tstrings mesmo.

t+!


GOSTEI 0
Motta

Motta

17/02/2006

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 ....


GOSTEI 0
Eniorm

Eniorm

17/02/2006

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,


GOSTEI 0
POSTAR