crud-delphi/UnitFormGrid.pas

unit UnitFormGrid;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, UnitLista, UnitFormEstado, UnitFormPais,
  Vcl.ToolWin, Vcl.ComCtrls, Vcl.StdCtrls, UnitDados, System.StrUtils;

type
  TFormGrid = class(TForm)
    StringGrid1: TStringGrid;
    ToolBar1: TToolBar;
    btExcluir: TButton;
    btEscolher: TButton;
    edPesquisa: TEdit;
    Label1: TLabel;
    procedure geraGrid(wLista: TLista; wClass: TClass);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btExcluirClick(Sender: TObject);
    procedure btEscolherClick(Sender: TObject);
    procedure edPesquisaChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure testeStringGrid(Lista: TLista; Classe: TClass);
  private
    { Private declarations }
    palavra: string;
  public
    { Public declarations }
  end;

var
  FormGrid: TFormGrid;
  FClass: TClass;
  FLista: TLista;
  checkList: boolean;

implementation
{$R *.dfm}
uses UnitFormCidade;

procedure TFormGrid.testeStringGrid(Lista: TLista; Classe: TClass);
var
  wCont: Integer;
  wObj: TObject;
begin
  for wCont := 0 to Lista.Count-1 do
    begin
      wObj := Lista.getObjectByIndex(wCont);
      if Classe = TCidade then
         begin
           with wObj as TCidade do
             begin
               StringGrid1.Cells[0, wCont] := inttostr(wCod);
               StringGrid1.Cells[1, wCont] := wCidade;
               StringGrid1.Cells[2, wCont] := wPais;
               StringGrid1.Cells[3, wCont] := wUF;
             end;
         end;
    end;
end;

procedure TFormGrid.btEscolherClick(Sender: TObject);
var
  wObj: TObject;
  FormCidade: TFormCidade;
begin
try
  if FClass = TCidade then
     Dado1.Dado := StringGrid1.Row;
  if FClass = TEstado then
     Dado2.Dado := StringGrid1.Row;
  if FClass = TPais then
     Dado3.Dado := StringGrid1.Row;
  finally
    Self.Free;
  end;
end;

procedure TFormGrid.btExcluirClick(Sender: TObject);
var
  Index: integer;
  wObj: TObject;
begin
  Index := StringGrid1.Row;
  wObj := FClass.Create;
  try
    wObj := FLista.getObjectByIndex(Index);
    FLista.Excluir(Index);
  finally
    Self.Free;
  end;

end;

procedure TFormGrid.edPesquisaChange(Sender: TObject);
var
  wCont: integer;
  wObj: TObject;
  wCont2: integer;
  wCheckString: string;
  wLista: TLista;
  wObj2: TObject;
  I: Integer;
begin
  palavra := edPesquisa.Text;
  wLista := TLista.Create;
  for wCont := 0 to FLista.Count-1 do
    begin
      wObj := FLista.getObjectByIndex(wCont);
      if FClass = TCidade then
         begin
           with wObj as TCidade do
             begin
               if ContainsText(wCidade, palavra) then
                   begin
                     ShowMessage('Resultado containstext:'+booltostr(ContainsText(wCidade, palavra)));
                     wLista.Inserir(wObj, TCidade);
                   end;
             end;
         end;
    end;

  ShowMessage('lista count:'+inttostr(wLista.Count));
  for I := 0 to wLista.Count-1 do
    begin
      wObj2 := wLista.getObjectByIndex(I);
      with wObj2 as TCidade do
        begin
          ShowMessage(wCidade);
        end;
    end;
  if wLista.Count > 0 then
     begin
     FormGrid.testeStringGrid(wLista, TCidade);
     end;

end;

procedure TFormGrid.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TFormGrid.FormCreate(Sender: TObject);
begin
  checkList := true;
end;

procedure TFormGrid.geraGrid(wLista: TLista; wClass: TClass);
var
  wCont: integer;
  wObj: TObject;
begin
  if checkList = true then
     begin
       FLista := wLista;
       FClass := wClass;
       checkList := false;
     end;
  wObj := wClass.Create;
  ShowMessage('wLista count:'+inttostr(wLista.Count));
  //StringGrid1.RowCount := wLista.Count;
  for wCont := 0 to wLista.Count-1 do
    begin
      wObj := wLista.getObjectByIndex(wCont);
      // fazer uma condi<64><69>o para cada tipo de Classe existente
      if  wObj.ClassType = TCidade then
          with wObj as TCidade do
            begin
              ShowMessage('cod:'+inttostr(wCod));
              ShowMessage('testestring:'+wCidade);
              StringGrid1.Cells[0, wCont] := inttostr(wCod);
              StringGrid1.Cells[1, wCont] := wCidade;
              StringGrid1.Cells[2, wCont] := wPais;
              StringGrid1.Cells[3, wCont] := wUF;
            end;
    if wObj.ClassType = TEstado then
       with wObj as TEstado do
         begin
           StringGrid1.Cells[0, wCont] := inttostr(wCod);
           StringGrid1.Cells[1, wCont] := wEstado;
           StringGrid1.Cells[2, wCont] := wPais;
           StringGrid1.Cells[3, wCont] := inttostr(wAliquota);
         end;
    if wObj.ClassType = TPais then
       with wObj as TPais do
         begin
           StringGrid1.Cells[0, wCont] := inttostr(wCod);
           StringGrid1.Cells[1, wCont] := wPais;
           StringGrid1.Cells[2, wCont] := wNacionalidade;
           StringGrid1.Cells[3, wCont] := inttostr(wCodFed);
         end;
  end;
end;

end.