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;
Kutsumisongelma
2
510
Vastaukset
- buudda
procedure TForm1.Toistuva(Sender: TObject);
begin
showmessage('Täällä toistuva');
end;
procedure TForm1.Homma(Sender: Tobject);
begin
toistuva(sender);
end; - 20+6
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;
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua
Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä751420Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa
Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.2481322Martina lähdössä Ibizalle
Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.1521096Asiakas iski kaupassa varastelua tehneen kanveesiin.
https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava2551078- 51795
- 65774
Jos ei tiedä mitä toisesta haluaa
Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em62747Miksi mies tuntee näin?
Eli olen mies ja ihastuin naiseen. Tykkään hänestä ja koskaan hän ei ole ollut minulle ilkeä. Silti ajoittain tunnen kui39728Se nainen näyttää hyvältä vaikka painaisi 150kg
parempi vaan jos on vähän muhkeammassa kunnossa 🤤44701- 30647