Conversie Delphi 7 -> Delphi 2005

[Adnan]

Wij hebben sinds kort Delphi 2005 aangeschaft. Ons oude Delphi 7 project komt (na erg lang pielen) door de compiler heen... maar het programma werkt niet meer als voorheen! Er lopen een aantal dingen anders, en we hebben geen idee wat er nu precies mis gaat! Het is als volgt:

Een record:

Type string30 = string[30];
     string45 = string[45];
     string15 = string[15];
     string27 = string[27];
     UserInfo = Record
           UserID   : String15;
           UPassword: String15;
           UFullName: String30;
           UEmail   : String45;
           UMaster  : Boolean;
           UEnabled : Boolean;
           DataDir  : string27;
           Reserved : integer;
     End;

Een variabele:

Var F : File Of UserInfo;

Wat code:

      AssignFile(F,SimplexPasswordFile);
      Reset(F);
      Fsize := FileSize(F);
      result := 0;
      try
        while result < Fsize do
        begin
          Seek(F,result);
          BlockRead(F,UserRec,1);
          if R(result, UserRec, X) then
            break
          else
            inc(result);
        end;
      finally
        CloseFile(F);
        if result >= Fsize then result := -1;
      end;

Het probleem:

In Delphi 7 werkt het uitlezen van dit bestand dus GOED! Altijd gedaan... maar nu, in Delphi 2005, wordt alleen het EERSTE item goed uitgelezen, en alle VOLGENDE items niet meer!

Iemand ideeen??

[marcov]

Klinkt als alignment probleem. Maak het record eens "packed"

type x= packed record

[Adnan]

Geniaal!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!

Bedankt, het werkt nu wel!

[Adnan]

Nog even een vraagje:

Heeft dit "packed" alleen te maken met bestanden, of heeft het ook effect op records in het geheugen?

[Dirk Andries]

Beiden.
Noteer dat gebruik van packed voor structured types een negatieve invloed heeft op performance.

[Adnan]

Ja, dat had ik gelezen!? Is daar niets aan te doen... is dit de enige manier om bestanden weg te schrijven dan? Want dat zou betekenen dat Delphi 2005 altijd dus een degradatie is, qua bestandsverwerkingen?!

En, als ik van ALLE records een 'packed' record maak, is dat dan ALTIJD goed, of werkt dat is sommige gevallen dat weer niet ofzo?

[Dirk Andries]

Als ik je record definieer in D7 en de size opvraag is dat 144 bytes, in D2005 is dat hetzelfde. Packed geven beiden 143 bytes. Het probleem is dus blijkbaar niet D7 versus D2005.
Ook: waarom gebruik je BlockRead (untyped files) i.p.v. Read?

[Adnan]

Dat is wel heel vreemd dan inderdaad! Want deze ENE wijziging zorgt er wel voor dat het programma nu doorloopt in 2005!?

En we kunnen inderdaad net zo goed Read gebruiken, maar dit is ooit gewoon zo geprogrammeerd (enkele jaren geleden) en nooit meer aangepast! Zit daar ook een verschil tussen (Read en BlockRead) dan??

[marcov]

Dirk: de performance penalty is zeer CPU afhankelijk.

Soms is b.v. "packed" sneller, bij voorbeeld omdat een datastructuur plotseling wel in
de cache past.

Adnan: Record alignment is het toevoegen van dummy bytes zodat velden op een veelvoud van een aantal bytes (2,4,8,16,32) beginnen. Sommige processoren kunnen velden die op deze manier gepositioneerd zijn dan wat sneller vinden. "packed" voorkomt dit, en ragt alle velden achter elkaar. Blockwrite kopieer letterlijk x bytes van geheugen naar file. De file is dus een afspiegeling van het geheugen.

Dit soort versnellingen zijn sinds caches echter wat achterhaald. Een cache miss is nl vele malen duurder, en die komen in de meeste realworld apps veel vaker voor.

Allleen zeer CPU intensieve code die zeer intensief met grote statische arrays werken (compressie, grafische programma's soms) hebben hier baat bij.

[Dirk Andries]

Heb je misschien de project options gewijzigd?
Zie {$A}

[marcov]

Dirk: blockread is veel sneller, en kan meerdere soorten objecten door elkaar aan.

[Adnan]

Jongens... jullie zijn geweldig! We hebben enkele opties aan- en uitgeschakeld... die verschillen tussen de projecten in D7 en D8 -- en voila, alles werkt perfect, zelfs het packed record zijn niet nodig!!!!!

(Niet zo slim van ons om die instellingen niet te controleren)

Bedankt... en sorry voor het verdoen van jullie kostbare tijd!

[Dirk Andries]

D8?
Ik dacht dat D2005 betrof?

[Dirk Andries]

Origineel gepost door marcov

Dirk: blockread is veel sneller...

Hij leest 1 (één) record in een typed file. Even getest in D7 en D2005 met 100 tot 1 000 000 records: geen merkbaar verschil qua snelheid.

[Adnan]

Sorry, ik bedoelde inderdaad D2005!!