|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Исправьте пожалуйста
Господа подскажите что не так в коде:
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SHFolder, ShlObj; type TForm1 = class(TForm) Button1: TButton; CheckBox1: TCheckBox; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function GetSpecialFolderPath(folder : integer) : string; const SHGFP_TYPE_CURRENT = 0; var path: array [0..MAX_PATH] of char; begin if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then Result := path else Result := ''; end; procedure TForm1.Button1Click(Sender: TObject); var searchResult:TSearchRec; A:string; begin if checkbox1.Checked=true then begin if FindFirst(A+'\*.jpg', faAnyFile, searchResult) = 0 then begin repeat MoveFile (PAnsiChar(A+'\'+searchResult.Name),PAnsiChar(A+'\'+edit1.text+'\'+searchResult.Name)); until FindNext(searchResult) <> 0; FindClose(searchResult); end; end; end; end. end; end; end. Последний раз редактировалось Acid_Burn123, 28.11.2011 в 14:33. |
#2
|
||||
|
||||
Отформатируй, невозможно читать такую письменность.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
Цитата:
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#4
|
||||
|
||||
просто другой код вырезал этот оставил забыл убрать его окончания=)
ну так что...какие в коде ошибки естЬ???есть варианты почему не работает(т.е. не перемещает?) Последний раз редактировалось Acid_Burn123, 28.11.2011 в 18:39. |
#5
|
||||
|
||||
PAnsiChar
Версия Delphi какая? Если 2009+, то нужен PWideChar. Или, что более универсально (будет работать независимо от версии) - просто PChar. И, да, если Windows Vista/7, приложение запускается от имени администратора? У пользователя есть право записи в исходную и конечную папки? Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#6
|
||||
|
||||
Delphi 7 Windows XP SP3.Запускаеться под учеткой админа.Права есть=)
|
#7
|
||||
|
||||
А что-то я не вижу, где у тебя переменная A задаётся...
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#8
|
||||
|
||||
ух ты блин=),точно,надо было обозначить
Код:
A:=GetSpecialFolderPath(CSIDL_DESKTOPDIRECTORY); Ткните Носом меня в ошибку допустимую мною в моей программе,из приведенного мною примера кода(отрывка) думал пойму в чем ошибка,окозалось - нет. P.S. Уже вторую неделю маюсь,подскажите в чем проблема? |
#9
|
||||
|
||||
Цитата:
Может расцветка тебе о чем то скажет http://i32.fastpic.ru/big/2011/1128/...615c02f1ee.png 333, 334 строки — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 28.11.2011 в 20:36. |
#10
|
||||
|
||||
мммммммм,извини,ничего не сказала=)предложишь вариант исправления?
|
#11
|
|||
|
|||
2 begin'а
Проверь логику. |
#12
|
||||
|
||||
убрал 2 begin'а в этом месте(думаю про это вы говорили) :
Код:
if checkbox10.checked=true then begin begin |