"Besser" wäre: GetShortClassNameFromName anpassen. Diese Funktion liefert momentan für bereits gekürzte SHA3-Namen statt SHA3_<nnn> das Resultat <nnn> zurück.
Delphi-Quellcode:
class function TDECObject.GetShortClassNameFromName(const ClassName: string): string;
var
i: Integer;
begin
Result := ClassName;
if pos( 'SHA3_', ClassName ) = 1 then exit;
i := Pos('_', Result);
if i > 0 then
Delete(Result, 1, i);
end;
Also das möchte ich lieber nicht umsetzen. Warum?
- Spezifisch für SHA3. Gibt's später weitere solche Fälle muss man immer dran denken die hier auch aufzunehmen
- Die Methode soll doch einen kurzen Klassennamen von einem vollständigen liefern. Also soll man diese per Design ja mit einem vollständigen und nicht mit einem bereits gekürzten Namen füttern! Ich habe ja auch das Hash_FMX Demo Programm entsprechend angepasst und das funktioniert nach meiner Anpassung ja auch für SHA3_XXX.
Grüße
TurboMagic