Browse Source

Remove commented code in fillds demo commited by accident

git-svn-id: trunk@31845 -
blikblum 10 years ago
parent
commit
755a6cc776
1 changed files with 4 additions and 2 deletions
  1. 4 2
      packages/fcl-db/src/sqlite/fillds.pas

+ 4 - 2
packages/fcl-db/src/sqlite/fillds.pas

@@ -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.