[JVCL-Checkins] dev/JVCL3/examples/JvSimpleXML Encode MainSpeedFrm.pas,1.3,1.4 - - more fixes

[Peter T. <pe...@pr...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvSimpleXML Encode
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12912/examples/JvSimpleXML Encode

Modified Files:
	MainSpeedFrm.pas 
Log Message:
- more fixes


Index: MainSpeedFrm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvSimpleXML Encode/MainSpeedFrm.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** MainSpeedFrm.pas	8 Jan 2004 09:52:27 -0000	1.3
--- MainSpeedFrm.pas	27 Jan 2004 13:56:09 -0000	1.4
***************
*** 30,34 ****
  
  uses
!   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, Grids, JvStringGrid, JvExGrids;
  
--- 30,34 ----
  
  uses
!   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, Grids, JvStringGrid, JvExGrids;
  
***************
*** 68,77 ****
  implementation
  uses
!   JvSimpleXML, JvJVCLUtils, ShellAPI, utilsSort;
  
  {$R *.dfm}
  
  function StringFromFile(const FileName: string; var FileSize: Int64): string;
- var S:TStringlist;
  begin
    with TFileStream.Create(FileName, fmOpenRead) do
--- 68,76 ----
  implementation
  uses
!   JvSimpleXML, JvJVCLUtils, ShellAPI;
  
  {$R *.dfm}
  
  function StringFromFile(const FileName: string; var FileSize: Int64): string;
  begin
    with TFileStream.Create(FileName, fmOpenRead) do