@alisa.bahringer
Добрый день!
Для того чтобы проверить пустой ли файл его нужно прочесть и после этого измерить длину.
Пример:
1 2 3 4 5 6 7 8 9 10 11 |
var FileName: string; list: TStringList; begin FileName:= 'C:\Temp\1.txt'; list:= TStringList.Create; list.LoadFromFile(FileName); if length(list.Text) = 0 then ShowMessage('Файл пустой') else ShowMessage('Файл не пустой') ; list.free; end; |