possible bug waiting to happen

[CharlesMcAllister]

Something I noticed might become a bug in Zeos.
There is an uninitialized variable in TZInterbase6Statement.ExecuteQuery...

[syntax="delphi"]
function TZInterbase6Statement.ExecuteQuery(const SQL: string): IZResultSet;
var
Cursor: string;
begin
// Cursor is not initialized
...
if CursorName <> '' then
begin
Cursor := CursorName;
GetPlainDriver.isc_dsql_set_cursor_name(@FStatusVector,
@StmtHandle, PChar(Cursor), 0);
CheckInterbase6Error(SQL);
end;

// cursor could have garbage in it

LastResultSet := GetCachedResultSet(SQL, Self,
TZInterbase6ResultSet.Create(Self, SQL, StmtHandle, Cursor,
SQLData, nil, FCachedBlob));
...
end;
[/syntax]

[CharlesMcAllister]

In case i'm not making myself clear, the bug will show up in LastResultSet, as it could potentially have a garbage cursor name.

I haven't yet had a need to look at this cursor value, so I haven't come across a particular bug, but thought I would pass this on anyway.