Forum: Programmieren allgemein
Delphi
by himitsu,
27. Jun 2022
Wie wäre es, wenn jemand den Debugger nimmt und schaut, was da passiert?
procedure TSignatory.StoreKeysToStream(
Store: TStream; Parts: TKeyStoragePartSet);
begin
if assigned( FCryptoKeys) then
FCryptoKeys.StoreToStream( Store, Parts);
if assigned( FSigningKeys) then
FSigningKeys.StoreToStream( Store, Parts);
end;
Forum: Programmieren allgemein
Delphi
by himitsu,
27. Jun 2022
ist zwar soppelt gemoppelt, aber jo, würde passen.
LStream.Size := 0; setzt ebenfalls die Position in den noch vorhandenen Bereich (also auf 0)
und wenn vorher schon gelöscht wurde, dann ist nachher das Size:=Position unnötig, weil nach der (aktuellen) Position nichts mehr komen kann ... wurde ja schon zu beginn gelöscht.
im Grunde reicht entweder am Anfang auf 0 oder am Ende das...