Fórum Retornar a quantidade de linha de um TXT ??? #214914
17/02/2004
0
Pq estou fazendo a importacao de um TXt para o BD e queria colocar uma barra de progresso..
Obrigado pela atenção
Valeu
Michel
Curtir tópico
+ 0Posts
17/02/2004
Lucas Silva
da proxima vez dá uma pesquisada antes ai.....
Falow,
Lucas!
Gostei + 0
17/02/2004
Adilsond
function GetNumLinhasArq(const FileTextName: String): Integer;
function GetNumLinhasArq(const FileTextName: String): Integer;
// Retorna o número de linhas que um arquivo possui
var
F: TextFile;
CountLine: Integer;
begin
CountLine := 0;
AssignFile(F, FileTextName);
Reset(F);
try
while not EOF(F) do
begin
ReadLn(F);
Inc(CountLine);
end;
finally
CloseFile(F);
end;
Result := CountLine;
end;
Gostei + 0
18/02/2004
Michel
Gostei + 0
18/02/2004
Magicbyte
uma vez vi um lance. vc pega um memo, dá um load from file pra ele do TXT e depois a qtd de linhas. prontinho hehehehehe
falous!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)