Файловая система Виндов

← →
Zheks © (2003-11-18 11:41) [0]

Моё почтение!!!
Помогите пож. разобраться в простом для Вас и не понятном для меня вопросе...
Пример:
var FH: integer; //handle
s: string;
FH := FileCreate("D:\tmp.tst");
FileWrite(fh, s, SizeOf(s));
FileClose;

вроде бы всё понятно, но почему размер создаваемого файла не зависит от длинны строки, и как грамотно потом прочитать содержимое файла?

← →
Digitman © (2003-11-18 11:49) [1]

FileWrite(fh, PChar(s), Length(s));

← →
Murad © (2003-11-18 11:50) [2]

SizeOf(s) :)))
Надо писать Length(s)

← →
Anatoly Podgoretsky © (2003-11-18 11:51) [3]

Не зависит, поскольку SizeOf(s) всегда равен 4

← →
Digitman © (2003-11-18 11:51) [4]

подобные вопросы всегда освежают в памяти анекдот про мужика, ищущего ключ под фонарем, в то время как ключ был потерян в совершенно ином месте)... и лишь на том основании, что под фонарем - светлее)

← →
Digitman © (2003-11-18 11:54) [5]

> Zheks

видишь ли, переменная типа String есть просто указатель ... а размер указателя - 4 байта ... собственно, эти 4 байта ты и видишь как размер полученного файла

← →
Murad © (2003-11-18 11:54) [6]

FileWrite(fh, s[1], Length(s));

← →
Anatoly Podgoretsky © (2003-11-18 11:56) [7]

Digitman © (18.11.03 11:54) [5]
И еще в файле значение этого указателя

← →
Digitman © (2003-11-18 12:01) [8]

> Anatoly Podgoretsky © (18.11.03 11:56) [7]

было б странным, если - иначе)

← →
Zheks © (2003-11-18 12:12) [9]

Пример взял из книжки.

← →
Anatoly Podgoretsky © (2003-11-18 12:24) [10]

Zheks © (18.11.03 12:12) [9]
Не обманывай

Вариант - книжка по паскалю.

Книга: "Delphi 7" Учебный курс.
С. Боборовский

> Zheks

ты утверждаешь, что у Боборовского пример именно так выглядел ? с точностью до последней литеры ? ты уверен ?

если да, то Боборовскому по ушам за это надо ...

> Zheks © (18.11.03 13:32) [12]
> Книга: "Delphi 7" Учебный курс.
> С. Боборовский

А там никаких {$*+-} не было до этого кода? Или может не стринг а shortstring?

Может я до этого что то упустил, но в этой статье из кодинга только этот... В любом случае С.Бобровский МОЛОДЕЦ! учит жеж помаленьку, + ВАША неоценимая помощь. Большое вам всем спасибо!

Файловая система Виндов Найти похожие ветки