erro ao dar o create
08/01/2006
0
type
TPessoa = class
private
fNome: string;
public
property Nome: string read fNome write fNome;
end;
var
Form1: TForm1;
vlist: TList;
FPessoa: array of TPessoa;
i: integer;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
i := i + 0;
vlist := TList.Create;
FPessoa[i] := TPessoa.Create; <------------------- ERRO
Tdqr
Posts
08/01/2006
Edilcimar
08/01/2006
Tdqr
i := 0;
vlist := TList.Create;
FPessoa[i] := TPessoa.Create;
FPessoa[i].Nome := Edit1.Text;
vlist.Add(FPessoa);
i := i + 0;
09/01/2006
Massuda
I := Length(FPessoa); SetLength(FPessoa, I + 1); FPessoa[I] := TPessoa.Create; ...
09/01/2006
Michael
:?: :shock:
Como a array é dinâmica, vc tem que setar suas dimensões, usando a procedure [b:f878476c7e]SetLength[/b:f878476c7e].
SetLength(FPessoas, 1)
Outra coisa, não use variáveis globais. Prefira campos da classe. E se for usá-las, não nomeias com um [b:f878476c7e]F[/b:f878476c7e] inicial, pois esta notação é usada em campos privados.
Não poste este tipo de mensagem, pois dá a entender que os usuários do fórum tem a obrigação de responder às perguntas questionadas.
[]´s
Clique aqui para fazer login e interagir na Comunidade :)