Erro de memória usando classes
Na Unit1 tenho o seguinte código
procedure TForm1.Button3Click(Sender: TObject);
begin
Pessoa.SetNome(Edit1.Text);
end;
e na unit3:
unit Unit3;
interface
uses
Unit2;
type
TPessoa = Class
private
PNome: String;
published
public
procedure SetNome(NomeTMP: String);
property Nome: String read PNome Write SetNome;
end;
implementation
procedure TPessoa.SetNome(NomeTMP: String);
begin
PNome := NomeTMP;
end;
end.
Ele dá erro de Memória, onde poderia estar o erro?
E para que serve a linha
property Nome: String read PNome Write SetNome;
Estou fazendo tantas perguntas pq estou tentando trabalhar com classes e estou acomplanhando um artigo
Obrigado!
procedure TForm1.Button3Click(Sender: TObject);
begin
Pessoa.SetNome(Edit1.Text);
end;
e na unit3:
unit Unit3;
interface
uses
Unit2;
type
TPessoa = Class
private
PNome: String;
published
public
procedure SetNome(NomeTMP: String);
property Nome: String read PNome Write SetNome;
end;
implementation
procedure TPessoa.SetNome(NomeTMP: String);
begin
PNome := NomeTMP;
end;
end.
Ele dá erro de Memória, onde poderia estar o erro?
E para que serve a linha
property Nome: String read PNome Write SetNome;
Estou fazendo tantas perguntas pq estou tentando trabalhar com classes e estou acomplanhando um artigo
Obrigado!
Luiz_aquino
Curtidas 0
Respostas
Massuda
17/08/2007
procedure TForm1.Button3Click(Sender: TObject);
begin
Pessoa.SetNome(Edit1.Text);
end;
Pessoa foi criado antes disso ser executado?E para que serve a linha
property Nome: String read PNome Write SetNome;
Isto define uma propriedade. Para ler/atribuir o valor de uma propriedade, basta usar o nome da propriedade. Exemplo:Pessoa.Nome := ´Fulano´; // equivale a Pessoa.SetNome(´Fulano´);
GOSTEI 0
Luiz_aquino
17/08/2007
[quote:b8330f7d5d=´luiz_aquino´]procedure TForm1.Button3Click(Sender: TObject);
begin
Pessoa.SetNome(Edit1.Text);
end;
Pessoa foi criado antes disso ser executado?E para que serve a linha
property Nome: String read PNome Write SetNome;
Isto define uma propriedade. Para ler/atribuir o valor de uma propriedade, basta usar o nome da propriedade. Exemplo:Pessoa.Nome := ´Fulano´; // equivale a Pessoa.SetNome(´Fulano´);
*************************************************
[quote:b8330f7d5d=´luiz_aquino´]procedure TForm1.Button3Click(Sender: TObject);
begin
Pessoa.SetNome(Edit1.Text);
end;
Pessoa foi criado antes disso ser executado?E como faço para criar pessoa?
tentei executar antes Pessoa.Create mas continua dando erro de memoria
GOSTEI 0
Massuda
17/08/2007
E como faço para criar pessoa?
tentei executar antes Pessoa.Create mas continua dando erro de memoria
Pessoa := TPessoa.Create;
GOSTEI 0