Probleme mit Mem_Util von Gammatester

[DieDolly]

Nachdem ich meinen kompletten PC neu gemacht habe, durch die Lizenzhölle und Out-of-Bounds-Hölle ging, schaffe ich es nicht mehr meine Projekte zu kompilieren.

Ich nutze gamnmatesters Crypt-Units und dort meckert der Compiler in Mem_Util.pas diese Zeile mit Result an

Delphi-Quellcode:

function Base64Str(psrc: pointer; L: integer): BString;
  {-Base64 string of memory block of length L pointed by psrc}
var
  q,r: integer;
  b0,b1,b2: byte;
  {$ifndef RESULT}
    result: BString;
  {$endif}

Wie bekomme ich das weg? Der Bezeichner wurde "redeklariert".

[Rollo62]

Delphi-Quellcode:

function Base64Str(psrc: pointer; L: integer): BString;
//--> Die Funktion hat ein Result
var
  {$ifndef RESULT}
    result: BString;
    //--> Da wird eine zusätzliche 2te Variable, auch Result angelegt, das wird das Problem sein 
  {$endif}

Das passiert nur bei {$ifndef RESULT}, also wenn das Define RESULT nicht definiert ist.

Wahrscheinlich was das in der alten Version irgendwo definiert, in einer .inc Datei, oder in den Projekt-Defines ...

[Uwe Raabe]

Ich vermute mal, daß der Code noch nicht unter Rio compiliert wurde und irgendwo ein

Delphi-Quellcode:

{$IFDEF VER330}

fehlt, daß ein

Delphi-Quellcode:

{$DEFINE RESULT}

bewirkt.

[DieDolly]

Ich habe das in der Datei std.inc mal nachträglich eingefügt

Delphi-Quellcode:

{$ifdef VER330}
  {$define DELPHI}  {D26}
  {$define D12PLUS}
  {$define UNIT_SCOPE}
{$endif}

[Andreas13]

Wurde damit Dein Problem behoben?
Gruß, Andreas

[DieDolly]

Das Problem wird damit behoben. Jeder der das Problem hat, muss nur die inc-Datei erweitern.

[Andreas13]

Danke!
Gruß, Andreas

[TurboMagic]

Wie Kontakt mit Gammatester für die Aufnahme in seinen
Code aufnehmen?

[Rollo62]

Zitat:

Zitat von TurboMagic (Beitrag 1453428)

Wie Kontakt mit Gammatester für die Aufnahme in seinen
Code aufnehmen?

https://www.delphipraxis.net/200202-...mmatester.html

[DeddyH]

Zur Info: Gammatester ist kürzlich verstorben, Ihr müsst ihm nichts mehr schicken.