Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by gammatester,
11. Mai 2017
Info: Der Bug ist gefixt in Embarcadero® Delphi 10.2 Version 25.0.26309.314, vgl. https://edn.embarcadero.com/print/44747 link auf RSP-15827
Selbst getestet.
Gruß Gammatester
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by gammatester,
6. Mai 2017
Allerletzter Kommentar:
Es geht ja nicht um die Ausgabe sondern die Eingabe. Der Code wäre halbwegs richtig für Delphi < 12, also prä- D2009 (allgemein, wenn string ein ansistring ist). Wenn Du keine abstrusen Zeichen benutzt, versuche also die Deklaration
function SHA1Text(const s: ansistring): ansistring;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by gammatester,
6. Mai 2017
Ein letzter Versuch: Wenn Deine Funktion immernoch etwa so aussieht
function SHA1Text(const s: string): string;
var
Context: THashContext;
SHA256Digest: Hash.TSHA256Digest;
begin
SHA256.SHA256Init(Context);
SHA256.SHA256Update(Context, pChar(s), length(s));
SHA256.SHA256Final(Context, SHA256Digest);
Result := Mem_Util.HexStr(@SHA256Digest, SizeOf(SHA256Digest));
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by gammatester,
6. Mai 2017
Für Tokyo solltest Du die neueste http://www.wolfgang-ehrhardt.de/std.zip verwenden. Deine ist über ein Jahr alt, da gab es Tokyo noch nicht.
PS: Warum hast du eigentlich so viele Änderungen am Code vorgenommen (zB 124 bei sha256)?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by gammatester,
6. Mai 2017
Wenn Du das auskommentieren mußt, stimmt noch mehr nicht. Für Delphi sollte RESULT immer definiert sein: std.inc Zeile 494. (Hinweis: es gibt Pascal-Versionen die kein result für's Funktionsergebnis kennen!)