Форум: "Начинающим";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];

Вниз

Поиск файлов   Найти похожие ветки 

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.117 c