Delphi - [решено] Присвоение имени из ComboBox при копировании файла

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Delphi - [решено] Присвоение имени из ComboBox при копировании файла

OkSherd

Новый участник

Сообщения: 11
Благодарности: 1

Профиль | Отправить PM | Цитировать

Доброго времени суток! Подправте пожалуйста код:

Код:

CopyFile(PChar(Memo1.Text),'d:\'+ ComboBox1.Text + ComboBox2.Text +  ComboBox3.Text + ComboBox4.Text + ComboBox5.Text + '.' + ComboBox6.Text,False);

что бы при копировании файла из директории, выбраной в поле Memo в директорию d:\ присваивалось имя файлу из полей ComboBox1-6.
При компиляции выдает ошибку "Несовместимые типы 'strsng' и 'PWideChar'" что вполне логично, а вот как их совместить увы не знаю, разные вариации на угад не принесли желаемого результата.

Отправлено: 13:07, 07-09-2011

LilLoco

В Поисках Истины

Сообщения: 802
Благодарности: 135

Профиль | Отправить PM | Цитировать

OkSherd, Попробуйте так:

Код:

CopyFile(PChar(Memo1.Text),PChar('d:\'+ ComboBox1.Text + ComboBox2.Text +  ComboBox3.Text + ComboBox4.Text + ComboBox5.Text + '.' + ComboBox6.Text),False);

-------
foreach(short w in new short[] {73,3,79,83,90,79,78,69}){
Console.Write((char)w);
}