Nenhuma resposta neste tópico

[Myks]

Olá. Bom...estou aki com um programa pra fazer em pascal. Tenho q usar união discriminada (quando vc tem variavel discriminante. Por exemplo, casado...solteiro...situacoes q vc so pode ser um ou outro). Então, a parte que tem q montar a discriminação, que é feita com "record" e "case" ja foi feito...agora...não está dando certo a parte d montar o bloco principal do programa. Será que alguem sabe como fazer?! Necessito urgente!!! Desde já obrigada.

program Ilustra_tipo_record_variante;

const ESPACO = #32;

type reg_de_nome = record
sobrenome:string [15];
primeiro_nome:string [15];
titulo:string [7];
end;

type reg_cliente = record
endereco1:string [40];
endereco2:string [40];
cidade:string [20];
estado:string [2];
cep:string [5];
telefone:record
ddd:string [4];
numero:string [8];
end;
case pess_juridica: boolean of
TRUE: (razao_social:string [40];
contato:string [30]);
FALSE: (nome:reg_de_nome);
end;
var dados_cliente:reg_cliente;