Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Май

ListView для отображения информации о файлах

Posted by Chas under Delphi, Исходники

Alter
Пример:

unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ComCtrls;
const

  ExtF :array[0..5] of string = ('pif', 'exe', 'lnk', 'com', 'avi', '[Папка]');
type

  TForm1 = class(TForm)

    ListView1: TListView;

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure ListView1DblClick(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);

var

  N :Byte;

  Itm :TListItem;

begin // генерируем строку имени "файла/папки"

 Itm := ListView1.Items.Add;

 if Assigned(Itm) then

 begin

   N := Random(Length(ExtF));

   with Itm do

   begin

     Caption := IntToHex(Random(4096), 8);

       // расширение

     if N < 5 then
      SubItems.Add(ExtF[N]) // file
     else
      SubItems.Add(''); // dir
       // размер
     if N < 5 then
      SubItems.Add(IntToStr(10000)) // file
     else
      SubItems.Add(ExtF[N]); // dir
   end;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin // очищаем
 ListView1.Items.Clear;
end;

procedure TForm1.ListView1DblClick(Sender: TObject);
var
  S :string;
  Itm :TListItem;
begin // "запускаем"
 Itm := ListView1.Selected;
 if Assigned(Itm) then
 begin
   if CompareText(Itm.SubItems[1], ExtF[High(ExtF)]) <> 0 then

   begin

     S := Format('%s.%s', [Itm.Caption, itm.SubItems[0]]);

     ShowMessage('Файл: "'+S+'"');

   end

    else

   begin

     ShowMessage('Это папка');

   end;

 end

  else

 ShowMessage('Не выбран файл/папка');

end;
end.