From 23f35d14ad409e90741eee23aed13154bf5ffdd1 Mon Sep 17 00:00:00 2001
From: rosenfield <rosenfield@40cadd2d-89a2-4482-8f20-0232d845d7e3>
Date: Tue, 26 Jun 2007 14:13:13 +0000
Subject: [PATCH] Implement GetCurrentValueSQL and GetNextValueSQL to avoid
 compiler warnings about abstract methods present in an instantiated object.

---
 components/zeosdbo/src/dbc/ZDbcConnection.pas | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/components/zeosdbo/src/dbc/ZDbcConnection.pas b/components/zeosdbo/src/dbc/ZDbcConnection.pas
index daa7f9d1..597b4ba2 100644
--- a/components/zeosdbo/src/dbc/ZDbcConnection.pas
+++ b/components/zeosdbo/src/dbc/ZDbcConnection.pas
@@ -236,8 +236,8 @@ type
     function GetCurrentValue: Int64; virtual;
     function GetNextValue: Int64; virtual;
 
-    function GetCurrentValueSQL: string; virtual; abstract;
-    function GetNextValueSQL: string; virtual; abstract;
+    function GetCurrentValueSQL: string; virtual;
+    function GetNextValueSQL: string; virtual;
 
     function GetConnection: IZConnection; virtual;
 
@@ -1069,12 +1069,12 @@ begin
   Result := 0;
 end;
 
-{
+
 function TZAbstractSequence.GetCurrentValueSQL: String;
 begin
- result:='IMPLEMENT';
+  Result := IntToStr(GetCurrentValue);
 end;
-}
+
 
 {**
   Gets the next unique key generated by this sequence.
@@ -1085,12 +1085,11 @@ begin
   Result := 0;
 end;
 
-{
+
 function TZAbstractSequence.GetNextValueSQL: String;
 begin
- result:='IMPLEMENT';
+  Result := IntToStr(GetNextValue);
 end;
-}
 
 {**
   Sets the block size for this sequence.