Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Пустая переменная [D7, XP]

Страницы: < 1 2
F@T@L_Err0r © (2007-10-25 10:02:00)
Здравствуйте.Подкажите пожалуйста где ошибка.Парюсь уже два дня не могу понять почему переменная link после присваивания ей значения остается пустой?Вот код:
Procedure CopyFiles(S:String);
var F:TSearchRec;
Link,from:string;
begin
if FindFirst(s,faanyfile,f)=0 then
begin
while FindNext(f)=0 do
begin
link:=ExtractFilePath(f.Name);
if CopyFile(PChar(link),PChar(from),false) then ShowMessage('Copied')
else ShowMessage('Not Copy');
end;

clickmaker (2007-10-25 10:27:00) [21]

> [7] F@T@L_Err0r © (25.10.07 10:14)
> В S находится значение Edit1.text

да ты чё? ну тогда все ясно

Серьезно, если в s - путь к папке, то полный путь = s + '\' + f.Name

F@T@L_Err0r (2007-10-25 10:17:00) [22]
У меня там s+*.*...А как отрезать ето я не знаю...Что то там Copy...??

stone (2007-10-25 10:14:00) [23]
зачем тебе его получать, если ты его передаешь?
> if FindFirst( s

F@T@L_Err0r (2007-10-25 10:14:00) [24]
В S находится значение Edit1.text.

clickmaker (2007-10-25 10:13:00) [25]

> как можно получить полный путь для копирования

а в S что?

F@T@L_Err0r (2007-10-25 10:12:00) [26]
Ну ето все панятна...Исправил...Но почему же всетаки переменная link остается пустой???
И F@T@L_Err0r © (25.10.07 10:08) [2] ???

stone (2007-10-25 10:09:00) [27]
ошибок вагон
1. Как ты думаешь, какие файлы будут при faanyfile?
2. if FindFirst(s,faanyfile,f)=0 then
begin
while FindNext(f)=0 do
при таком коде ты первый файл игнорируешь, сразу переходя к следующему

Ins (2007-10-25 10:09:00) [28]
Да у вас и связочка FindFirst-FindNext неправильная. Во-первых, пропускате первый найденный, а во вторых - забываете про FindClose

F@T@L_Err0r (2007-10-25 10:08:00) [29]
А ето ваще пробный пример.а как можно получить полный путь для копирования из F,и как копировать папку?

clickmaker (2007-10-25 10:05:00) [30]
а с чего бы в f.Name должен быть полный путь?
И как ты собирался копировать папкуфункцией Copy File?

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »