https://github.com/satoosan/poo-delphi
Usando POO com Delphi
https://github.com/satoosan/poo-delphi
delphi delphi10 pascal poo
Last synced: 3 months ago
JSON representation
Usando POO com Delphi
- Host: GitHub
- URL: https://github.com/satoosan/poo-delphi
- Owner: satoosan
- Created: 2025-03-13T21:51:18.000Z (3 months ago)
- Default Branch: main
- Last Pushed: 2025-03-13T21:53:48.000Z (3 months ago)
- Last Synced: 2025-03-13T22:32:13.771Z (3 months ago)
- Topics: delphi, delphi10, pascal, poo
- Language: Pascal
- Homepage:
- Size: 0 Bytes
- Stars: 1
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
README
# POO com Delphi
## Descrição
Este projeto implementa uma hierarquia de classes para representar clientes de um sistema, diferenciando entre clientes pessoa física e pessoa jurídica. O código está escrito em Delphi/Object Pascal.
## Estrutura do Projeto
O projeto consiste em um arquivo principal (`cliente.pas`), que define as classes:
### 1. `TCliente`
- Classe base para representar um cliente.
- Possui os atributos:
- `Nome`: Nome do cliente.
- `Email`: E-mail do cliente, com validação para garantir um formato correto.
- Métodos:
- `ExibirDados()`: Método abstrato que deve ser sobrescrito pelas classes derivadas.
### 2. `TClientePessoaFisica`
- Herda de `TCliente`.
- Adiciona o atributo:
- `CPF`: Cadastro de Pessoa Física.
- Implementa:
- `ExibirDados()`: Retorna uma string formatada com nome e CPF.
### 3. `TClientePessoaJuridica`
- Herda de `TCliente`.
- Adiciona o atributo:
- `CNPJ`: Cadastro Nacional da Pessoa Jurídica.
- Implementa:
- `ExibirDados()`: Retorna uma string formatada com nome e CNPJ.
## Exemplo de Uso
Segue um exemplo de como instanciar e utilizar as classes:
```delphi
var
ClientePF: TClientePessoaFisica;
ClientePJ: TClientePessoaJuridica;
begin
ClientePF := TClientePessoaFisica.Create;
ClientePF.Nome := 'João Silva';
ClientePF.CPF := '123.456.789-00';
ClientePF.Email := '[email protected]';
Writeln(ClientePF.ExibirDados);
ClientePJ := TClientePessoaJuridica.Create;
ClientePJ.Nome := 'Empresa XYZ';
ClientePJ.CNPJ := '12.345.678/0001-99';
ClientePJ.Email := '[email protected]';
Writeln(ClientePJ.ExibirDados);
ClientePF.Free;
ClientePJ.Free;
end.
```
## Requisitos
- Delphi 10 ou superior.
- Conhecimento em Programação Orientada a Objetos (POO) com Delphi.