palavra-chave Class em procedure

Delphi

23/12/2004

Olá pessoal,

Ontem fui fazer meu método Static e quase consegui com sua dica.

Tentei fazer o seguinte (classe de Conexão com ADO):

type TConexao = class sealed
private
Con : TAdoConnection;
ConnectionString: string;

public

class procedure DefinirConnectionString(str: string);

end;


class TConexao.DefinirConnectionString(str: string);
begin
ConnectionString := str;
end;

Ele diz que o valor CONNECTIONSTRING não é acessível neste ponto

Tentei colocar Class e/ou static em ConnectionString mas não consigo.

Também quero criar uma classe TAmbiente onde terei vários métodos String para definir váriaveis e preciso deste.

Abraços
Romulo


Romulocpd

Romulocpd

Curtidas 0

Respostas

Massuda

Massuda

23/12/2004

Ele diz que o valor CONNECTIONSTRING não é acessível neste ponto
O membro ConnectionString é criado para cada instância de sua classe, por isso a procedure de classe (que não é associada com nenhuma instância em particular) não sabe como acessar ConnectionString.

Parece que você está usando Delphi 8 ou Delphi 2005... nesse caso, é possível declarar ConnectionString como sendo uma variável de classe
type
  TConexao = class sealed
  private 
    Con : TAdoConnection; 
    class var ConnectionString: string; // <-- note o "class var"
  public 
    class procedure DefinirConnectionString(str: string); 
  end;



GOSTEI 0
Romulocpd

Romulocpd

23/12/2004

Olá Massuda,

Estou no D2005 porém trabalho com Win32 (to iniciando no Delphi, mas venho do .Net (2 anos de experiencia)).

Vou tentar

valeu!
Romulo


GOSTEI 0
POSTAR