mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 13:59:28 +02:00
* demoes moved for winunits-base
git-svn-id: trunk@9640 -
This commit is contained in:
parent
df33165341
commit
149136ba9d
10
.gitattributes
vendored
10
.gitattributes
vendored
@ -1445,11 +1445,6 @@ packages/base/sqlite/testapiv3x.pp -text
|
||||
packages/base/winunits/Makefile 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/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.pp 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/shlobj.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.fpc svneol=native#text/plain
|
||||
packages/winunits-jedi/fpmake.inc svneol=native#text/plain
|
||||
|
@ -63,21 +63,21 @@ begin
|
||||
writeln('done.')
|
||||
else
|
||||
error;
|
||||
{
|
||||
{
|
||||
try
|
||||
writeln('Inserting Table ...');
|
||||
Sample.InsertTable(Edit2.Text, Edit1.Text);
|
||||
writeln('Ready');
|
||||
except
|
||||
except
|
||||
Error;
|
||||
end;
|
||||
}
|
||||
write('Disconnection from StarOffice ... ');
|
||||
Sample.Disconnect();
|
||||
writeln('done.');
|
||||
writeln('done.');
|
||||
writeln('Finished');
|
||||
end.
|
||||
|
||||
|
||||
{
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user