FIX: Calculate Checksum - access violation (fixes #2535)

This commit is contained in:
Alexander Koblov 2025-10-11 16:25:17 +03:00
commit 24fb6d6065

View file

@ -173,6 +173,7 @@ end;
procedure TfrmCheckSumCalc.lbHashAlgorithmSelectionChange(Sender: TObject;
User: boolean);
begin
if lbHashAlgorithm.ItemIndex < 0 then Exit;
FAlgorithm:= THashAlgorithm(lbHashAlgorithm.ItemIndex);
edtSaveTo.Text:= ChangeFileExt(edtSaveTo.Text, '.' + HashFileExt[FAlgorithm]);
end;