Mitähän class of tarkoittaa noin yleisesti ottaen?
Esimerkiksi alla olevasta linkistä löytyy muoto class of TWSocket;
http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000646&posting=22000000035469438
Class of ?
1
227
Vastaukset
- Mika0800
Class of = luokkatyyppityyppi
siis:
kun esimerkiksi:
procedure NaytaKokonaisluku(I:Integer);
begin
ShowMessage('kokonaisluvun arvo on ' IntToStr(I) );
end;
voit kutsua tätä näin:
NaytaKokonaisluku(3);
NaytaKokonaisluku(5);
Jos kuitenkin et etukäteen tiedä, minkä luvun haluat näyttää, tarvitset muuttujan:
var
K : Integer;
jolloin voit näyttää muuttujan K sisältämän kokonaisluvun näin:
NaytaKokonaisluku(K);
aivan vastaavasti:
Jos esim. olet määritellyt luokat:
TKuvio = class(TGraphicControl)
end;
TKolmio = class(TKuvio)
end;
TNelio = class(TKuvio)
end;
TYmpyra = class(TKuvio)
end;
Voit luoda olion esim. näin:
var
Kuvio1 : TKuvio;
begin
// joko -tai (ei kannata luoda useita olioita ja ylikirjoittaa muuttujan vanhaa sisältöä
Kuvio1 := TKolmio.Create(Self);
Kuvio1 := TNelio.Create(Self);
Kuvio1 := TYmpyra.Create(Self);
end;
mutta entä, jos et tiedä etukäteen, mitä kuviota olet luomassa ?
Aivan kunten Integer määrittelee tyypin, johon voi tallentaa kokonaisluvun, niin Class of -rakenteella määritellään tyyppi, johon voi tallentaa luokan tyypin:
TKuvioTyyppi = class of TKuvio;
ja kun on määritelty tyyppi, seuraavaksi tarvitaan ko. tyyppiä oleva muuttuja,
var
KuvioLuokka : TKuvioTyyppi;
KuvioLuokka := TKolmio;
TAI
KuvioLuokka := TNelio;
TAI
KuvioLuokka := TYmpyra;
kun muuttujan KuvioLuokka arvo on asetettu (ja huom: sitä voi myöhemmin muuttaa koska tahansa), voidaan sitä käyttää kiinteän tyypin asemesta:
sensijaan, että:
Kuvio1 := TKolmio.Create(Self);
voidaan yhtä hyvin:
Kuvio1 := KuvioLuokka.Create(Self);
tässä siis luodaan olio, jonka tyyppi on tallennettu muuttujaan KuvioLuokka, sensijaan, että se olisi kiinteästi esim. TKolmio tai TYmpyra.
Eli aivan, kuten Integer on kokonaislukuTYYPPI, ja String on merkkijonoTYYPPI, niin TKuvioTyyppi on luokkatyyppiTYYPPI, johon siis tallennetaan luokkatyyppejä.
Lisäksi, koska tässä on määritelty:
TKuvioTyyppi = class of TKuvio;
niin muuttujaa, joka on määritelty olevan tyyppiä ä TKuvioTyyppi (kuten esim. KuvioLuokka) voidaan tallentaa vain tyyppiä TKuvio tai tyyppejä, jotka on (suoraan tai epäsuoraan) periytetty luokasta TKuvio.
Jos siis määrittelet:
TVarillinenKolmio = class(TKolmio)
niin vot asettaa myös:
KuvioLuokka := TVarillinenKolmio
sensijaan em. määrityksin yritys asettaa:
KuvioLuokka := TStringlist;
aiheuttaa kääntäjän virheilmoituksen, sillä vaikka TStringlist on luokkatyyppi, se EI periydy tyypistä TKuvio.
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ä741359Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa
Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.2431249Martina lähdössä Ibizalle
Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.1511061Asiakas iski kaupassa varastelua tehneen kanveesiin.
https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava2541032- 51755
- 64714
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 em62707Miksi 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 kui39688Se nainen näyttää hyvältä vaikka painaisi 150kg
parempi vaan jos on vähän muhkeammassa kunnossa 🤤44651- 30607