fbpx
Dicas de Programação Delphi

Como montar uma rotina em Delphi para verificar a impressora, antes de uma impressão Verificar se a impressora esta OK, antes de iniciar uma impressão…

Leia mais

Compactando tabelas Paradox no Delphi procedure ParadoxPack(Table : TTable); var TBDesc : CRTblDesc; hDb: hDbiDb; TablePath: array[0..dbiMaxPathLen] of char; begin FillChar(TBDesc,Sizeof(TBDesc),0); with TBDesc do begin…

Leia mais

Função que retorna o IP Esta Função retorna o seu numero de IP, desde que você esteja conectado com a internet. Inclua na seção uses: WinSock…

Leia mais

Função que retorna a idade de uma pessoa function idade(Nascimento,DataAtual:string):Integer; var idade,dian,mesn,anon,diaa,mesa,anoa:word; begin decodedate(StrToDate(DataAtual),anoa,mesa,diaa); decodedate(StrToDate(Nascimento),anon,mesn,dian); idade := anoa – anon; if mesn > mesa then…

Leia mais

Função que converte String em Pchar em Delphi function StrToPChar(const Str: string): PChar; type TRingIndex = 0..7; var Ring: array[TRingIndex] of PChar; RingIndex: TRingIndex; Ptr:…

Leia mais

30/107