как проверить содержимое txt файла

[gsl180]

При старте программа проверяет txt файл и если там есть запись устанавливает таймер на эту запись, но есть файл пустой происходит вылет с программы.
Файл загружается в ListBox
ListBox1->Items->LoadFromFile("save.txt");
Как можно узнать пустой файл или нет?

[Smitt&Wesson]

Примерно так.

if(FileExits("save.txt"))// проверяем существование файла
if(FileRead("save.txt") < 0) break:// Если файл не содержит данных - выход

[gsl180]

Я пробовал так и так

if(FileExists("save.txt")){
h=FileOpen("save.txt",fmOpenWrite);
int n=FileRead(h,"save.txt",1);
Label2->Caption=IntToStr(n);
}

Но n всегда -1 не зависимо пустой файл или нет.

[Stilet]

А FileExists точно файл находит? Он никем не открыт с блокировкой для остальных?

[gsl180]

Нет файл он точно находит, потому что такой вариант работает

TStringList *SL= new TStringList;
if(FileExists("save.txt")){
SL->LoadFromFile("save.txt");
if(SL->Text.Length()>=5){
ListBox1->Items->LoadFromFile("save.txt");
//......
}}
else
h=FileCreat("save.txt");
delete SL;

[Nuklon]

TSearchRec info; 
if(FindFirst("save.txt", faAnyFile, info) == 0) {

    info.Size // размер файла в байтах

    FindClose(info);
}

[gsl180]

Сообщение от Nuklon

TSearchRec info; 
if(FindFirst("save.txt", faAnyFile, info) == 0) {

    info.Size // размер файла в байтах

    FindClose(info);
}

Спасибо работает На Label проверил, только если файл пустой показывает 0, если есть запись показывает размер.