ActiveDelphi

[marcosmodolo]

Pessoal, estou comecando agora com programacao orientada a objeto e gostaria de algumas sugestões de melhoria no código abaixo e algumas dicas tbm de como chegar no objetivo que eu quero.

[johnny-walker]

eis um exemplo que pode te ajudar...


http://www.delphibasics.co.uk/Article.asp?Name=OOExample



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[marcosmodolo]

[casetek]

Olá Marcos,

Uma das maiores vantagens da O.O. é possibilitar exatamente isso que vc quer. Declare os atributos como privados e os métodos como públicos.
A definição de atributo privado é justamente essa, de só poder ser acessado dentro da própria classe.

TMyObject = class

private
Tipo:string[1];
CodMunic:string[5];
DataEnvio:string[8];
HoraEnvio:string[6];
Competencia:string[6];
Movimento:string[1];
CNPJ:string[14];
Origem:string[2];
Nome:string[55];
Departamento:string[55];
Cidade:string[30];

public

function SetNome (Nome:String):string;
function SetDepartamento (Depart:String):string;
function SetCidade (Cidade:String):string;
constructor Create;
end;

Uma observação. Métodos "SET" normalmente não retornam valor, por isso é melhor você usar uma procedure ao invés da function

procedure TMyObject.SetNome(nome: String);
begin
self.Nome:= nome;
end;

function TMyObject.GetNome(): String;
begin
Result:= Self.Nome;
end;

[marcosmodolo]

Pois é eu fiz dessa forma... Dai quando vou utilizar veja so:

var
MyObject: TMyObject;
begin
MyObject:= TMyObject.Create;

MyObject.Cidade:= 'teste'; //O Delphi deixa eu fazer a atribuição direta!!!!

FreeAndNil(MyObject);
end;

[DonOctavioDelFlores]

Every member of a class has an attribute called visibility, which is indicated by one of the reserved words private, protected, public, published, or automated. For example,

published property Color: TColor read GetColor write SetColor;

declares a published property called Color. Visibility determines where and how a member can be accessed, with private representing the least accessibility, protected representing an intermediate level of accessibility, and public, published, and automated representing the greatest accessibility.

Private, protected, and public members

Published members

Automated members

If a member's declaration appears without its own visibility specifier, the member has the same visibility as the one that precedes it. Members at the beginning of a class declaration that don't have a specified visibility are by default published, provided the class is compiled in the {$M+} state or is derived from a class compiled in the {$M+} state; otherwise, such members are public.

For readability, it is best to organize a class declaration by visibility, placing all the private members together, followed by all the protected members, and so forth. This way each visibility reserved word appears at most once and marks the beginning of a new "section" of the declaration. So a typical class declaration should like this:

type
TMyClass = class(TControl)
private
... { private declarations here}
protected
... { protected declarations here }
public
... { public declarations here }
published
... { published declarations here }
end;

You can increase the visibility of a member in a descendant class by redeclaring it, but you cannot decrease its visibility. For example, a protected property can be made public in a descendant, but not private. Moreover, published members cannot become public in a descendant class. For more information, see Property overrides and redeclarations.

---------------

Editado, não tem nada a ver com protected...

as classes se enxergam e tem acesso a todas as variaveis se estão na mesma unit... se vc colocar no uses e instanciar em outro lugar ai o private funciona...
_________________
“The problem with the world is that everyone is a few drinks behind.” Humphrey Bogart

[gilsonnrodrigues]

vc se deu ao trabalho de ao menos dar uma olhada numa unit qq do delphi?

forms, controls, etc.

[marcosmodolo]

[DonOctavioDelFlores]

tente acessar de outra unit... ai vai funcionar...
_________________
“The problem with the world is that everyone is a few drinks behind.” Humphrey Bogart

[marcosmodolo]

[danielbuona]

Amigo, se eu fosse desenvolver, eu faria assim..

[marcosmodolo]

Valeu pela dica!

Muito obrigado

Abs