Code: Select all
function TNumberFormats.FindValue(Value: WideString): integer;
var
Hash: word;
begin
if Value = '' then
Result := 0
else begin
Hash := XLSGetHashCode(Pointer(Value)^,Length(Value) * 2); // this function does not exist
for Result := 0 to Count - 1 do begin
if (ItemsByIndex[Result].FHash = Hash) and (ItemsByIndex[Result].FValue = Value) then
Exit;
end;
Result := -1;
end;
end;
Code: Select all
Xc12Utils
Code: Select all
Xc12Utils5 , BIFFRecsII5,