Dicas e novidades sobre Linguagens de Programação, desenvolvimento de sistemas, aplicativos e Programação de computadores
Como se movimentar e manipular tabelas no Delphi Nesta Dica do Web Mundi.com, veremos como se movimentar e manipular tabelas no Delphi. Para manipular banco de dados via código (movimentar o ponteiro e fazer inserção, edição e exclusão de dados), use um dos seguintes comandos abaixo: Dataset.First; // Move para o primeiro registro da tabela ou query…
Reparar e compactar um banco de dados Access com Delphi Quem já trabalhou com o Ms Access, alguma vez já teve que compactar ou reparar um banco de dados (Extensão MDB). O recurso de compactar é essencial , uma vez que o banco de dados começa a ficar grande demais. O código abaixo realiza estas…
Verifica a existência de uma placa de som Como verificar a existência de uma placa de som via programação Delphi Procedure TestaPlaca(Value:integer); begin som := ”; if WaveOutGetNumDevs > 0 then begin result := True end else begin Result := False; end; end;
Filtra todos os números de uma string em Delphi Function SoNumero(Texto : String) : String; var Ind : Integer; TmpRet : String; begin TmpRet := ”; for Ind := 1 to Length(Texto) do begin if IsDigit(Copy(Texto,Ind,1)) then begin TmpRet := TmpRet + Copy(Texto, Ind, 1); end; end; Result := TmpRet; end;
Rotina que imprime um texto em outro angulo diferente de 90º em Delphi procedure AngleTextOut(CV: TCanvas; const sText: String; x, y, angle,size:integer); // Requer a Printers declarada na clausula uses da unit // // Ex: // Printer.BeginDoc; // AngleTextOut(Printer.Canvas,’Teste’,180,100,0,11); // Printer.EndDoc; var LogFont: TLogFont; SaveFont: TFont; begin SaveFont := TFont.Create; SaveFont.Assign(CV.Font); GetObject(SaveFont.Handle, sizeof(TLogFont), @LogFont); with…
Alterando o Cursor do Mouse no Delphi Se você precisa indicar visualmente que um processo está em execução, uma boa prática é alterar o cursor do mouse para uma ampulheta. No Delphi, isso é muito simples e pode ser feito com o comando: Após a finalização do processo, é importante restaurar o cursor para a…
Verificando a conexão de Internet via Delphi Para verificar a conexão de Internet via Delphi, siga os seguintes procedimentos: Inclua um componente TCP no Form, e digite o código: if (TCP1.LocalIP = ‘0.0.0.0’ or TCP1.LocalIP = ‘127.0.0.1’) then ShowMessage(‘Computador não está conectado na Internet’) else ShowMessage(‘Computado conectado na Internet’)
Como Ocultar e Mostrar o Cursor do Mouse em Delphi Controlar a visibilidade do cursor do mouse pode ser útil em várias situações, como em jogos, aplicações de tela cheia, ou interfaces personalizadas. Em Delphi, podemos fazer isso utilizando a função ShowCursor da API do Windows. Este post mostrará como você pode ocultar e exibir…
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: PChar; begin Ptr := @Str[Length(Str)]; Inc(Ptr); if Ptr^ = #0 then begin Result := @Str[1]; end else begin Result := StrAlloc(Length(Str)+1); RingIndex := (RingIndex + 1) mod (High(TRingIndex) + 1);…
Procedure que escreve na diagonal em Delphi Procedure Diagonal(FName: String;Fsize, Pos, Land:Integer; Fcor:TColor;Texto: String); var lf : TLogFont; tf : TFont; begin with Form1.Canvas do begin Brush.Style := bsClear; Font.Name := FName; Font.Size := Fsize; Font.Color := Fcor; tf := TFont.Create; tf.Assign(Font); GetObject(tf.Handle, sizeof(lf), @lf); lf.lfEscapement := Pos; lf.lfOrientation := Land; lf.lfQuality := 1; tf.Handle…
Enviando arquivos para a Lixeira Para excluir um arquivo, enviando-o para a Lixeira (ao invés de excluí-lo definitivamente), use a rotina abaixo: uses ShellAPI; {insira na cláusula uses de sua unit} function MandaParaALixeira (Arquivo : String) : Boolean; var FOS : TSHFileOpStruct; begin FillChar(FOS, sizeof(FOS), 0); with FOS do begin wFunc := FO_DELETE; pFrom := PChar…
5 Dicas de Delphi Neste post mostraremos 5 dicas de desenvolvimento na linguagem de programação Delphi. Verificando se uma data esta em um final de semana Esta função testa se a data informada como parâmetro está em um fim de semana (Sábado ou Domingo).Em caso de positivo retorna True. Se não retorna False Function FimdeSemana (dData :…