Eli minulla on seuraavanlainen metodi:
procedure TForm1.Test(ASrc : Integer; ASrc2 : Integer);
var
P : PByte;
begin
P := @ASrc; // P = 0x12F5BC
ShowMessage(IntToStr(Integer((P^))));
Dec(P, 4); // P = 0x12F5B8
//P := @ASrc2; // P = 0x12F5B8
// Näyttää väärän arvon kun Dec käytössä vaikka
// Osoite on sama kuin suoralla sijoituksella, miksi, eli kun käytän suoraa sijoitusta (kommentoitu) tuo näyttää oikein?
ShowMessage(IntToStr(Integer((P^))));
end;
En ymmärrä miksi tuo näyttää tuon viimeisen arvon päin mäntyä, kutsu on seuraavanlainen:
Test(5,8);
Delphi on CodeGear™ Delphi® 2007 for Win32® R2 Version 11.0.2804.9245
Kääntäjän bugiko?
ihmettelevä_testailija
5
856
Vastaukset
- hemmoit
Jäi vähän epäselväksi mikä on ko koodin tarkoitus...
Mutta miksi PByte (Osoitin 8 bittiseen arvoon) 32 bittiselle integerille ? eikö PInteger ole olemassa...
Haluatko nyt lisätä ASrc arvoon 4, vai yritätkö saada selville ASrc2:sen osoiteen pinossa (joka olisi kikkaillua) ?- Ihmettelevä_testailija
Joo, tosiaan tarkoitus oli saada selville tuon pinon logiikka/arvot, aloittelija kun olen, osaatko siis kertoa tarkemmin kuinka tuon teen, teoria on kyllä hallussa, mutta eipä tuo käytäntö oikein. Eikö tavu pointteri tuossa ole ihan ok?
- öty-
Ihmettelevä_testailija kirjoitti:
Joo, tosiaan tarkoitus oli saada selville tuon pinon logiikka/arvot, aloittelija kun olen, osaatko siis kertoa tarkemmin kuinka tuon teen, teoria on kyllä hallussa, mutta eipä tuo käytäntö oikein. Eikö tavu pointteri tuossa ole ihan ok?
Dec(P, 8) ... Taitaa olla 64 bittinen voit tietenkin käyttää tavupointteria mutta jos laitat 255 suuremman luvun niin huomaat mitä tapahtuu, jos taas "P:Pinteger" niin pitää olla Dec(P,2) eli vähennetään 2 integeriä Kokeile myös "pointer" ja "PWord"
- Anonyymi00004
On hieman epäselvää, MITÄ haluat tuolla ShowMessagella näyttää.
Mutta:
ShowMessage(IntToStr(Integer((P^))));
Koska tuon sisimmäinen osa on Integer((P^)), niin tuo näyttää ARVOn, johon P osoittaa.
Jos haluaisit näyttää muistiosoitteen, johon P osoittaa, niin:
1) Silloin tuon pitäisi sensijaan olla Integer((P)) - tosin sillä saisit tulostettua tuon muistiosoitteen 10-järjestelmän numerona.
Siksi:
2) Jos haluat muistiosoitteen heksadesmiaalimuodossa, tuo pitäisi muuttaa näin:
ShowMessage( '$' + IntToHex(Integer(P), 8) );
Lisäksi: Ylläoleva on oikein, kun kyseessä on 32 -Bittinen ohjelma.
Jos olisi 64 -Bittinen ohjelma, niin vaatisi muutamia muutoksia, koska silloin myös muistiosoitteet olisivat 64 -Bittisiä sen sijaan että ne ovat 32 -Bittisiä 32 -Bittisisissä ohjelmissa.
Debuggerilla (Delphi 7) nuo osoitteet saa näkyviin:
View / Debug Windows / CPU
CPU -rekisterien alapuolella näkyy pinomuistialue, ja sitä voi vierittää rullauspalkilla.- Anonyymi00005
Onnea vaan yritykselle tavoittaa aloittaja 17 vuoden jälkeen..
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Päivän Riikka: polttoöljyn hinta räjähti
Näyttää tuo putinismi ilmenevän persuissa myös Suomen yrittäjien kampittamisena. Polttoöljy on se katalyytti, joka pitää362141Mökkejä ostellaan nyt ihan hulluna!
Tyypilliset lainamäärät on yli 500 000€ mökkejä ostellessa eli erityisesti tuollaiset miljoonamökit on nyt suomalaisten591955Helsingin yllä valopalloja
https://www.iltalehti.fi/kotimaa/a/1508be00-28c9-4156-83dc-0be5e7aa3066 "Helsingin taivaalla lensi lauantaina puolen yön1211900HÄLYYTYS!!
Ukraina se hyökkää jo Suomen maaperälle. https://www.iltalehti.fi/kotimaa/a/645b83ce-e074-4f00-8b99-245d01b38a363771612Kovasti on hävittäjiä ilmassa. Nytkö se alkoi?
Onko nyt sota ?? `Vai harjoituksiako vain? Hävittäjät pörrää kovasti.1031611Helsingin yllä lensi yöllä jotain outoa puolen yön aikaan valopalloja
Poliisi on saanut tapauksesta yhden havaintoilmoituksen. Valopalloja oli noin parikymmentä ILtalehdessä on video tapah1241444Millainen on naisellinen nainen
Nyt kun taas mennään keikkuen kesään, niin millainen nainen on naisellinen? Pukeutuminen, olemus, puhetapa, jne. Vilma n1821072Raamatullinen kaste
Seurakunnassamme kastettiin mm eräs muslimi, joka oli tullut uskoon. Hän oli ollut Suomessa viitisen vuotta. Hän oli lu53947- 73875
- 27869