Форум: "Основная";
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];

Вниз

HELP ME!!!!!!!!!!!!!!   Найти похожие ветки 

← →
Вадим   (2001-12-22 14:06) [2]

funtion GetFileSize(const FileName: string): integer;
var
Stream: TFileStream;
begin
Stream := TFileStream.Create(FileName, mfOpenRead);
try
Result := Stream.Size;
finally
Stream.Free;
end;
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.002 c