paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:59:12 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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