47 |
|
|
48 |
|
type |
49 |
|
TIBGUIInterface = interface |
50 |
< |
function ServerLoginDialog(const AServerName: string; |
50 |
> |
function ServerLoginDialog(var AServerName: string; |
51 |
|
var AUserName, APassword: string): Boolean; |
52 |
< |
function LoginDialogEx(const ADatabaseName: string; |
52 |
> |
function LoginDialogEx(var ADatabaseName: string; |
53 |
|
var AUserName, APassword: string; |
54 |
|
NameReadOnly: Boolean): Boolean; |
55 |
|
procedure SetCursor; |
56 |
|
procedure RestoreCursor; |
57 |
|
end; |
58 |
+ |
|
59 |
+ |
{$IF FPC_FULLVERSION < 20700 } |
60 |
+ |
RawByteString = AnsiString; {Needed for backwards compatibility} |
61 |
+ |
{$ENDIF} |
62 |
|
|
63 |
|
TTraceFlag = (tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect, |
64 |
|
tfTransact, tfBlob, tfService, tfMisc); |