chmhelp: less hints

This commit is contained in:
mattias 2024-03-05 15:52:52 +01:00
parent c95c962d48
commit ee91d752bc

View File

@ -215,7 +215,7 @@ end;
function TLHelpConnection.OpenURL(HelpFileName: String; Url: String): TLHelpResponse; function TLHelpConnection.OpenURL(HelpFileName: String; Url: String): TLHelpResponse;
var var
UrlRequest: TUrlRequest; {%H-}UrlRequest: TUrlRequest;
Stream: TMemoryStream; Stream: TMemoryStream;
begin begin
Stream := TMemoryStream.Create; Stream := TMemoryStream.Create;
@ -242,7 +242,7 @@ end;
function TLHelpConnection.OpenContext(HelpFileName: String; function TLHelpConnection.OpenContext(HelpFileName: String;
Context: THelpContext) : TLHelpResponse; Context: THelpContext) : TLHelpResponse;
var var
ContextRequest: TContextRequest; {%H-}ContextRequest: TContextRequest;
Stream: TMemoryStream; Stream: TMemoryStream;
begin begin
Stream := TMemoryStream.Create; Stream := TMemoryStream.Create;
@ -269,7 +269,7 @@ end;
function TLHelpConnection.OpenFile(HelpFileName: String): TLHelpResponse; function TLHelpConnection.OpenFile(HelpFileName: String): TLHelpResponse;
var var
FileRequest : TFileRequest; {%H-}FileRequest : TFileRequest;
Stream: TMemoryStream; Stream: TMemoryStream;
begin begin
Stream := TMemoryStream.Create; Stream := TMemoryStream.Create;
@ -304,7 +304,7 @@ end;
function TLHelpConnection.RunMiscCommand(CommandID: TMiscRequests): TLHelpResponse; function TLHelpConnection.RunMiscCommand(CommandID: TMiscRequests): TLHelpResponse;
var var
MiscRequest : TMiscRequest; {%H-}MiscRequest : TMiscRequest;
Stream: TMemoryStream; Stream: TMemoryStream;
begin begin
Stream := TMemoryStream.Create; Stream := TMemoryStream.Create;