Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
4-1108465992
Endy
2005-02-15 14:13
2005.03.27
Как вывести постороннее окно на передний план?


1-1110540052
Володя
2005-03-11 14:20
2005.03.27
ProcessTerminate


6-1106773623
MadGhost
2005-01-27 00:07
2005.03.27
как сделать маскарадинг? или SNAT с помощью ServerSocket и Client


14-1110281620
Свердликовский Михаил
2005-03-08 14:33
2005.03.27
Заработок на Freeware


1-1110983578
hgd
2005-03-16 17:32
2005.03.27
Прервать onclose





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский