[JVCL-Checkins] SF.net SVN: jvcl:[12816] trunk/jvcl/examples/JvHIDController/ReadWriteDemo/ DevReader.pas

[<ob...@us...>]

Revision: 12816
          http://jvcl.svn.sourceforge.net/jvcl/?rev=12816&view=rev
Author:   obones
Date:     2010-06-28 11:30:11 +0000 (Mon, 28 Jun 2010)

Log Message:
-----------
PAnsiChar for Unicode compatibility

Modified Paths:
--------------
    trunk/jvcl/examples/JvHIDController/ReadWriteDemo/DevReader.pas

Modified: trunk/jvcl/examples/JvHIDController/ReadWriteDemo/DevReader.pas
===================================================================
--- trunk/jvcl/examples/JvHIDController/ReadWriteDemo/DevReader.pas	2010-06-26 14:12:46 UTC (rev 12815)
+++ trunk/jvcl/examples/JvHIDController/ReadWriteDemo/DevReader.pas	2010-06-28 11:30:11 UTC (rev 12816)
@@ -151,7 +151,7 @@
 begin
   Str := Format('R %.2x  ', [ReportID]);
   for I := 0 to Size - 1 do
-    Str := Str + Format('%.2x ', [Cardinal(PChar(Data)[I])]);
+    Str := Str + Format('%.2x ', [Cardinal(PAnsiChar(Data)[I])]);
   HistoryListBox.ItemIndex := HistoryListBox.Items.Add(Str);
 end;
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.