| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поиск файлов [D7, XP]
F@T@L_Err0r © (2007-10-29 10:54:00)Здравствуте Ув.У меня такая проблема почему то в переменной link после присваивания получается что то типа C:\Dir\..Filename.txt. Как мне избавится от '..' .В s находится значение edit1.text.
Procedure CopyFiles(S:String);
var F:TSearchRec;
Link,from,temp:string;
begin
link:=s;
if FindFirst(s+'*.*',faAnyFile,f)=0 then
begin
while FindNext(f)=0 do
begin
temp := f.Name;
link:=link+temp;
from:='C:\1\'+f.Name;
form1.label1.caption := link;
if CopyFile(PChar(link),PChar(from),false) then ShowMessage('Copy Good')
else ShowMessage('Copy Bed');
FindClose(f)
sniknik (2007-10-29 11:03:00) [1]подозрение что это бот... ну не может человек быть настолько неспособным к обучению...
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1193292166&n=18
Ega23 (2007-10-29 11:01:00) [2]
> Copy Bed
Это чё? "Копия кровати?" Или "Кроватная копия"?
| |
