Общая техника использования функций и процедур – получить дату создания файла



Автор: Bramus

Когда я только начал программировать я сталкнулся с огромной проблемой (для меня), в советах из разных источников находил нужные функции и процедуры которые не знал как выполнить, например, по нажатию кнопки. Далее привожу примеры. Надеюсь они будут небесполезны начинающим программистам.

Эта функция при нажатии на Button1 выводит информацию о файле.

unit Unit1;
interface
uses
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

Этот пример функции я привел только для того чтобы посмотреть общую технику выполнения. Вы можете использовать что угодно.


Далее: Передача функции как параметра »»