[Acid_Burn123]

Господа подскажите что не так в коде:

Код:

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.

файл с расширением .jpg не перемещается(в едит я задаю уже существующую папку)исправьте пожалуйста...

[M.A.D.M.A.N.]

Отформатируй, невозможно читать такую письменность.

[PhoeniX]

Код:

end;
end.
end;

end;
end.

Это что за индус писал?

[Acid_Burn123]

просто другой код вырезал этот оставил забыл убрать его окончания=)
ну так что...какие в коде ошибки естЬ???есть варианты почему не работает(т.е. не перемещает?)

[PhoeniX]

PAnsiChar
Версия Delphi какая? Если 2009+, то нужен PWideChar. Или, что более универсально (будет работать независимо от версии) - просто PChar.
И, да, если Windows Vista/7, приложение запускается от имени администратора? У пользователя есть право записи в исходную и конечную папки?

[Acid_Burn123]

Delphi 7 Windows XP SP3.Запускаеться под учеткой админа.Права есть=)

[PhoeniX]

А что-то я не вижу, где у тебя переменная A задаётся...

[Acid_Burn123]

ух ты блин=),точно,надо было обозначить

Код:

A:=GetSpecialFolderPath(CSIDL_DESKTOPDIRECTORY);

не буду создавать новый топик,оставлю здесь...
Ткните Носом меня в ошибку допустимую мною в моей программе,из приведенного мною примера кода(отрывка) думал пойму в чем ошибка,окозалось - нет.

P.S. Уже вторую неделю маюсь,подскажите в чем проблема?

[M.A.D.M.A.N.]

Сообщение от Acid_Burn123

ух ты блин=),точно,надо было обозначить

Код:

A:=GetSpecialFolderPath(CSIDL_DESKTOPDIRECTORY);

не буду создавать новый топик,оставлю здесь...
Ткните Носом меня в ошибку допустимую мною в моей программе,из приведенного мною примера кода(отрывка) думал пойму в чем ошибка,окозалось - нет.

P.S. Уже вторую неделю маюсь,подскажите в чем проблема?

Китайский код детектед. Пипец у тебя вырвиглазовый код (хоть на баш не отправляй), его можно минимум раз в 70 сократить.
Может расцветка тебе о чем то скажет http://i32.fastpic.ru/big/2011/1128/...615c02f1ee.png
333, 334 строки

[Acid_Burn123]

мммммммм,извини,ничего не сказала=)предложишь вариант исправления?

[lmikle]

2 begin'а
Проверь логику.

[Acid_Burn123]

убрал 2 begin'а в этом месте(думаю про это вы говорили) :

Код:

if checkbox10.checked=true then
begin
begin

результат=0(такой же)...