cc.KassenSichV.* - Die Unitsammlung zur Kassensicherungverordnung des BMF

[ODee68]

Zitat von noisy_master:

Hallo zusammen,

da ich mich immer noch mit alten(ja, Asche auf mein Haupt) Delphi Versionen rumschlage(2006 und XE5) habe ich mal deine Sourcen back-ported. Heisst nun kann man das gute Stück ohne Änderungen auf 2006 und XE5 compilieren(und es läuft sogar noch ). Ich vermute somit lässt es sich auch auf aktuellen Delphis compilieren.
Habe auch eine kleine Base64 Encode Implementierung drin(ist wohl nicht extrem performant, aber portabel)...Nur den Singelton habe ich unter 2006 nicht zum Laufen bekommen.

Sobald jemand Interesse anmeldet, lade ich den Port gerne hoch!

Gruß

Das wäre echt klasse! Kann nicht schaden, sich das mal in Ruhe anzuschauen, vielleicht hilft es mir und anderen ja weiter?

Gruß Oliver

[ODee68]

Brauche hier schon die erste Hilfe

Delphi-Quellcode:

function TccSwissBitTseByteData.asHexString: String;
var
  a: Integer;
begin
  Result := '';
  for a := 0 to Length(Bytes) - 1 do
    begin
      Result := Result + IntToHex(Bytes[a]);
    end;
end;

Beim Compilieren bekomme ich folgende Fehlermeldung

Code:

[dcc32 Fehler] cc.KassenSichV.Swissbit.classes.pas(367): E2250 Es gibt keine überladene Version von 'IntToHex', die man mit diesen Argumenten aufrufen kann

kommentiere ich die Zeile aus, läßt sich die SwissbitGui auch starten, aber dann stimmen sicherlich einige Werte nicht mehr, weil die Funktion ja nur noch einen leeren String zurück gibt.
Habe die Funktion mal einen festen Wert zurückgeben lassen, siehe 2. Bild.

Gruß Oliver

[Poelser]

IntToHex() braucht 2 Parameter, da gehört noch die Anzahl Stellen dazu, z.B. IntToHex(123, 2).

[ODee68]

Das ist schon richtig, so wäre die die Standardfunktion, diese ist aber aus einer eigene Klasse und hat diesen 2. Parameter nicht.
Welchen Größe müsste ich dahinter setzen? Macht das einen Unterschied für das Ergenbnis, ob 2 oder 3, etc.?

Gruß Oliver

[jaenicke]

Zitat von Poelser:

IntToHex() braucht 2 Parameter, da gehört noch die Anzahl Stellen dazu, z.B. IntToHex(123, 2).

In alten Delphiversionen war das mal so, ja. Heute wird ohne den zweiten Parameter schlicht die Größe des Datentyps als Standard verwendet.

Beim Datentyp Byte wird so per Compiler Magic aus IntToHex(ByteValue) einfach IntToHex(ByteValue, 2). Ich gehe mal bei Bytes[a] davon aus, dass auch hier die 2 als zweiter Parameter korrekt ist und diese dann bei älteren Delphiversionen angegeben werden muss.

[ODee68]

Zitat von jaenicke:

Zitat von Poelser:

IntToHex() braucht 2 Parameter, da gehört noch die Anzahl Stellen dazu, z.B. IntToHex(123, 2).

In alten Delphiversionen war das mal so, ja. Heute wird ohne den zweiten Parameter schlicht die Größe des Datentyps als Standard verwendet.

Beim Datentyp Byte wird so per Compiler Magic aus IntToHex(ByteValue) einfach IntToHex(ByteValue, 2). Ich gehe mal bei Bytes[a] davon aus, dass auch hier die 2 als zweiter Parameter korrekt ist und diese dann bei älteren Delphiversionen angegeben werden muss.

Vielen Dank Sebastian!

[noisy_master]

Hallo zusammen,

hier die Version für Delphi 2006 etc. Bitte bei den höheren Versionen in den Projektoptionen die Unit Scopes angeben....

bei Fragen einfach melden.

Gruß