Отображение длинного пути файла

Delphi , Файловая система , Файлы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
 Set the label autosize property to false and set the property width 
 to the max. displayed length 
}


   uses
   FileCtrl;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if Opendialog1.Execute then
     label1.Caption := MinimizeName(Opendialog1.FileName,
                                    label1.Canvas, label1.Width);
 end;

Перевод на русский язык:

Код Delphi используется для отображения полного пути файла, когда файл выбран с помощью компонента OpenDialog. Функция MinimizeName используется для укорочения имени файла, если оно превышает ширину компонента Label.

Работа кода происходит следующим образом:

1. Когда кнопка Button1 нажата, процедура Button1Click выполняется.
2. Если пользователь выберет файл с помощью OpenDialog1, то полный путь выбранного файла получается из свойства OpenDialog1.FileName.
3. Функция MinimizeName вызывается с тремя параметрами:
   • OpenDialog1.FileName: это полный путь выбранного файла.
   • label1.Canvas: это свойство Canvas компонента Label1, представляющее поверхность рисования.
   • label1.Width: это ширина компонента Label1, определяющая максимальную длину имени файла для отображения.

Функция MinimizeName укорачивает имя файла, если оно превышает указанную ширину, и возвращает обрезанную строку. Обрезанное имя файла затем присваивается свойству Caption компонента Label1 с помощью label1.Caption := ...

Альтернативное решение использует более надежный способ укорочения имени файла:

uses
  FileCtrl;

function TruncateFileName(const FileName: String; MaxWidth: Integer): String;
begin
  if Length(FileName) > MaxWidth then
    Result := Copy(FileName, 1, MaxWidth - 3) + '...'
  else
    Result := FileName;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    label1.Caption := TruncateFileName(OpenDialog1.FileName, label1.Width);
end;

Альтернативное решение определяет функцию TruncateFileName, которая укорачивает имя файла по указанной максимальной ширине и добавляет эллипсис (...) для обозначения укороченного имени файла. Процедура Button1Click остается такой же, как в оригинальном коде.

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

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Файлы ::