Browse Source

* demoes moved for winunits-base

git-svn-id: trunk@9640 -
marco 17 years ago
parent
commit
149136ba9d

+ 5 - 5
.gitattributes

@@ -1445,11 +1445,6 @@ packages/base/sqlite/testapiv3x.pp -text
 packages/base/winunits/Makefile svneol=native#text/plain
 packages/base/winunits/Makefile svneol=native#text/plain
 packages/base/winunits/Makefile.fpc svneol=native#text/plain
 packages/base/winunits/Makefile.fpc svneol=native#text/plain
 packages/base/winunits/buildjwa.pp svneol=native#text/plain
 packages/base/winunits/buildjwa.pp svneol=native#text/plain
-packages/base/winunits/examples/OOHelper.pp svneol=native#text/plain
-packages/base/winunits/examples/OOTest.pp -text svneol=unset#text/plain
-packages/base/winunits/examples/testcom1.pp svneol=native#text/plain
-packages/base/winunits/examples/testcom2.pp svneol=native#text/plain
-packages/base/winunits/examples/testver.pp svneol=native#text/plain
 packages/base/winunits/fpmake.inc svneol=native#text/plain
 packages/base/winunits/fpmake.inc svneol=native#text/plain
 packages/base/winunits/fpmake.pp svneol=native#text/plain
 packages/base/winunits/fpmake.pp svneol=native#text/plain
 packages/extra/Makefile svneol=native#text/plain
 packages/extra/Makefile svneol=native#text/plain
@@ -4323,6 +4318,11 @@ packages/winunits-base/src/shellapi.pp svneol=native#text/plain
 packages/winunits-base/src/shfolder.pp svneol=native#text/plain
 packages/winunits-base/src/shfolder.pp svneol=native#text/plain
 packages/winunits-base/src/shlobj.pp svneol=native#text/plain
 packages/winunits-base/src/shlobj.pp svneol=native#text/plain
 packages/winunits-base/src/winver.pp svneol=native#text/plain
 packages/winunits-base/src/winver.pp svneol=native#text/plain
+packages/winunits-base/tests/OOHelper.pp svneol=native#text/plain
+packages/winunits-base/tests/OOTest.pp svneol=native#text/plain
+packages/winunits-base/tests/testcom1.pp svneol=native#text/plain
+packages/winunits-base/tests/testcom2.pp svneol=native#text/plain
+packages/winunits-base/tests/testver.pp svneol=native#text/plain
 packages/winunits-jedi/Makefile svneol=native#text/plain
 packages/winunits-jedi/Makefile svneol=native#text/plain
 packages/winunits-jedi/Makefile.fpc svneol=native#text/plain
 packages/winunits-jedi/Makefile.fpc svneol=native#text/plain
 packages/winunits-jedi/fpmake.inc svneol=native#text/plain
 packages/winunits-jedi/fpmake.inc svneol=native#text/plain

+ 0 - 0
packages/base/winunits/examples/OOHelper.pp → packages/winunits-base/tests/OOHelper.pp


+ 4 - 4
packages/base/winunits/examples/OOTest.pp → packages/winunits-base/tests/OOTest.pp

@@ -63,21 +63,21 @@ begin
     writeln('done.')
     writeln('done.')
   else
   else
     error;
     error;
-{  
+{  
   try
   try
     writeln('Inserting Table ...');
     writeln('Inserting Table ...');
     Sample.InsertTable(Edit2.Text, Edit1.Text);
     Sample.InsertTable(Edit2.Text, Edit1.Text);
     writeln('Ready');
     writeln('Ready');
-  except
+  except
     Error;
     Error;
   end;
   end;
 }   
 }   
   write('Disconnection from StarOffice ... ');
   write('Disconnection from StarOffice ... ');
   Sample.Disconnect();
   Sample.Disconnect();
-  writeln('done.');
+  writeln('done.');
   writeln('Finished');
   writeln('Finished');
 end.
 end.
-
+
 {
 {
 end;
 end;
 
 

+ 0 - 0
packages/base/winunits/examples/testcom1.pp → packages/winunits-base/tests/testcom1.pp


+ 0 - 0
packages/base/winunits/examples/testcom2.pp → packages/winunits-base/tests/testcom2.pp


+ 0 - 0
packages/base/winunits/examples/testver.pp → packages/winunits-base/tests/testver.pp