![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 15.06.2012
Сообщений: 11
|
![]()
Всем привет! Помогите плиз как мне теперь удалить файл показанных в RichEdit1.Lines
код unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl, ExtCtrls, ComCtrls, mFileScan; type TForm1 = class(TForm) Button1: TButton; RichEdit1: TRichEdit; Label1: TLabel; Button2: TButton; Button3: TButton; mFileScan1: TmFileScan; btn1: TButton; procedure Button1Click(Sender: TObject); procedure mFileScan1FileFound(Sender: TObject; FileName: String); procedure mFileScan1Ready(Sender: TObject; SearchResult: TStringList); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private NoOfFiles: integer; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin mFileScan1.Paths.Text; mFileScan1.Filters.Clear; begin mFileScan1.Filters.Add('*.ppt'); end; Button1.Caption:= 'Èùåì...'; RichEdit1.Clear; NoOfFiles:= 0; mFileScan1.Start; end; procedure TForm1.mFileScan1FileFound(Sender: TObject; FileName: String); begin RichEdit1.Lines.Add(FileName); Inc(NoOfFiles); Label1.Caption:= IntToStr(NoOfFiles) + ' íàéäåíî'; end; procedure TForm1.mFileScan1Ready(Sender: TObject; SearchResult: TStringList); begin Label1.Caption:= Label1.Caption + ' - ñìîòðè'; Button1.Caption:= 'Íàéòè'; end; procedure TForm1.Button2Click(Sender: TObject); begin mFileScan1.Pause; end; procedure TForm1.Button3Click(Sender: TObject); begin mFileScan1.Resume; end; end. |
![]() |
![]() |
![]() |
#2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
FileName - это только имя или полный путь?
I'm learning to live...
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 15.06.2012
Сообщений: 11
|
![]()
Это полный путь
|
![]() |
![]() |
![]() |
#4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Тогда:
Код:
I'm learning to live...
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 15.06.2012
Сообщений: 11
|
![]()
а как мне i объявить?
|
![]() |
![]() |
![]() |
#6 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
![]()
i : integer или word
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 15.06.2012
Сообщений: 11
|
![]()
спасибо большое получилось
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 15.06.2012
Сообщений: 11
|
![]()
Получилось, но почему то некоторые файлы не удаляются
|
![]() |
![]() |
![]() |
#9 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Наверное открытые.
I'm learning to live...
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Удаление файлов | Bat{CMD}_Men | Помощь студентам | 1 | 21.03.2010 15:40 |
удаление файлов | Leo20 | Общие вопросы Delphi | 5 | 22.11.2009 08:22 |
Удаление файлов | Liones | Общие вопросы Delphi | 9 | 20.05.2009 13:29 |
Удаление, файлов | Vladya | Помощь студентам | 4 | 22.12.2008 22:40 |
Удаление файлов | Amery | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 04.05.2008 14:46 |