Padrão TCollection no Delphi - Artigo Clube Delphi 108

Muito útil, do exemplo apenas necessitei fazer algumas alterações no código e adicionei os dois métodos:
No evento onClick do btnListar:
procedure TForm1.btnListarClick(Sender: TObject);
var
i: Integer;
begin
Memo1.Lines.Clear;
if Produtos.Count = 0 then
Memo1.Lines.Add('Não há nenhum produto cadastrado!')
else begin
for i := 0 to Produtos.Count-1 do begin
Memo1.Lines.Add('Produto '+IntToStr(i));
Memo1.Lines.Add('Código: '+IntToStr(Produtos.Item[i].GetCodigo));
Memo1.Lines.Add('Nome: '+Produtos.Item[i].GetNome);
Memo1.Lines.Add('Preço: '+FloatToStr(Produtos.Item[i].GetPreco));
end;
end;
end;
Na classe SetProduto em private:
function GetCount: Integer;
function TSetProduto.GetCount: Integer;
begin
Result := inherited Count;
end;
Abraços.

[há +1 mês] - Responder