| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Copyfile [D7, XP]
exe2k © (2008-04-01 15:41:00)Здравствуйте) это снова я с очередным нубским вопросом....
у меня COPYFILE не хочет копировать файлы. ошибок не выдает. "копирует" в существующую папку(это проверяется) но файлов в ней нет.
ProjectFD - глбальная переменная.
{copy}
copyfile(pchar(list.Items.ValueFromIndex[list.ItemIndex+1]),PCHAR(projectFD+'\smile'
+inttostr(lol+1)+'.gif'),false);
exe2k (2008-04-01 15:58:00) [1]да знаю я что нуб)))
Reindeer Moss Eater (2008-04-01 15:55:00) [2]мда.....
if copyfile(....) then inc(lol)
exe2k (2008-04-01 15:52:00) [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:44:00) [4]Гетластеррор скажет в чем дело
Джо (2008-04-01 15:43:00) [5]copyfile — функция.
| |
