最新的Firebird 2.5.x数据库可以在Classic,SuperClassic或SuperServer模式下运行.如何检查已安装的数据库正在运行的这些模式中的哪一种?
在将一些代码从Delphi 7移植到Delphi 2010时,我正在重写我的LoadTextFromFile()函数.
function LoadTextFromFile(const aFullFileName: string): string;
var
lBuffer: TBytes;
lEncoding: TEncoding;
lFileStream: TFileStream;
lSize: Integer;
begin
if not FileExists(aFullFileName) then
begin
raise Exception.Create('File "' + aFullFileName + '" not found.');
end;
lFileStream := TFileStream.Create(aFullFileName, fmOpenRead + fmShareDenyNone);
try
if lFileStream.Size <= 0 then
begin
Result := '';
end
else
begin
lSize := lFileStream.Size - lFileStream.Position;
SetLength(lBuffer, lSize);
// Read file into TBytes buffer
lFileStream.Read(lBuffer[0], lSize);
// Read encoding from buffer
TEncoding.GetBufferEncoding(lBuffer, lEncoding);
// Get string from buffer
Result …Run Code Online (Sandbox Code Playgroud) 如果在Delphi 2010或XE中将Application.MainFormOnTaskbar设置为true,则所有辅助表单始终位于主窗口的前面。将Popupmode或PopupParent属性设置为什么都没有关系。但是,我有一些辅助窗口,希望可以在主窗体后面显示。
如果将MainFormOnTaskbar设置为false,则可以使用,但是Windows 7功能会损坏(Alt-tab,Windows栏图标等)。
我如何在保持Windows 7功能正常运行的同时仍允许辅助窗体隐藏在主窗体后面?