Método .add() em TStrings!!
05/07/2004
0
Estou com o seguinte problema.
Preciso saber como faço para usar o método .ADD em uma propridade de um componente que estou criando. Preciso que nesta propriedade, seja possível eu adicionar por exemplo um SQL de um outro componente..
assim
Componente.SQL.ADD(SQLQuery.SQL.TEXT);
quando faço isso dá erro, nesta linha exatamente.
Se alguém puder me ajudar.
agradeço a atenção de todos
Cabelo
Cabelo
Posts
05/07/2004
Paulo_amorim
que erro que dá?
O método faz o que exatamente?
Eh que nem o TStrings?
Dá uma explicada ae
Até+
05/07/2004
Ampaline
Se tiver, então vc pode fazer isso:
componente1.close;
componente1.sql.clear;
componente1.sql.add(componente2.fieldbayname(´conteudo_query´).asstring);
componente1.open;
dentro do add, por exemplo;
Um listbox relaciona todos os relatorios existente em seu banco. vc seleciona o nome do relatorio, irá executar uma nova query para pegar o conteudo da query, assim então, vc pode especificar o campo que tem a query dentro do ADD.
Espero ter sido clara!
06/07/2004
Cabelo
E neste componente tenho uma propriedade que utiliza um TStrings, assim como o de um ClientDataSet. Neste campo irei inserir um SQL para acesso ou manutenção no banco de dados..
O problema é que dá um erro de FF000000, quando tento inserir qualquer coisa nesta propriedade em RUN TIME..
por exemplo :
Tenho o meu componente, que estará ligado com uma query, que liga com um provider, etc..
No evento Click de um botão preciso que este componente, acesse o banco, com o SQL da SQLQuery, por isso devo dar um ADD certo??
Quando faço isso dá erro de acesso..
Espero ter explicado melhor..
agradeço a atenção
Cabelo
06/07/2004
Paulo_amorim
Soh checando, pois já passei por erro assim:
no construtor do seu componente vc inicializa a propriedade, certo?
FSQL := TStringList.Create;
Senão ele não faz.
Espero que ajude
Até+
07/07/2004
Cabelo
Fiz o quê vc sugeriu..
Quando compilei apresentou 3 warnings dizendo sobre os métodos .Clear, .Delete e .Insert..
Em RUN TIME retornou o erro ´Abstract Error´, vc tem idéia do quê possa ser agora??
agradeço sua atenção..
Cabelo
07/07/2004
Paulo_amorim
Olá
esses 3 warnings falavam o que?
´Abstract Error´ pode ter ocorrido porque vc tentou criar um TStrings, e ele tem métodos abstratos
Certifique-se que vc criou um [b:2464549420]TStringList[/b:2464549420]
FSQL := TStringList.Create;
Espero que ajude
Até+
07/07/2004
Cabelo
Era exatamente isso, falta de atenção minha..
estava tentando criar um TStrings..
E na verdade preciso criar um TStringList..
Agora deu certo..
Muito Obrigado
Cabelo
Clique aqui para fazer login e interagir na Comunidade :)