[Alexandrine]

Подскажите пожалуйста, кому не в лом...
Я из ListBox копирую файлы в папку на 'С\Base\' + ID, который я беру из базы...Происходит следующее: когда в ListBox указано несколько файлов, копирование происходит успешно и в нужную папку, а когда только один файл-происходит что-то непонятное, что я делаю не так?

Код: from1,2 - типа string
fmAttachement.ListBox1.Count>0 then
begin
From1:=fmAttachement.ListBox1.Items.Strings[0];
for i := 1 to fmAttachement.ListBox1.Count-1 do
From1:=From1 + #0 + fmAttachement.ListBox1.Items.Strings[i];
From1:=From1 + #0 + #0;
From2:='C:\Base\' + dmMy.TBLRequestsID.AsString;

with SHFileOpStruct do
begin
Wnd := Handle;
wFunc := FO_Copy;
pFrom := PChar(From1);
pTo := PChar(From2);
fFlags := FOF_NOCONFIRMMKDIR;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
SHFileOperation( SHFileOpStruct );
end;

[Майняк]

Нажмите в сообщении на иконку 'Быстрый ответ' для активации этой опции.
Это баг движка форума. Не я писал эти строки(выше). Админ, я уже заждался ждять позитива по поводу сообщений...Это я писал во флейме..

А теперь к делу:
представляю ЧТО там у тебя присходит.
"for i := 1 to fmAttachement.ListBox1.Count-1 do"
заметка: i:=0!
С "нуля" цикл начинай

Оффтоп:
Поставь аватар со своей фоткой

[Alexandrine]

Спасибки, БОЛЬШУЩЕЕ!!!
ТАКИЕ ошибки как закономерность не вижу в упор