myunit.pas(zeile,spalte) Error: Operator is not overloaded: "ULARGE_INTEGER" * "ULARGE_INTEGER"

[thosch]

Hallo,


was kann ich hier machen, ich will solche ULARGE_INTEGER Variablen multiplizieren. Zuweisen kann ich nur Large Integer, so kann ich keine normalen Integers nehmen um erst mal die Multiplikation zu machen und dann das Ergebnis zuzuweisen

Wie muss ich vorgehen um das hier zu berechenen und dann an ULARGE_INTEGER bzw, den Zeiger PULARGE_INTEGER zuzuweisen.

hier meine beabsichtigte Berechenung, bei der der Compiler meckert:

Code: Alles auswählen

NumberOfBytes: PULARGE_INTEGER;
Clusters: ULARGE_INTEGER;
BytesPerSector: ULARGE_INTEGER;

  NumberOfBytes^ := Clusters * SectorsPerCluster * BytesPerSector;

[Socke]

Du musst einen Operator überladen (https://www.freepascal.org/docs-html/re ... 23800015.4)

Code: Alles auswählen

operator * (i1: ULARGE_INTEGER; i2: ULARGE_INTEGER): ULARGE_INTEGER;
begin
  Result := ...
end;

[thosch]

Danke wie verrückt, mit diesem zusätzlichen Operator klappt es.

[PascalDragon]

Der Typ ULARGE_INTEGER ist ein record, der wie folgt deklariert ist:

Code: Alles auswählen

     ULARGE_INTEGER = record
        case byte of
          0: (LowPart : DWORD;
              HighPart : DWORD);
          1: (QuadPart : ULONGLONG);
       end;
     PULARGE_INTEGER = ^ULARGE_INTEGER;
     _ULARGE_INTEGER = ULARGE_INTEGER;

Das heißt erstens, dass keinerlei Operatoren abseits von Zuweisungen zu anderen ULARGE_INTEGER für ihn definiert sind (weswegen das Überladen des Operators ja auch zum Erfolg führt), aber andererseits heißt es auch, dass du einfach mit dem QuadPart-Feld arbeiten kannst, da dies den kompletten 64-bit Wert des ULARGE_INTEGER beschreibt.

Also in deinem Fall:

Code: Alles auswählen

NumberOfBytes^.QuadPart := Clusters.QuadPart * SectorsPerCluster.QuadPart * ByetsPerSector.QuadPart

Hat den Vorteil, dass einfach die internen Operatoren des UInt64-Typen verwendet werden.