Создать собственный класс

[Есимжан]

Дано класс Видео файл. И свойства видеоскорость,аудиоскорость,видеока чества и длительность. как написать в делфи??

[Stilet]

Видимо так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TVideoFile }

  TVideoFile=class
  private
    FAudioSpeed: Integer;
    FDist: Integer;
    FVideoProp: Integer;
    FVideoSpeed: Integer;
    procedure SetAudioSpeed(AValue: Integer);
    procedure SetDist(AValue: Integer);
    procedure SetVideoProp(AValue: Integer);
    procedure SetVideoSpeed(AValue: Integer);
  published
    property VideoSpeed:Integer read FVideoSpeed write SetVideoSpeed;
    property AudioSpeed:Integer read FAudioSpeed write SetAudioSpeed;
    property VideoProp:Integer read FVideoProp write SetVideoProp;
    property Dist:Integer read FDist write SetDist;
  end;

  TForm1 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TVideoFile }

procedure TVideoFile.SetAudioSpeed(AValue: Integer);
begin
  if FAudioSpeed=AValue then Exit;
  FAudioSpeed:=AValue;
end;

procedure TVideoFile.SetDist(AValue: Integer);
begin
  if FDist=AValue then Exit;
  FDist:=AValue;
end;

procedure TVideoFile.SetVideoProp(AValue: Integer);
begin
  if FVideoProp=AValue then Exit;
  FVideoProp:=AValue;
end;

procedure TVideoFile.SetVideoSpeed(AValue: Integer);
begin
  if FVideoSpeed=AValue then Exit;
  FVideoSpeed:=AValue;
end;

end.