[Duvida] Como Fazer uma Classe de Banco de Dados Campo MEMO

Delphi

19/04/2011

Como fazer esta classe, sendo que tenho um campo Observação que é Blob????   Exemplo:    Type
  TClientes = Class
   Protected
    fCodigo: Integer;
    fNome: String;
    fEndereco: String;
    fNumero: String;
    fBairro: String;
    fCodCid: Integer;
    fCidade: String;
    fEstado: String;
    fCep: String;
    fFantasia: String;
    fPais: String;
    fPessoa: Integer;
    fCgc: String;
    fIe: String;
    fTelefone: String;
    fFax: String;
    fContato: String;
    fCelular: String;
    fEmail: String;
    fCodGrupo: Integer;
    fCodRef: Integer;
    fCodReg: Integer;
    fLoja: String;
    fCodRep: Integer;
    fCodSeg: Integer;
    fDataCad: String;
    fFundacao: String;
    fRestricao: Integer;
    fEndCob: String;
    fNumCob: String;
    fBaiCob: String;
    fCidCob: String;
    fEstCob: String;
    fCepCob: String;
    fCredito: Double;
    fObs: TMemo;  <<--- Como declarar isso para exibir / gravar os dados
    fAtivo: Integer;
   Public
    Constructor Create;
    Property Codigo: Integer Read fCodigo Write fCodigo;
    Property Nome: String Read fNome Write fNome;
    Property Endereco: String Read fEndereco Write fEndereco;
    Property Numero: String Read fNumero Write fNumero;
    Property Bairro: String Read fBairro Write fBairro;
    Property CodCid: Integer Read fCodCid Write fCodCid;
    Property Cidade: String Read fCidade Write fCidade;
    Property Estado: String Read fEstado Write fEstado;
    Property Cep: String Read fCep Write fCep;
    Property Fantasia: String Read fFantasia Write fFantasia;
    Property Pais: String Read fPais Write fPais;
    Property Pessoa: Integer Read fPessoa Write fPessoa;
    Property Cgc: String Read fCgc Write fCgc;
    Property Ie: String Read fIe Write fIe;
    Property Telefone: String Read fTelefone Write fTelefone;
    Property Fax: String Read fFax Write fFax;
    Property Contato: String Read fContato Write fContato;
    Property Celular: String Read fCelular Write fCelular;
    Property Email: String Read fEmail Write fEmail;
    Property CodGrupo: Integer Read fCodGrupo Write fCodGrupo;
    Property CodRef: Integer Read fCodRef Write fCodRef;
    Property CodReg: Integer Read fCodReg Write fCodReg;
    Property Loja: String Read fLoja Write fLoja;
    Property CodRep: Integer Read fCodRep Write fCodRep;
    Property CodSeg: Integer Read fCodSeg Write fCodSeg;
    Property DataCad: String Read fDataCad Write fDataCad;
    Property Fundacao: String Read fFundacao Write fFundacao;
    Property Restricao: Integer Read fRestricao Write fRestricao;
    Property EndCob: String Read fEndCob Write fEndCob;
    Property NumCob: String Read fNumCob Write fNumCob;
    Property BaiCob: String Read fBaiCob Write fBaiCob;
    Property CidCob: String Read fCidCob Write fCidCob;
    Property EstCob: String Read fEstCob Write fEstCob;
    Property CepCob: String Read fCepCob Write fCepCob;
    Property Credito: Double Read fCredito Write fCredito;
    Property Obs: TMemo Read fObs Write fObs;
    Property Ativo: Integer Read fAtivo Write fAtivo;
  End;
Abraço
Fernando Papile

Fernando Papile

Curtidas 0

Respostas

Alan Souza

Alan Souza

19/04/2011

como seu BLOB é do tipo TEXT (não faz sentido jogar BYTE em um TMemo), não seria melhor usar o TStringList?
GOSTEI 0
Fernando Papile

Fernando Papile

19/04/2011

TEM COMO ME PASSAR UM EXEMPLO?
GOSTEI 0
Wilson Junior

Wilson Junior

19/04/2011

Se o campo for BLOB TEXT, declare como String e atribua Memo.Lines.Text para ele e vice-versa.

Espero ter colaborado.
GOSTEI 0
José

José

19/04/2011

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0
POSTAR