[warlok]

Ребят я только недавно пробывать кодить на делфи такчто тапками мну небить Вообшем пытаюсь скодить самый простой файл менеджер коекакие успехи есть но далеко не идеал , проблема в том что половина его функций нерабоатют : кпримеру я немогу открыть диалоговывые окна и т.д.Зато заместо удаления файла он его копирует
Вот мой код :

Код:

unit Unit1;

interface

uses
 Windows,Controls,Messages, SysUtils, Variants, Classes, Graphics,
Forms, Dialogs, StdCtrls, ShellAPI, Gauges;

type
 TForm1 = class(TForm)
    from: TEdit;
    where: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button2: TButton;
    Button3: TButton;
    Open1: TOpenDialog;
    Save1: TSaveDialog;
    Button4: TButton;
    Del: TEdit;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
    procedure doit;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

                   procedure TForm1.doit();
var
f1, f2 : file of Byte; //Работа с первым и вторым файлом
cop: Byte; //Для побайтового копирования
sizes: LongInt; //Хранит размер файла
begin
{$I-} //Отключаем директиву, которая отслеживает ошибки ввода/вывода
try //Начало блока обработки исключений
//Связываем файловую переменную fl с первым файлом
AssignFile(f1, from.Text);
//Связываем файловую переменную f2 со вторым файлом
AssignFile(f2, where.Text);
Reset(f1); //Открываем первый файл на чтение
sizes := Trunc(FileSize(f1));
Label4.Caption := IntToStr(sizes div 1024) + 'Кб';
Rewrite(f2);
while not Eof(f1) do
begin
BlockRead(f1, cop , 1);
BlockWrite(f2,cop,1);
end;
CloseFile(f1);
CloseFile(f2);
finally;
end;
if IOResult <> 0
then MessageDlg('Ошибка при копировании файла',mtError, [mbOk],0)
else begin
ShowMessage('Успешно скопировано');
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 doit;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
 if Open1.Execute then from.Text := Open1.FileName
 else ShowMessage('Файл открыт');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
 if Save1.Execute then where.Text := Save1.FileName
 else
 ShowMessage('Вы не выбрали место для сохранения файла');
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
 doit;
 DeleteFile(from.Text);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
 if Open1.Execute then del.Text := Open1.FileName
 else ShowMessage('Файл не был выбран');
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
 DeleteFile(del.Text);
 if not FileExists(del.Text)
 then
 ShowMessage('Файл был удален');

end;


end.

или вот полностью мои исходники : http://zalil.ru/upload/26362544
Помогите разобраться , укажите пожалуйсто мои явные ошибки ... ну если несложно подскажите как исправить
Заранее всем сенкс

[san-46]

Ссылка приводит на upload - файла там, естественно, нет.
И зачем этот ущербный zalil.ru, когда есть нород.диск (http://narod.yandex.ru/) с возможностью закачки файлов до 5 Гб.

[lmikle]

Для начала берем пару книжек. Точнее нужны 3 шт или одна по Дельфе, но хорошая. Собственно, о чем надо почитать:
1. Естественно, собственно Дельфи.
2. Принципы ООП.
3. Алгоритмы и структуры даных. Собственно, обычно в подобных книгах пишут о том КАК надо писать код, ну и в довесок часто употребляющиеся алгоритмы.

Ну и, конечно, внимательно читваем справку по дельфи.
Файловые функции:
CopyFile
MoveFile
RenameFile
DeleteFile
Думаю, по названию понятно что они делают. В справке читаем про их ограничения. Например, для переименования/перемещения файла я написал свою обертку, которая сначала пытается переименовать файл, а если у нее не получилось, то скопировать и исходник удалить.

Еще тебе могут потребоваться следующие функции:
mkdir
rmdir
(кажется так, пишу по памяти) - работа с папками. Не забудь, что для удаления папки, она должна быть пуста.

ЗЫ. Для самых умных. Да, я знаю, что есть еще Shell Operations, но для новичка это слишком сложно, да и не всегда эта штука стабильно работает из под Дельфи. Точнее, работает она всегда, но как-то попал на то, что не освобождает обработанные файлы. Почему - не понял, так что плюнул и переписал на те функции, что перечислены вверху. А для файлового менеджера стабильность и безглючность файловых операций критична.

[warlok]

В данный момент у меня есть книга для нубов Иллюстрированный самоучитель по Delphi 7 для начинающих в ней немного рассказуют о циклах,массивах ..там немного вообшем.И есть книжка Delphi. Учимся на примерах по которой я сообственно и пытался смастерить етот убогий файл менеджер.
Уважаемый lmikle , неподскажите пожалуйста еще хорошей литературы нашет алгоритмов , чтоб понятно было даж ослу
ps http://narod.ru/disk/3963586000/file%20manager.rar.html вот перезалил исходник

[lmikle]

На вскидку не подскажу книжку. В принципе, если не пугает С/С++, то можно брать любую. По базовым алгоритмам была книжка Скота Меерса кажется. Так и называлась - "Готовые алгоритмы на Delphi" (там,типа для 3-й версии, но они одинаковые, так что тут на версию можно не смотреть).

Собственно, замечание к твоему коду - очень большая процедура, которая делает все. Так писать не надо - тяжело писать и отлаживать. Лучше делать процедурки небольшие, делающие 1 действие.

По поводу файл-менеджера. В примерах к Дельфи есть такий, Если что, можно смотреть еще туда.