paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-05 05:19:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

removed fpc 2.0.2 workaround from turbopower_ipro package

Browse Source 
git-svn-id: trunk@10990 -
This commit is contained in:
vincents 2007-04-23 20:16:54 +00:00
parent 0456a590ff
commit 9df7768691
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/turbopower_ipro/iputils.pas
View File

@ -2697,10 +2697,6 @@ const MimeTypeExt : Array[0..4] of String = ('.htm','.html','.txt','.jpg','.png'
MimeTypes : Array[0..4] of String = ('text/html','text/html','text/plain','image/jpeg','image/png'); MimeTypes : Array[0..4] of String = ('text/html','text/html','text/plain','image/jpeg','image/png');
{$endif} {$endif}
{$IFDEF VER2_0_2}
type
TMyRegistry=Class(TRegistry);
{$ENDIF}
function GetLocalContent(const TheFileName: string): string; function GetLocalContent(const TheFileName: string): string;
var var
Reg : TRegistry; Reg : TRegistry;
@ -2725,14 +2721,8 @@ begin
begin begin
Reg := nil; Reg := nil;
try try
{$IFDEF VER2_0_2}
Reg := TMyRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
TMyRegistry(Reg).SetCurrentKey(Reg.RootKey);
{$ELSE}
Reg := TRegistry.Create; Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT; Reg.RootKey := HKEY_CLASSES_ROOT;
{$ENDIF}
if Reg.OpenKey(Ext, False) then if Reg.OpenKey(Ext, False) then
Result := Reg.ReadString('Content Type'); Result := Reg.ReadString('Content Type');
finally finally