Tablica zadań z parametrami

0
task type Zadanie (id:Integer);

Jak utworzyć tablice zadań nadając jednocześnie wartości parametrom ?

0

Dział Inne więc rozumiem że może być w dowonym języku:

type TTask=procedure of object;
type TTaskObject=class(TObject)
  protected
    id:integer;
  public
    constructor Create(id_:integer);
    procedure DoSmth; virtual;
  end;

type TOtherTaskObject=class(TTaskObject)
  public
    procedure DoSmth; override;
  end;

var Tasks:array of TTask;

constructor TTaskObject.Create(id_:integer);
begin
  inherited Create;
  id:=id_;
end;

procedure TTaskObject.DoSmth;
begin
  Form1.memo1.Lines.Add('Do Smth '+inttostr(id));
end;

procedure TOtherTaskObject.DoSmth;
begin
  Form1.memo1.Lines.Add('Do Smth else'+inttostr(id));
end;

//gdzies w kodzie:
tasks[0]:=TTaskObject.Create(2).DoSmth;
tasks[1]:=TOtherTaskObject.Create(10).DoSmth;
tasks[2]:=TTaskObject.Create(7).DoSmth;

//gdzies indziej w kodzie:
for a:=0 to 2 do
    tasks[a];

1 użytkowników online, w tym zalogowanych: 0, gości: 1