| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

работа с текстовыми файлами [D5, Win2k, WinXP]

Страницы:   < 1 2 >

Socol ©   (2004-12-16 13:57:00) 

Люди момогите мне нужно узнать размер текстового файла отописываю его как var F:textfile  к сожелении функция filesize для текстофых файлов не работает))) Других функций я ненаю)))
или можно номер последнего символа в файле))) С уважением Socol)))

---

КаПиБаРа   (2004-12-16 14:24:00) [21]

Где то читал, что во избежание проблем с открытием файлов рекомендуется узнавать размер с помощью findfirst/findnext.

---

Arnold   (2004-12-16 14:20:00) [22]

var
T:OFSTRUCT;
R:BY_HANDLE_FILE_INFORMATION;
Size:Real;
begin
GetFileInformationByHandle(OpenFile('файл.txt',T,OF_READ),R);
Size:=R.nFileSizeLow/1024; //а вот и размер в Кб
end;

---

ssk   (2004-12-16 14:18:00) [23]

>Александр Иванов ©   (16.12.04 14:10) [6]
Она вернет количество символов.

ты в работе код пробовал, или это просто предварительно-теоретическое утверждение?

---

lexis   (2004-12-16 14:11:00) [24]

var SR: TSearchRec;
....
  FindFirst(FileName, SR);
  Size := SR.Size;
  FindClose(SR);
....

---

Александр Иванов   (2004-12-16 14:10:00) [25]

ssk ©   (16.12.04 13:59) [1]

Она вернет количество символов.

---

Socol   (2004-12-16 14:08:00) [26]

вобше проблематично

---

Socol   (2004-12-16 14:08:00) [27]

вобше проблематично

---

ghg   (2004-12-16 14:06:00) [28]

а это что ли сложно?

---

Socol   (2004-12-16 14:01:00) [29]

млин а попроще какнить мона?:)

---

ssk   (2004-12-16 13:59:00) [30]

можно так:

function GetFileSize(FileName: string): longint;
var
 strm: TMemoryStream;
 sFileName: string;
begin
 strm := TMemoryStream.Create;
 sFileName := FileName;
 strm.LoadFromFile(sFileName);
 Result := strm.Size;
 FreeAndNil(strm);
end;

---

Страницы:   < 1 2 >

Наверх