Создать класс с полями определенных типов.Создать в классе два метода для

Создать класс с полями определенных типов.Создать в классе два способа для вычисления либо дизайна операций.В классе обязан быть конструктор.
В Паскале АВС
1. Класс FileNameClass
2. Имя,расширение, путь к нему
3. Способ выводит на экран тип файла (текстовый,графический либо видео)
4. Способ выводит на экран имя в 10-кратном размере

Задать свой вопрос
Илья
можно PascalABC.Net
Анна Потупалова
Имя,расширение, путь к нему это и есть поля
Вероника Вушке
конструктор только делает объект
Владислав Резенберг
Сделаете?
1 ответ
// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программка не работает, обновите версию!

type
  FileNameClass=class
 
  public
 
  fullpath:string;
  name:string;
  extension:string;
  path:string;
 
  constructor (fp:string);
  begin
    fullpath:=fp;
    name:=ExtractFileName(fp);
    var p:=LastPos('.',name);
    if pgt;0 then name:=name[:p];
    extension:=ExtractFileExt(fp);
    path:=ExtractFilePath(fp)
  end;
 
  procedure PutType;
  begin
    case extension[2:] of
    'txt':Writeln('файл текстовый');
    'bmp','jpg','tiff','gif','psd','png','ico':Writeln('Файл графический');
    'mp4','mov','mpg','avi':Writeln('Файл видео')
    else Writeln('Файл безызвестного типа')
    end
  end;
 
  procedure PutName;
  begin
    Writeln(name)
  end;
    
end;

begin
  var oFile:=new FileNameClass(ReadlnString('Полный путь к файлу:'));
  oFile.PutName;
  oFile.PutType;
  oFile:=nil // если надобно очевидно удалить объект
end.

Пример
Полный путь к файлу: PABCWork.NET\demo.bmp
demo
Файл графический

"Десятикратный размер", который Вы не изволили разъяснить, сделаете сами, когда поймете, что это.
Илюша Копанин
case extension[2:] of а что это означает?
Щедрин-Киселев Борис
спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт