Текущий архив: 2007.11.18;
Скачать: CL | DM;
Вниз
Поиск файлов Найти похожие ветки
← →
F@T@L_Err0r © (2007-10-29 10:54) [0]Здравствуте Ув.У меня такая проблема почему то в переменной 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)
← →
Ega23 © (2007-10-29 11:01) [1]
> Copy Bed
Это чё? "Копия кровати?" Или "Кроватная копия"?
← →
sniknik © (2007-10-29 11:03) [2]подозрение что это бот... ну не может человек быть настолько неспособным к обучению...
http://delphimaster.net/view/2-1193292166/
Страницы: 1 вся ветка
Текущий архив: 2007.11.18;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
