TFileNameRec

type TFileNameRec = record

public

  FullFileName: string;

  ShortFileName: string;

  BaseFileName: string;

  Directory: string;

  Path: string;

  ExtensionWithDot: string;

  ExtensionWithoutDot: string;

  procedure AssignFileName();

  procedure Clear;

  function AsString();

end;