Incrementando e Decrementando com INC( ) e DEC( )

Incrementando e Decrementando com INC( ) e DEC( ) Para incrementar um contador, é muito comum utilizar a instrução : Variavel:=Variavel+1; ou Variavel:=Variavel-1; As funções INC e DEC permitem agilizar o processamento do seu sistema. Para isso substitua a linha: Variavel:=Variavel+1; por: INC(variavel); ou Variavel:=Variavel-1; por: DEC(variavel) se você quiser diminuir 1 ao invés de aumentar.

Continuar lendo »

Verificando se uma unidade de disco está preparada

Verificando se uma unidade de disco está preparada Crie um novo projeto; Coloque no uses: System, SysUtils Na seção implementation da Unit1 digite a função abaixo: function DriveOk(Drive: Char): boolean; var I: byte; begin Drive := UpCase(Drive); if not (Drive in [‘A’..’Z’]) then raise Exception.Create(‘Unidade incorreta’); I := Ord(Drive) – 64; Result := DiskSize(I) >=

Continuar lendo »

Remove acentos de uma string

Função que remove acentos de uma string em Delphi function RemoveAcentos(Str:String): String; Const ComAcento = ‘àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ’; SemAcento = ‘aaeouaoaeioucuAAEOUAOAEIOUCU’; Var x : Integer; Begin For x := 1 to Length(Str) do Begin if Pos(Str[x],ComAcento)<>0 Then begin Str[x] := SemAcento[Pos(Str[x],ComAcento)]; end; end; Result := Str; end;

Continuar lendo »
Pages:1234567...22»