III. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ФАЙЛАМИ
4. Функции и процедуры для работы с именем файла
Функция MinimizeName ( const FileName: TFileName; Canvas: TCanvas; MaxLen: Integer ): TFileName;
Данная функция поддерживается только в Delphi 4
Модуль: FileCtrl
type TFileName = type string;
ОписаниеФункция проверяет, умещается ли имя файла FileName в размер MaxLen холста Canvas при выводе на экран. Если имя файла при выводе на холст не умещается в заданный размер, то функция заменяет часть пути многоточием.
Пример var S: string; begin with Image1 do
begin Width:= 140; Height:=100; S:= 'С:\DIR1\DIR2\DIR3\DIR4\DIR5\DIR6\myfile.zzz'; S:= MinimizeName(S, Canvas, Width); { S:= 'С\...\DIR5\DIR6\myfile.zzz' } Canvas.TextOut(0, 0, S); end;
end;
[Вернуться к содержанию]