function Preenche(Campo, Letra, Alinhamento: String; Tamanho: Integer): String;
var i00 : Integer;
begin
// Campo = Passar campo a ser preenchido
// Letra = Caracter pra ser prenchido
// Alinhamento = Preencher a esquerda("E") ou direita ("D")
Campo := Trim(Campo);
Result := '';
for i00:=1 to Tamanho - Length(Campo) do Result := Result + Letra;
if Alinhamento = 'E' then
Result := Result + Campo
else
Result := Campo + Result;
end;
end;
EX: edit1.Text := Preenche(edit1.Text, '0', 'E', 10);
ADSENSE
ADSENSE
terça-feira, 25 de outubro de 2011
segunda-feira, 3 de outubro de 2011
DATA DE CRIACAO DE UM ARQUIVo
Boa Tarde.
As vezes a gente se depara com alguns problemas como saber a data de criação de um arquivo ou .exe, por isso abaixo vou colocar uma função que faz este processo pra vcs. Claro que esta função é bem simples podendo ser melhorar a gosto pessoal de cada um, mas segue a que uso normalmente em questão simples.
function TForm1.DATADECRIACAO(Arq: string): TDateTime;
var ffd:TWin32FindData;
dft :DWORD;
lft :TFileTime;
h :THandle;
begin
h:= Windows.FindFirstFile(PChar(Arq), ffd);
try
if (INVALID_HANDLE_VALUE <> h) then begin
FileTimeToLocalFileTime(ffd.ftCreationTime,lft);
FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo);
Result := FileDateToDateTime(dft);
end
finally
Windows.FindClose(h);
end;
end;
Exemplo de uso da função.
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := DateToStr(DATADECRIACAO('C:\DATA.txt'));
end;
As vezes a gente se depara com alguns problemas como saber a data de criação de um arquivo ou .exe, por isso abaixo vou colocar uma função que faz este processo pra vcs. Claro que esta função é bem simples podendo ser melhorar a gosto pessoal de cada um, mas segue a que uso normalmente em questão simples.
function TForm1.DATADECRIACAO(Arq: string): TDateTime;
var ffd:TWin32FindData;
dft :DWORD;
lft :TFileTime;
h :THandle;
begin
h:= Windows.FindFirstFile(PChar(Arq), ffd);
try
if (INVALID_HANDLE_VALUE <> h) then begin
FileTimeToLocalFileTime(ffd.ftCreationTime,lft);
FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo);
Result := FileDateToDateTime(dft);
end
finally
Windows.FindClose(h);
end;
end;
Exemplo de uso da função.
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := DateToStr(DATADECRIACAO('C:\DATA.txt'));
end;
segunda-feira, 8 de agosto de 2011
Dicas
Gente, achei este site: http://www.tecnobyte.com.br/dica7.html com dicas para Delphi 7, vale a pena conferir.
Cléber
sexta-feira, 20 de maio de 2011
RETORNO AS ATIVIDADES
Bom dia .
Depois de um longo tempo sem atualizar o Blog ,por motivos de excesso de serviço, a partir desta semana voltarei a atualizar o Blog.
Desculpa a aquele que postarem comentários e eu não consegui responder.
Depois de um longo tempo sem atualizar o Blog ,por motivos de excesso de serviço, a partir desta semana voltarei a atualizar o Blog.
Desculpa a aquele que postarem comentários e eu não consegui responder.
Assinar:
Postagens (Atom)