تشخیص خالی بودن فایل متنی

[sharare]

یک فایل متنی دارم که می خواهم برنامه تشخیص بدهد که اگر فایل خالی است . یکسری اطلاعات رو از یه جایی بخواند و داخل خودش بنویسد. اما مشکلم اینه که چطوری تشخیص بدهد فایل خالی است.؟؟؟

[m-khorsandi]

درود
شما سایز فایل رو بدست بیارید و اون رو با 0 مقایسه کنید.

[sharare]

اما مشکل اینجاست که فایلم متنی است و نمی دونم چطور سایز فایل متنی رو به دست بیارم

[m-khorsandi]

دوست عزیز،
شما میتونید به شکل زیر عمل کنید:


var
var_textfile: TFileStream;
begin
var_textfile := TFileStream.Create('C:\test.txt', fmOpenRead);
caption := inttostr(var_textfile.Size);
var_textfile.Free;
end;