task type Zadanie (id:Integer);
Jak utworzyć tablice zadań nadając jednocześnie wartości parametrom ?
task type Zadanie (id:Integer);
Jak utworzyć tablice zadań nadając jednocześnie wartości parametrom ?
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];