Miten kutsun Toistuvaa proceduurista Homma, kun niiden esittely on seuraava:
TForm1 = class(TForm)
. . .
procedure Toistuva(Sender: TObject);
procedure Homma(Sender: TObject);
. . .
private
{ Private declarations }
public
{ Public declarations }
end;
TForm1 = class(TForm)
. . .
procedure Toistuva(Sender: TObject);
procedure Homma(Sender: TObject);
. . .
private
{ Private declarations }
public
{ Public declarations }
end;
Vastaukset 2
Vanhimmat
procedure TForm1.Toistuva(Sender: TObject);
begin
showmessage('Täällä toistuva');
end;
procedure TForm1.Homma(Sender: Tobject);
begin
toistuva(sender);
end;
Toisenlainen ratkaisu voisi olla että
toistuva työ tehdään omassa aliohjelmassa
joka on esitelty private-osiossa
mutta tämä on vain joissakin tapauksissa parempi kuin tuo
aiemmin esitetty.
TForm1 = class(TForm)
. . .
procedure Toistuva(Sender: TObject);
procedure Homma(Sender: TObject);
. . .
private
{ Private declarations }
procedure TeeToistuva;
public
{ Public declarations }
end;
procedure TForm1.Toistuva(Sender: TObject);
..
begin
...
TeeToistuva;
...
procedure TForm1.Homma(Sender: TObject);
..
begin
...
TeeToistuva;