|
#1
|
|||
|
|||
Работа с файлами
Ребят я только недавно пробывать кодить на делфи такчто тапками мну небить Вообшем пытаюсь скодить самый простой файл менеджер коекакие успехи есть но далеко не идеал , проблема в том что половина его функций нерабоатют : кпримеру я немогу открыть диалоговывые окна и т.д.Зато заместо удаления файла он его копирует
Вот мой код : Код:
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. Помогите разобраться , укажите пожалуйсто мои явные ошибки ... ну если несложно подскажите как исправить Заранее всем сенкс |
#2
|
|||
|
|||
Ссылка приводит на upload - файла там, естественно, нет.
И зачем этот ущербный zalil.ru, когда есть нород.диск (http://narod.yandex.ru/) с возможностью закачки файлов до 5 Гб. Не забывайте делать резервные копии |
#3
|
|||
|
|||
Для начала берем пару книжек. Точнее нужны 3 шт или одна по Дельфе, но хорошая. Собственно, о чем надо почитать:
1. Естественно, собственно Дельфи. 2. Принципы ООП. 3. Алгоритмы и структуры даных. Собственно, обычно в подобных книгах пишут о том КАК надо писать код, ну и в довесок часто употребляющиеся алгоритмы. Ну и, конечно, внимательно читваем справку по дельфи. Файловые функции: CopyFile MoveFile RenameFile DeleteFile Думаю, по названию понятно что они делают. В справке читаем про их ограничения. Например, для переименования/перемещения файла я написал свою обертку, которая сначала пытается переименовать файл, а если у нее не получилось, то скопировать и исходник удалить. Еще тебе могут потребоваться следующие функции: mkdir rmdir (кажется так, пишу по памяти) - работа с папками. Не забудь, что для удаления папки, она должна быть пуста. ЗЫ. Для самых умных. Да, я знаю, что есть еще Shell Operations, но для новичка это слишком сложно, да и не всегда эта штука стабильно работает из под Дельфи. Точнее, работает она всегда, но как-то попал на то, что не освобождает обработанные файлы. Почему - не понял, так что плюнул и переписал на те функции, что перечислены вверху. А для файлового менеджера стабильность и безглючность файловых операций критична. |
#4
|
|||
|
|||
В данный момент у меня есть книга для нубов Иллюстрированный самоучитель по Delphi 7 для начинающих в ней немного рассказуют о циклах,массивах ..там немного вообшем.И есть книжка Delphi. Учимся на примерах по которой я сообственно и пытался смастерить етот убогий файл менеджер.
Уважаемый lmikle , неподскажите пожалуйста еще хорошей литературы нашет алгоритмов , чтоб понятно было даж ослу ps http://narod.ru/disk/3963586000/file%20manager.rar.html вот перезалил исходник |
#5
|
|||
|
|||
На вскидку не подскажу книжку. В принципе, если не пугает С/С++, то можно брать любую. По базовым алгоритмам была книжка Скота Меерса кажется. Так и называлась - "Готовые алгоритмы на Delphi" (там,типа для 3-й версии, но они одинаковые, так что тут на версию можно не смотреть).
Собственно, замечание к твоему коду - очень большая процедура, которая делает все. Так писать не надо - тяжело писать и отлаживать. Лучше делать процедурки небольшие, делающие 1 действие. По поводу файл-менеджера. В примерах к Дельфи есть такий, Если что, можно смотреть еще туда. |