Когда я только начал программировать я сталкнулся с огромной проблемой (для меня), в советах из разных источников находил нужные функции и процедуры которые не знал как выполнить, например, по нажатию кнопки. Далее привожу примеры. Надеюсь они будут небесполезны начинающим программистам.
Эта функция при нажатии на Button1 выводит информацию о файле.
unit Unit1;
interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private{ Private declarations }public{ Public declarations }end;
function GetFileDate(TheFileName: string): string; // эта строка необязательнаvar
Form1: TForm1;
implementation{$R *.dfm}function GetFileDate(TheFileName: string): string;
var
FHandle: integer;
begin
FHandle := FileOpen(TheFileName, 0);
result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
FileClose(FHandle);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := GetFileDate("C:\borland.exe");
end;
end.
также пользоваться и procedure
Этот пример функции я привел только для того чтобы посмотреть общую технику выполнения. Вы можете использовать что угодно.
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Общая техника использования функций и процедур – получить дату создания файла", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!