Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.04.27;
Скачать: CL | DM;

Вниз

Copyfile   Найти похожие ветки 

 
exe2k ©   (2008-04-01 15:41) [0]

Здравствуйте) это снова я с очередным нубским вопросом....
у меня COPYFILE не хочет копировать файлы. ошибок не выдает. "копирует" в существующую папку(это проверяется) но файлов в ней нет.
ProjectFD - глбальная переменная.
{copy}
copyfile(pchar(list.Items.ValueFromIndex[list.ItemIndex+1]),PCHAR(projectFD+"\smile"
+inttostr(lol+1)+".gif"),false);


 
Джо ©   (2008-04-01 15:43) [1]

copyfile — функция.


 
Reindeer Moss Eater ©   (2008-04-01 15:44) [2]

Гетластеррор скажет в чем дело


 
exe2k ©   (2008-04-01 15:52) [3]

извините..я вобще чето туплю сегодня(( разобрался , проблема в том что у меня код который выше шел в цикле.
проблема с переменной LoL. она не увеличивалась, и с самим циклом.
исправил:
for cnt := 0 to list.Items.Count-1 do begin
{copy}
lol:=lol+1;
copyfile(pchar(list.Items.strings[list.ItemIndex+1]),PCHAR(projectFD+"\smile"
+inttostr(lol)+".gif"),True);
pb.Position := pb.Position +1;
end;


 
Reindeer Moss Eater ©   (2008-04-01 15:55) [4]

мда.....

if copyfile(....) then inc(lol)


 
exe2k ©   (2008-04-01 15:58) [5]

да знаю я что нуб)))



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

Текущий архив: 2008.04.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
2-1206550287
SysError
2008-03-26 19:51
2008.04.27
как программно изменить цвет кисти в mspaint.exe


15-1205071921
oleg_teacher
2008-03-09 17:12
2008.04.27
Орешник


2-1207142296
Res
2008-04-02 17:18
2008.04.27
цвет пикселя


2-1206715368
gefest80
2008-03-28 17:42
2008.04.27
перерисовка экрана


2-1207054711
asdf2
2008-04-01 16:58
2008.04.27
Не получается сделать запрос IB6.5