Olion upottaminen

Miten määritelty tuo TLuokka on määritelty?

::::::::::: kirjoitti:

Miten määritelty tuo TLuokka on määritelty?

Ihan miten haluat luokan määritellä...

|type
| TLuokka = class
| private
| FMuuttuja: Integer;
| public
| constructor Create();
| end;

..........

|constructor TLuokka.Create();
|begin
| FMuuttuja := 2008;
|end;

............

Perus olio-ohjelmointia

http://www.delphibasics.co.uk/RTL.asp?Name=Class

luokka.. kirjoitti:

Ihan miten haluat luokan määritellä...

|type
| TLuokka = class
| private
| FMuuttuja: Integer;
| public
| constructor Create();
| end;

..........

|constructor TLuokka.Create();
|begin
| FMuuttuja := 2008;
|end;

............

Perus olio-ohjelmointia

http://www.delphibasics.co.uk/RTL.asp?Name=Class

Lue lisää

Mitä (Luokan TLuokka tai) olion o2 metodi terve tekee?
Miten se on määritelty?

procedure TLuokka.terve;
begin
// siis mitä tähän ?
end;

Pallo hukassako? kirjoitti:

Mitä (Luokan TLuokka tai) olion o2 metodi terve tekee?
Miten se on määritelty?

procedure TLuokka.terve;
begin
// siis mitä tähän ?
end;

Päättele itse! Kyse oli vain esimerkistä!

ShowMessage( ' No terveppä terve!' );

Mitä rivi
o2 := TLuokka( sl.Objects[0] );
tarkoittaa (tekee)?

Pallo yhä hukassako? kirjoitti:

Mitä rivi
o2 := TLuokka( sl.Objects[0] );
tarkoittaa (tekee)?

Eli se ottaa TStringListin (sl) Objects kokoelman ensimmäiseen itemiin upotetun olion.

Eli toisin sanoen se on sama kuin se eka o. Jos et ymmärrä pointereiden päälle mitään, niin voi olla hankala tajuta.

Oli vain tarkoitus havainnollistaa sitä "upotusta"

"Esimerkiksi TStringList luokassa on tämmöinen ominaisuus, tätä StringListiä käyttää myös monet komponentit, kuten TComboBox."

Monessa Delphin visuaalisessa komponentissa on yhtenä ominaisuutena TStrings -luokka, mutta monessa toteutus on rajattu siten, että AddObject( ... ) on käytännössä sama kuin Add( ... );

Tällaisiin ominaisuuksiin EI voi "upottaa" objektia.

esim:

{} var
{} OmaOlio : TLuokka;
{ ... }
{}
{} Memo1.Items.AddObject('jokin merkkijono', OmaOlio) ;
{}
{ ... }

lisäksi esimerkissä ollut:

sl.AddObject( o, TObject( o ) );

on väärin.

oikein olisi esim:

sl.AddObject( o.ClassName, o );

tuon o.ClassName tilalle voi laittaa minkä tahansa merkkijonon.

tuossa esimerkissä o.ClassName palauttaisi: 'TLuokka'

Ainakin uudemmat Delhit hyväksyvät tämänkin:

sl := TStringList.Create();

enemmän Delphi -tyylinen tapa:

sl := TStringList.Create; { Tämä kelpaa jopa Delphi 1.0:llekin }

Tuo Delphi 1.0 on ainoa 16 -bittinen Delphi, eivätkä sillä käännetyt ohjelmat toimi windows Vistassa. Sääli sinänsä, nimittäin monen ohjelman asennusohjelma on käännetty 16 -bit ohjelmaksi siksi, että näin saadaan pienempi exe -tiedosto.

Toisaalla palstalla kysellään FTP -toteutuksesta Delphillä.

Ararat Synapse - ääni tälle !

Muita siis:

ICS ( by Francois Piette )
Indy ( by Kudzu )

salakirjoitustakin delphille löytyy:

TPLockBox - alunperin TurboPowerSoftwaren kaupallinen luomus, sittemmintajolla ilmaiseksi SourceForgesta.

Mika0800 kirjoitti:

"Esimerkiksi TStringList luokassa on tämmöinen ominaisuus, tätä StringListiä käyttää myös monet komponentit, kuten TComboBox."

Monessa Delphin visuaalisessa komponentissa on yhtenä ominaisuutena TStrings -luokka, mutta monessa toteutus on rajattu siten, että AddObject( ... ) on käytännössä sama kuin Add( ... );

Tällaisiin ominaisuuksiin EI voi "upottaa" objektia.

esim:

{} var
{} OmaOlio : TLuokka;
{ ... }
{}
{} Memo1.Items.AddObject('jokin merkkijono', OmaOlio) ;
{}
{ ... }

lisäksi esimerkissä ollut:

sl.AddObject( o, TObject( o ) );

on väärin.

oikein olisi esim:

sl.AddObject( o.ClassName, o );

tuon o.ClassName tilalle voi laittaa minkä tahansa merkkijonon.

tuossa esimerkissä o.ClassName palauttaisi: 'TLuokka'

Ainakin uudemmat Delhit hyväksyvät tämänkin:

sl := TStringList.Create();

enemmän Delphi -tyylinen tapa:

sl := TStringList.Create; { Tämä kelpaa jopa Delphi 1.0:llekin }

Tuo Delphi 1.0 on ainoa 16 -bittinen Delphi, eivätkä sillä käännetyt ohjelmat toimi windows Vistassa. Sääli sinänsä, nimittäin monen ohjelman asennusohjelma on käännetty 16 -bit ohjelmaksi siksi, että näin saadaan pienempi exe -tiedosto.

Toisaalla palstalla kysellään FTP -toteutuksesta Delphillä.

Ararat Synapse - ääni tälle !

Muita siis:

ICS ( by Francois Piette )
Indy ( by Kudzu )

salakirjoitustakin delphille löytyy:

TPLockBox - alunperin TurboPowerSoftwaren kaupallinen luomus, sittemmintajolla ilmaiseksi SourceForgesta.

Lue lisää

"sl.AddObject( o, TObject( o ) );"

Vähän muisti pätki, eli tietty eka parametri on otsikko, o.Otsikko();
.....................

"Ainakin uudemmat Delhit hyväksyvät tämänkin:"

sl := TStringList.Create();

"enemmän Delphi -tyylinen tapa:"

"sl := TStringList.Create; { Tämä kelpaa jopa Delphi 1.0:llekin }"

No kyse on vain tyylistä.

Delphi 1.0 on jo wanha kuin taivas, eli tuskin sillä kukaan enään nykyään koodailee. Itse olen vain tottunut käyttämään aina sulkeita (C/C opittu tapa), kertoo minun silmään hyvin, ettei mitään parametreja anneta.

Nykykoneissa on myös tosi paljon muistia ja isot kiintolevyt, ehkä joskus kauan sitten pienet exe-koot oli hyvä olla olemassa.

Huitsi kun jaksais :) Yleensä tänne tulee kirjoiteltua vain kännissä ja koodit voi mennä väärin, kun ei niitä voi tarkistella. Mutta jospa mulla olis maanantaina töissä vähän löysää aikaa, niin voisin jonkun simppelin esimerkin kirjoitta...

Tässä tein (Delphi 2006 Pro) pienen objektin upotus esimerkin :)

http://www.knubits.com/upotus.zip