|
Terça-feira, 04
de junho de 2002
|
|
|
Não deixe de enviar sua dica de Programação Delphi para nós a publicarmos no ActiveNews, a equipe do ActiveDelphi e todos os assinantes ficarão agradecidos com a sua contribuição.
|
|
| |
|
1- Copia Arquivos com "coringas". Dica enviada por Jean Richard Lima |
|
procedure JCopiarq(PathOrigem: String; ArqOrigem: String ; PathDestino: String ; Manter: Boolean);
var
SR: TSearchRec;
I: integer;
Origem, Destino: String;
begin
I := FindFirst(PathOrigem+ArqOrigem, faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then
begin
Origem := PathOrigem + SR.Name;
Destino := PathDestino + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), Manter) then
ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
end;
I := FindNext(SR);
end;
end;
|
|
|
|
- |
|
2- Componente para exportação de dados para o excel. Enviado
por Fernando Fidelis. |
|
" Fico muito feliz em poder contribuir para que esta grande comunidade possa crescer, e para isto
estou enviando um pequeno componente para exportação de dados para o excel.
Esta é uma solução bem simples para o objetivo desejado, que eu desenvolvi para uso próprio e eu sei que pode ser
útil para muitas pessoas.
Duvidas, sugestões e reclamações é só avisar.
Abraços a toda equipe.
Ass. Fernando Fidelis
fidelis_f@hotmail.com
Foz do Iguaçu - Paraná "
Clique
aqui para fazer o download
|
|
Suporte em Delphi. cadastre-se
já
Este serviço tem por
finalidade oferecer aos associados um suporte técnico na linguagem de
programação Delphi, nas versões Standard, Professional
e Client/Server.
Atualmente, contamos com uma equipe de profissionais qualificados e
prontos pra lhe atender e ajudá-lo da melhor forma possível.
Nosso atendimento é feito através de e-mail e formulário web, de
segunda à sexta das 08:00h às 18:00h.
|
|
| - |
|
3- Retorna uma String em número definido (Replicate). Dica
enviada por Jean Richard Lima |
|
function JReplica(Caracter: String; Vezes: Integer): String;
var
J: Integer;
ARepetir: String;
begin
if Vezes <= 1 then
begin
ShowMessage('Precisa ser Mais que 1 a repetir');
exit;
end;
ARepetir := Caracter;
for j:=1 to (Vezes-1) do
Caracter := Caracter + ARepetir;
Result := Caracter;
end;
|
|
|
| - |
|
4- Colocando um
determinada linha de um DBGrid em destaque. |
|
No evento OnDrawColumnCell coloque
with (Sender as TDBGrid) do
begin
if NomedaTabela.FieldByName ("Nome do Campo").asinteger > 100
then {coloque a validação que você quiser}
Canvas.Brush.Color := clRed;
DefaultDrawColumnCell( Rect, DataCol, Column, State );
end;
|
|
Visite nosso Fórum de discussões sobre Delphi, é gratuito e não
precisa se cadastrar. Clique
Aqui |
|
| - |
|
5- Imprimindo um campo memo via Canvas. |
|
Coloque na clásula Uses a unit printers
procedure TForm1.Button1Click(Sender: TObject);
var
i, altura : Integer;
sMemo : String;
begin
With Printer do
begin
Title:= 'Imprimindo memo';
BeginDoc;
With Canvas do
begin
altura := TextHeight('A');
for i := 1 to Memo1.Lines.Count do
begin
sMemo := Memo1.Lines[I];
TextOut(1, (i - 1) * Altura, sMemo);
end;
end;
EndDoc;
end;
end;
|
|
Não deixe de enviar sua dica de Programação Delphi para nós a
publicarmos no ActiveNews, a equipe do ActiveDelphi e todos os
assinantes ficarão agradecidos com a sua contribuição.
|
|
| - |
|
6- Como subtrair
datas. |
|
Esta função retorna a data atual menos a data passada como parâmetro.
function SubData(DataSub: TDataTime) : Integer;
begin
result := Date - DataSub;
end;
|
|
Suporte em Delphi. cadastre-se
já
Este serviço tem por
finalidade oferecer aos associados um suporte técnico na linguagem de
programação Delphi, nas versões 1, 2, 3, 4 e 5 Standard, Professional
e Client/Server.
Atualmente, contamos com uma equipe de profissionais qualificados e
prontos pra lhe atender e ajudá-lo da melhor forma possível.
Nosso atendimento é feito através de e-mail e formulário web, de
segunda à sexta das 08:00h às 18:00h.
|
|
| - |
|
7- Ordenando um DBGrid clicando no título da coluna (usando Query). |
|
No evento Ontitleclick do DBGrid coloque:
procedure TForm1.DBGrid1TitleClick (Column: TColumn);
var
campo:string;
begin
campo:=column.fieldname;
application.processmessages;
Query1.sql.clear;
Query1.sql.add('select * from suatabela order by '+campo);
if not Query1.Prepared then
Query1.Prepare;
Query1.Open;
end;
|
| - |
|
Pensamento:
“
A sua vida tem um propósito e um sentido.
Você não está aqui apenas para preencher um espaço ou para ser um figurante no filme de outra pessoa. Pense nisto: o mundo seria diferente se você não existisse. Cada lugar onde você esteve e cada pessoa com quem você já falou seriam diferentes sem você. Estamos todos interligados e somos todos afetados pelas decisões e mesmo pela existência daqueles que vivem no mundo conosco." (Lepper, 1996)
|
|
|
-
Repasse este News para seus amigos(as)...
Até a próxima semana !
EQUIPE ACTIVEDELPHI
www.activedelphi.com.br
info@activedelphi.com.br
|