Tamanho do Banco de Dados
08/12/2003
0
COMO POSSO MOSTRAR EM UM LABEL O TAMANHO EM Mega Bits DO MEU BD ?
[i:7083367159]Título editado. Digite em minúsculas. (marcelo.c - Moderador)[/i:7083367159]
[i:7083367159]Título editado. Digite em minúsculas. (marcelo.c - Moderador)[/i:7083367159]
Crcam
Curtir tópico
+ 0
Responder
Posts
08/12/2003
Maicongabriel
function TamanhoDoDB(Arquivo: String): String;
begin
with TFileStream.Create(Arquivo, fmShareDenyNone) do
try
Result := FormatFloat(´,0´, (Size div 1024)) + ´ MB´;
finally
Free;
end;
end;
[i:73953b45c8]// chame a função assim:[/i:73953b45c8]
Label1.Caption := TamanhoDoDB(´C:\BancoDeDados.DB´);
begin
with TFileStream.Create(Arquivo, fmShareDenyNone) do
try
Result := FormatFloat(´,0´, (Size div 1024)) + ´ MB´;
finally
Free;
end;
end;
[i:73953b45c8]// chame a função assim:[/i:73953b45c8]
Label1.Caption := TamanhoDoDB(´C:\BancoDeDados.DB´);
Responder
Clique aqui para fazer login e interagir na Comunidade :)
