VPF::Вызов события через промежуток времени

Toshax

Дата 11.6.2009, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 14.11.2006

Репутация: нет
Всего: нет

Доброго времени суток. Возник вопрос как вызывать код при нажатии кнопки через определенный промежуток времени автоматически?

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 F: TSearchRec;
 fname: ansistring;
 fname2: ansistring;
 fname3: ansistring;
 fname4: ansistring;
 fname5: ansistring;
 S, S2, str, str3: ansistring;
 fn2, fn3: PAnsiChar;
begin
   if FindFirst('C:\WebServers\home\test1.ru\www\forms_sh\files\out\*.xml',  faAnyFile, F)=0 then
  begin
   Memo1.Lines.Add(F.Name);
  
   //while FindNext(F) = 0 do Memo1.Lines.Add(F.Name);
   while FindNext(F) = 0 do
   begin
   fname := F.Name;
   fname2 := 'c:\WebServers\home\test1.ru\www\forms_sh\files\in\';
   fname3 := '.doc';
   fname4 := 'in_';
   fname5 := 'c:\WebServers\home\test1.ru\www\forms_sh\files\out\';
   S2 := fname5 + fname;
   fn3 := PAnsiChar(S2);
   str := F.Name;
   Delete(str, 37, 4);    // Удаление 37-го, 38-го, 39-го и 40-го символов
   Memo1.Lines.Add('Удалили расширение файла: '+str);
   str3 := str;
   Delete(str3, 1, 4);    // Удаление 1-го, 2-го, 3-го и 4-го символов
   Memo1.Lines.Add('Удалили начало файла: '+str3);
   S := fname2+fname4+str3+fname3;
   //Memo1.Lines.Add(S);
   fn2:= PAnsiChar(S);
   Memo1.Lines.Add('Конечный путь и имя файла: '+fn2);

   if CopyFile('c:\WebServers\home\test1.ru\www\forms_sh\files\in\reports\report.doc', fn2, true) then
   begin
     Memo1.Lines.Add('Файл скопирован успешно!');
     DeleteFile(fn3);
     Memo1.Lines.Add('Удалили файл.!'+fn3);
     end
     //ShowMessage('Файл успешно скопирован!')
   else
     Memo1.Lines.Add('Файл уже существует, либо невозможно скопировать.!');
  end;
  Memo1.Lines.Add('   ');
  //DeleteFile(fn3);
  //Memo1.Lines.Add('Удалили файл.!'+fn3);
  end;

 FindClose(F);
 DeleteFile(fn3);
end;

end.

То есть, как код находящийся в procedure TForm1.Button1Click(Sender: TObject); запускать скажем с периодичностью в 10 секунд?

Заранее спасибо.

Это сообщение отредактировал(а) Toshax - 11.6.2009, 16:36

bems

Дата 11.6.2009, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

TTimer

--------------------

Обижено школьников: 8

Toshax

Дата 11.6.2009, 17:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 14.11.2006

Репутация: нет
Всего: нет

Я понимаю что Таймер, а более конкретно можно. Пример. Или хоть на пальцах объяснить. Не селен я...

Соврал. Разобрался. Повесил таймер указал событием нажатие кнопки и выставил интервал в 10 секунд. Работает.

Цитата

bems

за совет

Это сообщение отредактировал(а) Toshax - 11.6.2009, 17:47

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »