Desenvolvimento de Software

Função que recebe String de data e converte do formato ORIGEM para formato DESTINO   function InverteStringData(sData, sFormatoOrigem, sFormatoDestino: String):String; // Ex: // InverteStringData(DateToStr(Date),’DD/MM/AAAA’,’AAAA/MM/DD’) var sDia : String; sMes : String; sAno : String; begin if sFormatoOrigem = ‘DD/MM/AAAA’ then begin sDia := Copy(sData,1,2); sMes := Copy(sData,4,2); sAno := Copy(sData,7,4); end else if sFormatoOrigem =…

Quantos fins de semana já se passaram no corrente ano   function WeekNum(const TDT:TDateTime) : Word; var Y,M,D:Word; dtTmp:TDateTime; begin DecodeDate(TDT,Y,M,D); dtTmp := EnCodeDate(Y,1,1); Result := (Trunc(TDT-dtTmp)+(DayOfWeek(dtTmp)-1)) DIV 7; if Result = 0 then begin Result := 51 end else begin Result := Result-1; end; End;

Ao distribuir um sistema desenvolvido em Delphi 2.0 que utiliza banco de dados, é essencial incluir os arquivos corretos para evitar erros, como o Erro $220B, relacionado ao BDE (Borland Database Engine). Quais Arquivos São Necessários? Se sua aplicação usa BDE (Paradox, dBase, InterBase, etc.), será necessário levar os seguintes arquivos: Como Resolver o Erro…

No Delphi, é possível alterar o formato padrão de uma janela (form) para uma forma personalizada, como uma elipse. Isso pode ser útil para criar interfaces diferenciadas e modernas. Passo a Passo 1. Ajuste as Propriedades do Form Antes de aplicar a alteração de formato, configure as seguintes propriedades do Form: 2. Código para Criar…

No Delphi, podemos acessar informações da BIOS do computador diretamente pela memória. A função abaixo retorna esses dados em formato de string, permitindo exibir o resultado em um Memo. Exibindo as Informações da BIOS Para exibir as informações da BIOS em um componente TMemo, utilize a seguinte linha de código: Código da Função para Obter…

Função que compara dois valores e retorna o maior em Delphi function Max(A, B: Integer): Integer; begin if A > B then Result := A else Result := B; end;

Função que testa se a hora é antes de Meio dia function IsAM: Boolean; begin Result := Frac(Time) > 0.5 end;

Pergunta: Tenho um programa que se utiliza de alguns arquivos que preciso efetuar a criação de índices em tempo de execução. Como por exemplo: na primeira vez que o usuário irá utilizar o sistema, este faz uma pesquisa na existência dos arquivos que irá utilizar. Em não existindo, o sistema automaticamente cria-os e esta funcionando muito bem. Contudo,…

Movendo um Form sem barra de título Forms que não possuem barra de título (as que têm a propriedade BorderStyle setada em bsNone) podem ser movidas, através da rotina abaixo, que permite que se clique no form para poder mover a janela). Primeiramente, vá na seção public da classe que define o form, e digite a linha abaixo:…

Esta função permite abreviar nomes próprios, mantendo o primeiro e o último nome completos e abreviando os intermediários. Código otimizado Como Funciona Exemplo de Uso Benefícios da Otimização

procedure PrintMemo; var i,col,lin:integer; begin col:=0; // posição da coluna lin:=0; // posição da linha printer.begindoc; for i := 0 to memo1.Lines.Count-1 do begin printer.Canvas.TextOut(col,lin, memo1.Lines[i]); lin := lin + 30; end; printer.Enddoc; end;

function CPUSpeed: Double; const DelayTime = 500; // divide o tempo em ms var TimerHi, TimerLo: DWORD; PriorityClass, Priority: Integer; begin PriorityClass := GetPriorityClass(GetCurrentProcess); Priority := GetThreadPriority(GetCurrentThread); SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS); SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL); Sleep(10); asm dw 310Fh // rdtsc mov TimerLo, eax mov TimerHi, edx end; Sleep(DelayTime); asm dw 310Fh // rdtsc sub eax, TimerLo sbb edx,…