* Guard against empty source, fixes build of docs

This commit is contained in:
Michaël Van Canneyt 2024-02-13 09:07:34 +01:00
parent 3ed5a4a022
commit cc195c649a

View File

@ -248,6 +248,7 @@ var
var
StringLength: Integer;
begin
if Source=Nil then exit;
dp := 0;
LastSHPos := 0;