paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 11:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Remove commented code in fillds demo commited by accident

Browse Source 
git-svn-id: trunk@31845 -
This commit is contained in:
blikblum 2015-09-27 12:01:13 +00:00
parent 776534a43d
commit 755a6cc776
1 changed files with 4 additions and 2 deletions

6
packages/fcl-db/src/sqlite/fillds.pas
View File

@ -52,7 +52,7 @@ begin
FieldByName('Currency').AsFloat:=1.23;
FieldByName('LargeInt').AsLargeInt:=2163871263187263;
Post;
{
Append;
FieldByName('Integer').AsInteger:=101;
FieldByName('String').AsString:='Américo';
@ -66,6 +66,7 @@ begin
if FileExists(MEMOTEST_FILENAME) then
TMemoField(FieldByName('Memo')).LoadFromFile(MEMOTEST_FILENAME);
Post;
Append;
FieldByName('Integer').AsInteger:=102;
FieldByName('String').AsString:='Ana';
@ -76,6 +77,7 @@ begin
FieldByName('Date').AsDateTime:=Date;
FieldByName('LargeInt').AsLargeInt:=9223372036854775807;
Post;
Append;
FieldByName('Integer').AsInteger:=103;
FieldByName('String').AsString:='Luiza';
@ -86,12 +88,12 @@ begin
FieldByName('Date').AsDateTime:=Date;
FieldByName('Currency').AsFloat:=20.08;
Post;
//Save the added data to database
ApplyUpdates;
writeln('ReturnString after ApplyUpdates: ',ReturnString);
//Is not necessary to call Close. Destroy will call it.
//Close;
}
Destroy;
end;
end.