Witam,
Program pokazuje mi zawsze 0 bajtów, nie wiem dlaczego. Kompiluje się itp. Oto fragment kodu :
<div class='codetop'>CODE</div><div class='codemain' style='height:200px;white-space
re;overflow:auto'>rocedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
assignfile(TF,opendialog1.filename);
try
reset(TF);
showmessage(pchar(filesize(tf)));
while not eof(TF) do
begin
readln(TF,s);
end;
finally
closefile(TF);
end;
messagebox(Handle,'Gotowe!','Formater',mb_ok or mb_iconinformation);
end;</div>
Oczywiscie zmienne sa zadaklarowane, ale jako globalne.
Program pokazuje mi zawsze 0 bajtów, nie wiem dlaczego. Kompiluje się itp. Oto fragment kodu :
<div class='codetop'>CODE</div><div class='codemain' style='height:200px;white-space
re;overflow:auto'>rocedure TForm1.Button1Click(Sender: TObject);begin
if opendialog1.Execute then
assignfile(TF,opendialog1.filename);
try
reset(TF);
showmessage(pchar(filesize(tf)));
while not eof(TF) do
begin
readln(TF,s);
end;
finally
closefile(TF);
end;
messagebox(Handle,'Gotowe!','Formater',mb_ok or mb_iconinformation);
end;</div>
Oczywiscie zmienne sa zadaklarowane, ale jako globalne.
