Разработать класс с полями определенных типов.Разработать в классе два метода для вычисления или оформления операций.В классе должен быть конструктор.
В Паскале АВС
1. Класс FileNameClass
2. Имя,расширение, путь к нему
3. Метод выводит на экран тип файла (текстовый,графический или видео)
4. Метод выводит на экран имя в 10-кратном размере
Ответы
Ответ дал:
0
// 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 p>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.NETdemo.bmp
demo
Файл графический
"Десятикратный размер", который Вы не соизволили объяснить, сделаете сами, когда поймете, что это.
// Внимание! Если программа не работает, обновите версию!
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 p>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.NETdemo.bmp
demo
Файл графический
"Десятикратный размер", который Вы не соизволили объяснить, сделаете сами, когда поймете, что это.
Ответ дал:
0
[2:] - срез строки, начиная со второго символа, поскольку в Паскале функция ExtractFileExt() возвращает расширение, начинающееся с точки и её надо пропустить.
Вас заинтересует
5 лет назад
5 лет назад
8 лет назад
8 лет назад
8 лет назад