Текущий архив: 2004.07.04;
Скачать: CL | DM;

Вниз

Запись числа в файл   Найти похожие ветки 

← →
Хазей   (2004-06-16 20:59) [0]

Добрый день!
Я имею
var f1:TFileStream,
inst:integer,str1:string;

f1.WriteBuffer("([ontologypeople_Instance_",26);
str1:=inttostr(1);
f1.Write(str1,1);

В файле получается вместо числа левый символ.

---

← →
Хазей   (2004-06-16 21:25) [1]

очень нужно узнать

---

← →
YurikGL ©   (2004-06-16 21:27) [2]

str1:="1";

---

← →
Adder ©   (2004-06-16 21:29) [3]

f1.Write(str1[1],1);

---

← →
YurikGL ©   (2004-06-16 21:30) [4]

> YurikGL ©   (16.06.04 21:27) [2]

Чушь сказал, сорри.

str1:Shortstring;

---

← →
YurikGL ©   (2004-06-16 21:31) [5]

> Хазей   (16.06.04 21:25) [1]

Он у тебя записал первый байт указателя адреса начала строки

---

← →
Хазей   (2004-06-16 21:31) [6]

Adder,
пример показательный,str1 может пинимать разные значения

---

← →
Adder ©   (2004-06-16 21:35) [7]

2 Хазей   (16.06.04 21:31) [6]
А проверить?
str1:=inttostr(1332);
f1.Write(str1[1],4);

---

← →
YurikGL ©   (2004-06-16 21:39) [8]

А еще можно {$H-} сделать.

---

← →
Хазей   (2004-06-16 21:43) [9]

Adder ©,спасибо.
Блин,это похоже на маразм

---

← →
Adder ©   (2004-06-16 21:45) [10]

2 YurikGL ©   (16.06.04 21:39) [8] Вы свой совет проверяли?

---

← →
YurikGL ©   (2004-06-16 21:56) [11]

> Adder ©   (16.06.04 21:45) [10]

Проверил. Записывает, но начиная с байта размера.

---

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

Текущий архив: 2004.07.04;
Скачать: CL | DM;

Наверх

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