Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];
ВнизИспользование 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 вся ветка
Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.063 c