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

Использование FileWrite   Найти похожие ветки 

← →
Vengrov   (2005-03-16 17:01) [0]

Народ, подскажите, плиз. Что мне указать, чтобы этот код :

..
sCompanyInfo: String;

..
sCompanyInfo := "Здесь обычная строка";
FileWrite (iFileHandle, sCompanyInfo, length(sCompanyInfo));
..
не выдавал из-за второго параметра :
EVariantTypeCastError
Could not convert variant of type (String) into type (Integer)

---

← →
MBo ©   (2005-03-16 17:10) [1]

sCompanyInfo[1]

---

← →
X_Tra ©   (2005-03-16 18:58) [2]

FileWrite не понимает String, лучше PChar или array of Char.
Можно написать так:
FileWrite (iFileHandle, PChar(sCompanyInfo), length(sCompanyInfo));

---

← →
Набережных С. ©   (2005-03-16 20:10) [3]

> X_Tra ©   (16.03.05 18:58) [2]

"Брехня-а-а"©

---

← →
X_Tra ©   (2005-03-16 20:24) [4]

Сколько раз помню, как сталкивался с такой же ошибкой, всегда решалось через PChar, но тут проверил сейчас - действительно работает String!

ЗЫ: ой, это я с MessageBox перепутал...

---

← →
begin...end ©   (2005-03-16 20:27) [5]

> X_Tra ©   (16.03.05 20:24) [4]

- Вода кипит при 90 градусах!
- Нет, при 100!
- Да, извиняюсь. 90 градусов - это прямой угол.

:-)

---

← →
Anatoly Podgoretsky ©   (2005-03-16 21:35) [6]

Vengrov   (16.03.05 17:01)  
Зачем тебе АПИ функция? Есть же Паскалевские текстовые файлы.
Write(F, sCompanyInfo);

---

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

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



Память: 0.46 MB
Время: 0.075 c