opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Implement GetCurrentValueSQL and GetNextValueSQL to avoid compiler warnings about abstract methods present in an instantiated object.

Browse Source
This commit is contained in:
rosenfield
2007-06-26 14:13:13 +00:00
parent 27b89334ad
commit 23f35d14ad
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/zeosdbo/src/dbc/ZDbcConnection.pas
View File

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