Bom Dia!!!
Bem, vamos falar inicialmente da escrita de arquivos texto. Existem algumas palavras reservadas, das quais irei falar de apenas algumas delas, que serão abordadas neste artigo. Para conhecer todas as palavras res...
Um efeito interessantíssimo onde você poderá fazer chover qualquer tipo de objeto pelo site, assim como neve ou chuvas normais.
Código.
<script language="JavaScript1.2">
<!-- This script is copyright Altan...
É só incluir a função em sua biblioteca ou na unit que vc estiver
usando e chama-la passando os parametros corretos.
A função preenche strings com qualquer caracter a esquerda ou direita retornando a string formatada ...
(* Função Inverte
Inverter um String
Parametros Tipo Objetivo
wStr1 String Especificar a Data a ser invertida
i Integer Contador do laço for
Retorno String ...
Procedure para limpar o conteúdo da propriedade .Text de todos os componentes TEdit, TMaskEdit e TComboBox de um TForm.
procedure Limpa_Campo ( Form : TForm );
var i : Integer;
begin
for i := 0 to Form.Componen...
Inclua ActiveX, ComObj e ShlObj na clausula USES.
Veja os eventos do form codificados abaixo:
procedure TFMain.FormCreate(Sender: TObject);
var ItemIDList : PItemIDList;
begin
SetLength(DirDesktop,MAX_PA...
Veja a dica em uma query com pasagem de parametro.
Renomei a query para cat.
cat.close;
cat.sql.clear;
cat.sql.text := 'select * from cat where matricula =:cod';
cat.ParamByName('cod').AsInteger := 908421; /// pasa...
// Função para apresentação de uma data no formato 'Dia da semana'.
function MostraData(dtData: TDateTime): string;
var
intDiaSemana: integer;
strDiaSemana: string;
begin
intDiaSemana := DayOfWeek(dtData);
...
Begin
if opendialog1.execute then
begin
mediaplayer1.filename:= opendialog1.filename;
mediaplayer1.open;
mediaplayer1.Perform (wm_lbuttondown,0,$00090009);
...
Procedure TForm1.btnTestClick(Sender: TObject);
var i: integer;
begin
for i:= 0 to Table1.FieldCount-1 do
Table1.Fields[i].DisplayWidth:= Length(Table1.Fields[i].DisplayLabel);
end;...
Funcao para criptografar e descriptografar um string.
Quando vc informa uma String Normal ela retornara a mesma
criptografada e quando vc informa uma String criptografada
ele retorna a string original.
Bom para gua...
Função simples para centralizar uma String num espaço especificado.
Exemplo: Gostaria de centralizar a String='TESTES' EM 18 COLUNAS.
S := Centraliza('TESTES',18);
S seria = ' TESTES '
(* Função Cen...
É o seguinte, tenho dois números, A e B, digamos que sejam valores distintos reais e positivos, por exemplo 549 (A) e 1578(B), elaborem um algoritmo que independente dos valores inseridos nele, ele mostre a quantidade de n...
É o seguinte, tenho dois números, A e B, digamos que sejam valores distintos reais e positivos, por exemplo 549 (A) e 1578(B), elaborem um algoritmo que independente dos valores inseridos nele, ele mostre a quantidade de n...
Procedure TForm1.btnCriaFieldClick(Sender: TObject);
var T: TStringField;
begin
if qryCliente.Active then qryCliente.Close;
T := TStringField.Create(Self);
T.fieldName := 'cli_Nome';
...
Desconecta da Rede uma unidade mapeada e traduz as mensagens de erro.
Function DesconectaRede(Letra:Pchar;Forcada:boolean):String;
// Letra = Letra atribuida a unidade
// Forcada = Força o cancelamento do mapeamento
...
Para compactar (remover fisicamente todos registros apagados) de uma tabela Paradox deve-se utilizar o seguinte
código:
procedure ParadoxPack(Tabela : TTable);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
...
Existem vários métodos em Delphi para gravar arquivos texto a partir de informações gravadas em bases de dados
ou para ler arquivos texto e armazená-los em bases de dados. Esta dica apresenta um destes métodos: o uso d...
Procedure TForm1.Button1Click(Sender: TObject);
var Mail : String;
begin
Mail := 'mailto:joaquim@softcominformatica.com.br';
ShellExecute(GetDesktopWindow,'open',pchar(Mail),nil,nil,sw_ShowNormal);
end;
...
{ No evento OnCreate do formulário principal}
procedure TfrmPrincipal.FormCreate(Sender: TObject);
var
hMenuHandle: Integer;
begin
hMenuHandle := GetSystemMenu(Handle, False);
if (hMenuHandle <>...
Var
a:string;
b,c:integer;
begin
//A variável "a" recebe a hora como string.
a:=TimeToStr (now);
//A variável "b" recebe a dezena do segundo transformada no tipo inteiro.
b:=strtoint(a...
Coloque na propriedade "TabWidth" o tamanho da coluna em pixels. Para adicionar os items ao ListBox, separe as colunas com "^I", como abaixo:
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.A...
Já vi diversas, linhas de códigos rodando por ai, pois ai vai mais uma, bem simples....
No evento OnKeyPress do formulário.
Digite.
if key=#13 then
begin
key := #0; // tira o ruído qndo pressiona o e...
Se você precisa utilizar os componentes ServerSocket e ClientSocket, disponíveis nas versões anteriores ao Delphi 7, basta seguir o procedimento:
-> Clique em Component >> Install Packages.
-> Clique em ADD...
Pessoal, a algum tempo vinha tentando incluir em um software a função de
enviar email, porem usando o SMTP da "TERRA", não dava certo de jeito algum,
muitas perguntas em foruns sem respostas que levassem ao exito e muita...
Ta aí a solução do problema
obs.: as variaveis tem q ser inteiras pois entre um numero real e outro(tipo 1 e 2) há um intrvalo infinito de numeros fracionais
o programa em pascal:
Program NumerosPrimos ;
var a,b,i:i...
Solução do algoritimos q exibe numeros primos.
obs: as variaveis tem q ser inteiras pois entre um numero real e outro(tipo 1 e 2) há infinitos numeros fracionais.
Program NumerosPrimos ;
var a,b,i:integer;
Begin
...
