Jak wyświetlić rozmiar pliku txt na labelu...

0

Cześć!
Jak wyświetlić na labelu rozmiar pliku tekstowego w kilobajtach?

0

Poniewz o ile wiem FileSize nie dziala z textfile, proponuje otworzyc jako file of byte (lub file) i postapic tak:

procedure TForm1.Button1Click(Sender: TObject);
var
f:file of byte; * lub f: file;
begin
assignfile(F, 'c:\windows\Internet logs\ZAlog.txt');
Reset(F); * jesli f: file; wtedy reset(f,1);
Label2.Caption:=Format('%10.1f',[FileSize(F)/1024]);
closefile(F);
end;

--Pawel

Delphi6

0

A może zrobić file of chat - chyba łatwiejesze

var
f:file of char;
i:integer;
ch:char;
begin
assignfile(f,'c:\ip.txt');
reset(f);
i:=0;
while not eof(f) do
begin
inc(i);
read(f,ch);
end;
label1.caption:=inttostr(i);
closefile(f);
end;

Pzdrawiam--yaroo

0

yaroo napisał:
A może zrobić file of chat - chyba łatwiejesze

moze latwiejsze, ale przy dlugich pilkach czytanie ich znak po znaku moze potrwac :-)--Pawel

Delphi6

1 użytkowników online, w tym zalogowanych: 0, gości: 1