F�rum Heran�a Visual e Padroniza��o. #563836

10/10/2016

Ol�.

Estou aprendendo a usar um form como padr�o e estou com d�vidas sobre polimorfismo. Meu projeto � um cadastro de estado, cidade e endere�o, ent�o criei um form padr�o e uma classe padr�o (implementada abaixo). Minha d�vida �: Como utilizar esses m�todos (add, delete, update...) nas classes herdeiras? Sabendo que preciso armazenar todos os dados na mem�ria e ter acesso a cada um deles. Eu tentei criar uma classe herdeira, mas n�o sei se implemento tudo novamente e crio arrays separadas para cada dado, array of TEstado, array of TCidade...

Espero que entendam minha d�vida.


unit uClassPadrao;

interface

uses SysUtils, Vcl.Dialogs;

type
  TPadrao = class
  private
    FCodigo: Integer;
  public
    property Codigo: Integer read FCodigo write FCodigo;
  end;

  TListaPadrao = class
    private
    public
      procedure Add(prObjeto: TPadrao); Virtual;
      function Read(prCodigo: Integer):Integer; Virtual;
      procedure Update(prObjeto: TPadrao); Virtual;
      procedure Delete(prCodigo: Integer); Virtual;
  end;

implementation

uses uHome;

{ TListaPadrao }

procedure TListaPadrao.Add(prObjeto: TPadrao);
begin
  SetLength(frHome.FListaPadrao, Length(frHome.FListaPadrao) + 1);
  frHome.FListaPadrao[Length(frHome.FListaPadrao)-1]:= prObjeto;

  frHome.FListaPadrao.
end;

procedure TListaPadrao.Delete(prCodigo: integer);
var
  wIndex: Integer;
  wSave: TPadrao;
begin
  wIndex:= prCodigo;
  wSave:= frHome.FListaPadrao[Length(frHome.FListaPadrao)-1];
  frHome.FListaPadrao[Length(frHome.FListaPadrao)-1]:=  frHome.FListaPadrao[wIndex];

  while (wIndex < Length(frHome.FListaPadrao)-2) do
    begin
      frHome.FListaPadrao[wIndex]:= frHome.FListaPadrao[wIndex+1];
      wIndex:= wIndex + 1;
    end;

  frHome.FListaPadrao[wIndex]:= wSave;
  SetLength(frHome.FListaPadrao, Length(frHome.FListaPadrao) -1);
end;

function TListaPadrao.Read(prCodigo: integer): integer;
var
  wCont: Integer;
  wCodigo: integer;
begin
  Result := -1;
  wCont:= 0;

  if frHome.FListaPadrao <> nil then
     begin
       while wCont < Length(frHome.FListaPadrao) do
          begin
            if frHome.FListaPadrao[wCont].Codigo = prCodigo then
               begin
                 Result:= wCont;
               end;

            wCont:= wCont + 1;
          end;
     end;
end;

procedure TListaPadrao.Update(prObjeto: TPadrao);
var
  wIndex: Integer;
begin
  wIndex := Read(TPadrao(prObjeto).Codigo);
  if (wIndex > -1) then
     frHome.FListaPadrao[wIndex] := prObjeto;
end;
end.

Luana Cardoso

Curtir t�pico

+ 0

Responder

Posts

10/10/2016

Jones Granatyr

Opa! N�o entendi muito bem sua d�vida, mas quando voc� faz um m�todo do form principal, automaticamente as telas herdadas ter�o acesso a eles (a n�o ser que estejam na se��o private)

Responder

Gostei + 0

11/10/2016

Luana Cardoso

Opa! N�o entendi muito bem sua d�vida, mas quando voc� faz um m�todo do form principal, automaticamente as telas herdadas ter�o acesso a eles (a n�o ser que estejam na se��o private)

Minha d�vida � a seguinte, ali no m�todo "Add" eu tenho um array de TPadrao armazenando objetos do tipo TPadrao, por�m, quando armazeno os herdeiros nesse array apenas o c�digo � armazenado. Quero saber como posso armazenar as demais informa��es do objeto como Fnome, FDescricao...

Responder

Gostei + 0

03/11/2016

Araujo Junior.

Acho que voce poderia dar uma pesquisada sobre Generics, pois TPadrao � um tipo especifico, quando voce define TPadrao para o m�todo, n�o pode substuir por TEstado ou TMunicipio. Com o Generics voce passa o tipo que quiser.

Outra possibilidade seria voce sobescrever o m�todo nas classes que herdam, declarando apenas os m�todos na classe principal como abstratos:

procedure Add(prObjeto: TPadrao); Virtual; asbstract;
      function Read(prCodigo: Integer):Integer; Virtual; asbstract;
      procedure Update(prObjeto: TPadrao); Virtual; asbstract;
      procedure Delete(prCodigo: Integer); Virtual; asbstract;

Responder

Gostei + 0