Скачать: CL | DM;

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

← →
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]
Не обманывай

---

← →
Smithson ©   (2003-11-18 12:36) [11]

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

---

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

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

---

← →
Digitman ©   (2003-11-18 13:35) [13]

> Zheks


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

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

---

← →
DVM ©   (2003-11-18 13:39) [14]

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

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

---

← →
Zheks ©   (2003-11-18 14:01) [15]

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

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.014 c