Delphi compatibility fix

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@740 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2009-03-13 17:10:21 +00:00
parent aeb7aaac64
commit be86fa976b
14 changed files with 68 additions and 54 deletions
--- a/wst/trunk/basex_encode.pas
+++ b/wst/trunk/basex_encode.pas
@ -230,6 +230,8 @@ begin
  if ( ALen > 0 ) then begin
    SetLength(Result,(2 * ALen));
    Base16Encode(ABin,ALen,@Result[1]);
+  end else begin
+    Result := '';
  end;
 end;