Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Neutral General,
1. Jul 2022
procedure Move(const Source; var Dest; Count: NativeInt);
Wie du siehst sind für Source und Dest keine Datentypen angegeben.
Was dort intern passiert ist, dass in der Wahrheit immer ein Pointer dessen übergeben wird was du als Parameter angibst.
Im Prinzip wird bei Source und Dest ein unsichtbares "@" vor den übergebenen Wert gesetzt.
Das hier:
Move(ACertStr, Lblob.pbData^,...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Neutral General,
1. Jul 2022
procedure NameNotRelevant2(const ACertStr: string);
var
Lbin: TBytes;
Lblob: CERT_BLOB;
begin
if Length(ACertStr) = 0 then Exit;
Lblob.cbData:= (Length(ACertStr)) * SizeOf(Char);
SetLength(Lbin, Lblob.cbData);
Move(ACertStr, Lbin, Lblob.cbData);
Lblob.pbData:= LPByte(Lbin);