Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / 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)))

Anatoly Podgoretsky (2004-12-16 19:28:00) [1]
Канает, не канает, не воровская малина, сказано делать, так делай.

socol (2004-12-16 16:31:00) [2]
не как чар не канает надо как textfile

Term (2004-12-16 16:21:00) [3]
ну открой его как file of char

socol (2004-12-16 16:21:00) [4]
всем огромное спосибо за информацию))) Наконец то сделал)))

socol (2004-12-16 16:18:00) [5]
Александр Иванов © (16.12.04 16:17) [24]
У меня этот код работает на "ура".
Тогда попробуй "стандартный" подход:

var f:file;
Size:logint;
begin
AssignFile(f,'c:\key.txt');
Reset(f,1);
Size:=filesize(f);
end;

мне нужен текстовый файл))) Это не проканает)))

socol (2004-12-16 16:17:00) [6]
все начал показывать))) Токо мне нужен размер не в клб в байтах пробывал делить на 8 получается дробное число)))

Александр Иванов (2004-12-16 16:17:00) [7]
У меня этот код работает на "ура".
Тогда попробуй "стандартный" подход:

var f:file;
Size:logint;
begin
AssignFile(f,'c:\key.txt');
Reset(f,1);
Size:=filesize(f);
end;

socol (2004-12-16 16:12:00) [8]
так я и указываю полный))) Например C:\1.txt)))

Александр Иванов (2004-12-16 16:10:00) [9]
Лучше полный путь к нему укажи. Может поможет.

socol (2004-12-16 16:06:00) [10]
файл.txt этот? есть размером 12 байт)))

Александр Иванов (2004-12-16 15:58:00) [11]
socol (16.12.04 15:55) [19]

А у тебя такой файл есть?

socol (2004-12-16 15:55:00) [12]
Arnold ©
var
T:OFSTRUCT;
R:BY_HANDLE_FILE_INFORMATION;
Size:Real;
begin
GetFileInformationByHandle(OpenFile('файл.txt',T,OF_READ),R);
Size:=R.nFileSizeLow/1024; //а вот и размер в Кб
end;
// size получается равным 0 почему?

socol (2004-12-16 15:49:00) [13]
уточняю))) Мне нужен размер файла в байтах или количество символов в файле)))

socol (2004-12-16 15:48:00) [14]
уточню))) Мне нужен размер файла в байтах))) или количество символов содержащихся в файле)))

КаПиБаРа (2004-12-16 14:49:00) [15]
Александр Иванов © (16.12.04 14:45) [14]
Кстати автор так и не пояснил, что ему нужно размер файла или количество строк в файле

Люди момогите мне нужно узнать размертекстового файла

DN (2004-12-16 14:49:00) [16]
TFSinfile := TFileStream.Create(path, fmOpenRead); TFSinfile.Seek(0,soFromBeginning); len := TFSinfile.Size; TFSinfile.Free;

Александр Иванов (2004-12-16 14:45:00) [17]
ssk © (16.12.04 14:40) [13]

Просто я понял задачу по другому (количество строк) :).

Кстати автор так и не пояснил, что ему нужно размер файла или количество строк в файле.

ssk (2004-12-16 14:40:00) [18]
>Александр Иванов
В работе я его пробовал, а ты?

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

Попробовал его для файла из одной строки, он возвратил мне 21.

21 байт - должен быть размер файла. а в свойствах твоего файла какой размер пишется?

Александр Иванов (2004-12-16 14:35:00) [19]
ssk ©
Попробовал его для файла из одной строки, он возвратил мне 21.
Может я не понял автора, если ему нужно размер файла в байтах, то можно использовать filesize(просто файл объявлять как нетипизированный). Но насколько я понял, ему нужно количество строк в файле.

Александр Иванов (2004-12-16 14:31:00) [20]
ssk © (16.12.04 14:18) [8]

В работе я его пробовал, а ты?

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

Наверх

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