poslední offset stringu

[Delfin]

A to je přesně ono - tenhle kód projde kompilátorem vždy, bez varování a hintů. Přičemž stačí jakákoliv změna v implementaci stringů a fungovat přestane (co třeba například stringy s 64bitovou délkou?). Já bych velice varoval před tím, něco takového používat.

Pro Delphi 7 se jich chysta spousta

[pf1957]

Pro Delphi 7 se jich chysta spousta

Tak si predstav, ze to nekdy nekdo bude chtit portovat pod novejsi prekladac...

[Delfin]

Pro Delphi 7 se jich chysta spousta

Tak si predstav, ze to nekdy nekdo bude chtit portovat pod novejsi prekladac...

To je ovsem dan za rozhodnuti funkci nevolat (coz muze byt zasluhou neuspokojiveho vysledku profileru; dobra, ne v tomto vlakne).

[Radek Červinka]

Pro Delphi 7 se jich chysta spousta

Tak si predstav, ze to nekdy nekdo bude chtit portovat pod novejsi prekladac...

To je ovsem dan za rozhodnuti funkci nevolat (coz muze byt zasluhou neuspokojiveho vysledku profileru; dobra, ne v tomto vlakne).

Tak jsem si s tím dal tu práci a porovnal jsem Length s tim tvojím řešením. Kompilátor pro length vygeneruje cca 30 byte, tvoje řešení je 15 byte. Rozdíl je v tom, že length na začátku dělá test zda je string <> '', protože pak je roven nil (což dělá zhruba těch 15 byte) a vrací 0.

takže

Kód: Delphi [Vybrat]

1.     s := '';
2.     Len := PCardinal(PByte(s) - 4)^;
3.  

spadne na AV.

Gratulky.

[pf1957]

praci s retezci.  Ta hlavicka je (byvala) nekde deklarovana jako record, jen si nepamatuju kde. Takze neni nutne se uchylovat k pointerove aritmetice.

Tak nadefinova je stale, ale v implementation sekci unity system. Skoro bych rek, ze kdysi byvala pristupna, ale HOSIP:

Kód: Delphi [Vybrat]

1.   StrRec = packed record
2.   {$IF defined(CPU64BITS)}
3.     _Padding: Integer; // Make 16 byte align for payload..
4.   {$ENDIF}
5.     codePage: Word;
6.     elemSize: Word;
7.     refCnt: Integer;
8.     length: Integer;
9.   end;
10.  

[Delfin]

Neudelal jsem nic vic nez do editoru tady napsal radek kodu podle popisu interni struktury. Omlouvam se, priste radne otestuju!

[pepak]

Pro Delphi 7 se jich chysta spousta

Od člověka, který se ve vedlejším vlákně pohoršuje nad nečitelností "Get" + české slovo, to je obzvlášť pikantní pohled na věc.

[Delfin]

Pro Delphi 7 se jich chysta spousta

Od člověka, který se ve vedlejším vlákně pohoršuje nad nečitelností "Get" + české slovo, to je obzvlášť pikantní pohled na věc.

Interni struktury jsou implementacni zalezitosti a mohou se s verzemi menit. Nemam pocit (ani informace) ze by se EMBT chystalo ke zmenam Delphi 7 Kdyz us se nekdo rozhodne na ne sahat, musi k tomu mit realny duvod. Ale proc ne, priste pridam velke, tucne varovani (i pro dotaz jak si prostrelit hlavu ).

Ohledne srovnani teto reakce s anglo-ceskeho pojmenovani metody, to je michani ruzneho druhu ovoce, rekl bych.

[vangog]

Rozdíl je v tom, že length na začátku dělá test zda je string <> '', protože pak je roven nil (což dělá zhruba těch 15 byte) a vrací 0.

takže

Kód: Delphi [Vybrat]

1.     s := '';
2.     Len := PCardinal(PByte(s) - 4)^;
3.  

spadne na AV.

Gratulky.

V mém případě pracuji s řetězci, uloženými pod TStringList, kde délka je min 3 znaky. Takže toto by problém nebyl, pokud bych to aplikoval. Zkratka AV znamená co?

[Marek Weyda]

V mém případě pracuji s řetězci, uloženými pod TStringList, kde délka je min 3 znaky. Takže toto by problém nebyl, pokud bych to aplikoval. Zkratka AV znamená co?

Akademie věd

Pro programátory je ale Access Violation