paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 14:12:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test of insert works now

Browse Source
This commit is contained in:
michael 1999-12-01 10:11:58 +00:00
parent 82fd1d3b09
commit 3b8d4d2b32
1 changed files with 39 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
fcl/db/tested.pp
View File

@ -153,6 +153,41 @@ begin
Writeln ('Doing Prior');
Writeln ('----------');
Prior;
For I:=0 to FieldCount-1 do
DumpFieldData(Fields[i]);
Writeln ('Doing Insert at position 5');
writeln ('--------------------------');
first;
for I:=1 to 4 do
Next;
Insert;
FieldByName('Name').AsString:='Insertname';
FieldByName('Height').AsFloat:=8.99E8;
FieldByName('LongField').AsLongInt:=888;
FieldByName('ShoeSize').AsLongInt:=888;
FieldByName('WordField').AsLongInt:=888;
FieldByName('BooleanField').AsBoolean:=True;
FieldByName('DateTimeField').AsDateTime:=Now;
FieldByName('DateField').AsDateTime:=Date;
FieldByName('TimeField').AsDateTime:=Time;
Post;
Writeln ('Doing field dump');
writeln ('----------------');
For I:=0 to FieldCount-1 do
DumpFieldData(Fields[i]);
Writeln ('Doing Prior');
Writeln ('-----------');
Prior;
For I:=0 to FieldCount-1 do
DumpFieldData(Fields[i]);
Writeln ('Doing Next');
Writeln ('----------');
Next;
For I:=0 to FieldCount-1 do
DumpFieldData(Fields[i]);
Writeln ('Doing Next');
Writeln ('----------');
Next;
For I:=0 to FieldCount-1 do
DumpFieldData(Fields[i]);
Writeln ('Closing.');
@ -161,7 +196,10 @@ begin
end.
{
$Log$
Revision 1.1 1999-11-14 19:26:17 michael
Revision 1.2 1999-12-01 10:11:58 michael
+ test of insert works now
Revision 1.1 1999/11/14 19:26:17 michael
+ Initial implementation
Revision 1.3 1999/11/11 17:31:09 michael