[delphi-br] Setar campos do tipo record dentro de uma classe retorna um erro
(Setar campos do tipo record dentro de uma classe retorna um erro) Pessoal bom dia, Tenho um record: TColuna = record Valor: Variant; Tamanho: Integer; Posicao: Integer; end; Uma Classe que incorpora o record: TPessoa = class(TObject) private FCPF: TColuna; public constructor Create; property CPF: TColuna read FCPF write FCPF; end; implementation constructor TPessoa.Create; begin FCpf.Posicao := 19; FCpf.Tamanho := 14; end; Em outra Unit tento setar o campo valor do campo CPF da Classe pessoa e me retorna um erro var MinhaPessoa: TPessoa; begin MinhaPessoa.CPF.Valor := '111.111.111-11'; end; Erro: [Pascal Error] E2064 Left side cannot be assigned to Como posso setar um valor para o campo Valor que é um Record dentro da minha classe TPessoa. Obrigado [] Alex Canário Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.yahoo.com/mailalertas/ [As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] Setar campos do tipo record dentro de uma classe retorna um erro
esqueci de colocar a instacia.
mas eu instanciei sim.
var
MinhaPessoa: TPessoa;
begin
MinhaPessoa := TPessoa.Create;
MinhaPessoa. CPF.Valor := '111.111.111- 11';
end;
- Mensagem original
De: Davi Eduardo Borges Wall [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 7 de Agosto de 2007 10:09:04
Assunto: RES: [delphi-br] Setar campos do tipo record dentro de uma classe
retorna um erro
Tu chegou a instanciar a classe MinhaPessoa?
De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de
Alex Canario
Enviada em: terça-feira, 7 de agosto de 2007 10:00
Para: [EMAIL PROTECTED] os.com.br
Assunto: [delphi-br] Setar campos do tipo record dentro de uma classe retorna
um erro
(Setar campos do tipo record dentro de uma classe retorna um erro)
Pessoal bom dia,
Tenho um record:
TColuna = record
Valor: Variant;
Tamanho: Integer;
Posicao: Integer;
end;
Uma Classe que incorpora o record:
TPessoa = class(TObject)
private
FCPF: TColuna;
public
constructor Create;
property CPF: TColuna read FCPF write FCPF;
end;
implementation
constructor TPessoa.Create;
begin
FCpf.Posicao := 19;
FCpf.Tamanho := 14;
end;
Em outra Unit tento setar o campo valor do campo CPF da Classe pessoa e me
retorna um erro
var
MinhaPessoa: TPessoa;
begin
MinhaPessoa. CPF.Valor := '111.111.111- 11';
end;
Erro: [Pascal Error] E2064 Left side cannot be assigned to
Como posso setar um valor para o campo Valor que é um Record dentro da minha
classe TPessoa.
Obrigado
[]
Alex Canário
Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.
yahoo.com/ mailalertas/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a {
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc {
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
Alertas do Yahoo! Mail em seu celular. Saiba mais em
http://br.mobile.yahoo.com/mailalertas/
[As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Setar campos do tipo record dentro de uma classe retorna um erro
Nossa, isso me lembrou primeiros semestres de ciências da computação..
Quando tu trabalha com REcords tu não tem que fazer algo assim ?
Coluna = Record
Valor: integer;
End;
TColuna = Coluna^
Var
T : TColuna;
Eu não me lembro completamente...
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alex
Canario
Enviada em: terça-feira, 7 de agosto de 2007 10:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] Setar campos do tipo record dentro de uma classe
retorna um erro
esqueci de colocar a instacia.
mas eu instanciei sim.
var
MinhaPessoa: TPessoa;
begin
MinhaPessoa := TPessoa.Create;
MinhaPessoa. CPF.Valor := '111.111.111- 11';
end;
- Mensagem original
De: Davi Eduardo Borges Wall [EMAIL PROTECTED]
mailto:davi.wall%40mult.com.br
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Terça-feira, 7 de Agosto de 2007 10:09:04
Assunto: RES: [delphi-br] Setar campos do tipo record dentro de uma classe
retorna um erro
Tu chegou a instanciar a classe MinhaPessoa?
De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de
Alex Canario
Enviada em: terça-feira, 7 de agosto de 2007 10:00
Para: [EMAIL PROTECTED] os.com.br
Assunto: [delphi-br] Setar campos do tipo record dentro de uma classe retorna
um erro
(Setar campos do tipo record dentro de uma classe retorna um erro)
Pessoal bom dia,
Tenho um record:
TColuna = record
Valor: Variant;
Tamanho: Integer;
Posicao: Integer;
end;
Uma Classe que incorpora o record:
TPessoa = class(TObject)
private
FCPF: TColuna;
public
constructor Create;
property CPF: TColuna read FCPF write FCPF;
end;
implementation
constructor TPessoa.Create;
begin
FCpf.Posicao := 19;
FCpf.Tamanho := 14;
end;
Em outra Unit tento setar o campo valor do campo CPF da Classe pessoa e me
retorna um erro
var
MinhaPessoa: TPessoa;
begin
MinhaPessoa. CPF.Valor := '111.111.111- 11';
end;
Erro: [Pascal Error] E2064 Left side cannot be assigned to
Como posso setar um valor para o campo Valor que é um Record dentro da minha
classe TPessoa.
Obrigado
[]
Alex Canário
Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.
yahoo.com/ mailalertas/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a {
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc {
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
Alertas do Yahoo! Mail em seu celular. Saiba mais em
http://br.mobile.yahoo.com/mailalertas/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Setar campos do tipo record dentro de uma classe retorna um erro
Mas é claro que vai dar erro! O objeto não foi nem instanciado!Tem que ser
assim:
type
TColuna = recordValor: Variant;Tamanho: Integer;Posicao: Integer;
end; TPessoa = class(TObject) privateFCPF: TColuna; public
constructor Create;property CPF: TColuna read FCPF write FCPF;
end;implementationconstructor TPessoa.Create;begin FCpf.Posicao := 19;
FCpf.Tamanho := 14;end; var MinhaPessoa: TPessoa;
begin MinhaPessoa := TPessoa.Create; { faltou isso daqui! }
MinhaPessoa.CPF.Valor := '111.111.111-11';end;
end.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 7 Aug 2007 05:59:54
-0700Subject: [delphi-br] Setar campos do tipo record dentro de uma classe
retorna um erro
(Setar campos do tipo record dentro de uma classe retorna um erro)Pessoal bom
dia,Tenho um record:TColuna = recordValor: Variant;Tamanho: Integer;Posicao:
Integer;end;Uma Classe que incorpora o record:TPessoa =
class(TObject)privateFCPF: TColuna;publicconstructor Create;property CPF:
TColuna read FCPF write FCPF;end;implementationconstructor
TPessoa.Create;beginFCpf.Posicao := 19;FCpf.Tamanho := 14;end; Em outra Unit
tento setar o campo valor do campo CPF da Classe pessoa e me retorna um
errovarMinhaPessoa: TPessoa;beginMinhaPessoa.CPF.Valor :=
'111.111.111-11';end;Erro: [Pascal Error] E2064 Left side cannot be assigned
toComo posso setar um valor para o campo Valor que é um Record dentro da minha
classe TPessoa.Obrigado[]Alex CanárioAlertas do Yahoo! Mail em seu celular.
Saiba mais em http://br.mobile.yahoo.com/mailalertas/[As partes desta mensagem
que não continham texto foram removidas]
_
Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas
com Windows Desktop Search GRÁTIS!
http://desktop.msn.com.br/
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Setar campos do tipo record dentro de uma classe retorna um erro
voce nao esta usando o create da sua classe.
tente:
var
MinhaPessoa: TPessoa;
begin
MinhaPessoa.create;
MinhaPessoa. CPF.Valor := '111.111.111- 11';
end;
- Mensagem original
De: Alex Canario [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 7 de Agosto de 2007 9:59:54
Assunto: [delphi-br] Setar campos do tipo record dentro de uma classe retorna
um erro
(Setar campos do tipo record dentro de uma classe retorna um erro)
Pessoal bom dia,
Tenho um record:
TColuna = record
Valor: Variant;
Tamanho: Integer;
Posicao: Integer;
end;
Uma Classe que incorpora o record:
TPessoa = class(TObject)
private
FCPF: TColuna;
public
constructor Create;
property CPF: TColuna read FCPF write FCPF;
end;
implementation
constructor TPessoa.Create;
begin
FCpf.Posicao := 19;
FCpf.Tamanho := 14;
end;
Em outra Unit tento setar o campo valor do campo CPF da Classe pessoa e me
retorna um erro
var
MinhaPessoa: TPessoa;
begin
MinhaPessoa. CPF.Valor := '111.111.111- 11';
end;
Erro: [Pascal Error] E2064 Left side cannot be assigned to
Como posso setar um valor para o campo Valor que é um Record dentro da minha
classe TPessoa.
Obrigado
[]
Alex Canário
Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.
yahoo.com/ mailalertas/
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a {
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc {
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
Alertas do Yahoo! Mail em seu celular. Saiba mais em
http://br.mobile.yahoo.com/mailalertas/
[As partes desta mensagem que não continham texto foram removidas]
