Использование 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 перепутал...

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

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

:-)

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

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