{--------------------------------------------------------}
{              Telemark - estrutura de dados
{--------------------------------------------------------}

unit tmvars;
interface
uses windos;

const
    LIGHTGRAY = 15;
    MAXCADASTRO = 15000;
    MAXFOLHAS = 50;
    MAXSECOESFICHA = 20;
    MAXDADOSPARTEFICHA = 50;
    MAXCOMBO  = 30;

{-----------------------------------------}

const
    ALFA = 'A';
    NUMERO = 'N';
    TEXTO = 'T';

type
    PString = ^string;

    PCadastro = ^Cadastro;

    Cadastro = record
        nome:     string [50];
        telefone: string [40];
        status:   string [40];
        nomeArq:  string [20];
        selecionado: boolean;
    end;

    pvetCadastro = ^vetCadastro;
    vetCadastro = array [1..MAXCADASTRO] Of pCadastro;

    PParteFicha = ^TParteFicha;
    TParteFicha = record
        nomeParteFicha: string [40];
        ndadosParteFicha: integer;
        dadosParteFicha: array [1..MAXDADOSPARTEFICHA] of record
            nomeCampo: string [20];
            tipoCampo: char;
            tamCampo: integer;
            qualCombo: integer;
        end;
    end;

    TFichaModelo = array [1..MAXSECOESFICHA] of pParteFicha;

    pCombo = ^TCombo;
    TCombo = record
        nomeCombo: string[30];
        nOpcoes: integer;
        valor: array[1..50] of string[30];
        apresent: array[1..50] of string[30];
    end;

    pFolha = ^TFolha;
    TFolha = record
        dado: array [1..MAXDADOSPARTEFICHA] of string;
    end;

    PSecao = ^TSecao;
    TSecao = record
        pInfoSecao: PParteFicha;
        nFolhas: integer;
        folha: array [1..MAXFOLHAS] of PFolha;
    end;

    PFicha = ^TFicha;
    TFicha = record
        nomeArqFicha: string;
        secao: array [1..MAXSECOESFICHA] of PSecao;
    end;

var
    empresa, operador: string;
    serial: integer;

    dirProg, dirCadastro: string;
    nomeArqCombo, nomeArqModelo: string;

    cadastrados: integer;
    pessoas: pVetCadastro;

    nPartesModelo: integer;
    fichaModelo: TFichaModelo;
    nCombos: integer;
    combo: array [1..MAXCOMBO] of pCombo;

    fichaAtual: TFicha;

    achados: integer;
    posAtual, posFolheia: integer;
    nomeBusc: string;

implementation
end.
