opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Remove dead code, previously used by rewritten parseSQL().

Browse Source
This commit is contained in:
Ansgar Becker
2010-05-22 06:47:40 +00:00
parent 3bc8ec6612
commit d846ff4326
1 changed files with 0 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
source/helpers.pas
View File

@ -86,7 +86,6 @@ type
function getEnumValues(str: String): String; function getEnumValues(str: String): String;
function IsWhitespace(const c: Char): Boolean; function IsWhitespace(const c: Char): Boolean;
function IsLetter(const c: Char): Boolean; function IsLetter(const c: Char): Boolean;
function IsNumber(const c: Char): Boolean;
function GetSQLSplitMarkers(const SQL: String): TSQLBatch; function GetSQLSplitMarkers(const SQL: String): TSQLBatch;
function SplitSQL(const SQL: String): TSQLBatch; function SplitSQL(const SQL: String): TSQLBatch;
function sstr(str: String; len: Integer) : String; function sstr(str: String; len: Integer) : String;
@ -384,49 +383,6 @@ begin
end; end;
{***
Return true if given character represents a number.
Limitations: only recognizes ANSI numerals.
Eligible for inlining, hope the compiler does this automatically.
}
function IsNumber(const c: Char): Boolean;
var
b: word;
begin
b := ord(c);
Result := (b >= 48) and (b <= 57);
end;
{***
Scan backwards, returning true if SQL matches the given string case sensitively.
Limitations: in case insensitive mode, input must be ANSI and lower case (for speed).
Eligible for inlining, hope the compiler does this automatically.
}
function scanReverse(const haystack: String; hayIndex: integer; const needle: String; needleEnd: integer; insensitive: boolean): boolean;
var
b: word;
c: Char;
begin
while (hayIndex > 0) and (needleEnd > 0) do begin
// Lowercase ANSI A-Z if requested.
if insensitive then begin
b := Ord(haystack[hayIndex]);
if (b > 64) and (b < 91) then b := b - 65 + 97;
c := Char(b);
end else c := haystack[hayIndex];
if c <> needle[needleEnd] then begin
result := false;
exit;
end;
needleEnd := needleEnd - 1;
hayIndex := hayIndex - 1;
end;
result := needleEnd = 0;
end;
function GetSQLSplitMarkers(const SQL: String): TSQLBatch; function GetSQLSplitMarkers(const SQL: String): TSQLBatch;
var var
i, AllLen, DelimLen, DelimStart, LastLeftOffset, RightOffset, LastNewLineOffset: Integer; i, AllLen, DelimLen, DelimStart, LastLeftOffset, RightOffset, LastNewLineOffset: Integer;