Ola
Estou com a seguinte duvida, tenho a unit P_aluno e queria adicionar o campo
Puf, mas ele encontrasse em outra unit, tentei da seguinte forma abaixo, mas
não obtive sucesso, como faço para solucionar este problema. Obrigado
unit P_Aluno
uses P_estado
...........
..........
........
constructor Create(pcodaluno, pnome, puf: string);virtual;
end;
implementation
{Aluno}
Constructor Aluno.Create(pcodaluno, pnome,puf : string);
begin
self.setcodaluno(pcodaluno);
self.setnome(pnome);
self.setuf(puf)
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
unit UNTP_ESTADO;
interface
Uses Dialogs;
Type Estado = class
protected
UF:string;
public
{Metodos set's}
procedure setUF(pUF:string);
{Metodos get's}
function getUF:string;
end;
implementation
uses UNTP_ALUNO, UNTPESSOA;
{ Pessoa }
{----------------------Inicio dos SET'S-----------------------------------}
procedure Estado.setUF(puf: string);
begin
UF:=puf;
end;
{----------------------Fim dos SET'S-----------------------------------}
{----------------------Iniico dos GET'S-----------------------------------}
function Estado.getUF: string;
begin
Result:=uf;
end;
{----------------------Fim dos GET'S-----------------------------------}
end.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
