azzazello / gpdelphiunits Goto Github PK
View Code? Open in Web Editor NEWAutomatically exported from code.google.com/p/gpdelphiunits
Automatically exported from code.google.com/p/gpdelphiunits
GpCommandLineParser.pas isn't compatible with Delphi XE 1
I need to define unit aliases :
System.StrUtils=StrUtils
System.Classes=Classes
System.Generics.Defaults=Generics.Defaults
System.Generics.Collections=Generics.Collections
And TIStringComparer interface doesn't exist
Original issue reported on code.google.com by [email protected]
on 15 May 2015 at 9:56
What steps will reproduce the problem?
1. Copile GpStringHash with D7
What is the expected output? What do you see instead?
Will not compile
What version of the product are you using? On what operating system?
Latest from SVN
Please provide any additional information below.
See "patch" from attachments, get it to compile is pretty trivial) DSiWin32.pas
I had to revert to the 1.55 version.
There should be some other enumerator implementation for Early Delphi versions,
I could implement, if you just could give any info how you would implement it
(so no need to send patch that you'll ever merge :) )
-Tommi Prami-
Original issue reported on code.google.com by [email protected]
on 30 Jun 2010 at 2:43
Attachments:
In Unit GpHugeF.pas
the method OffsetPtr calculate a address in DWORD. This will fail in x64 and
high pointers.
Suggestion is ...
function OffsetPtr(ptr: pointer; offset: DWORD): pointer;
begin
//BUG Result := pointer(DWORD(ptr)+offset);
Result := pointer(NativeUInt(ptr)+offset);
end; { OffsetPtr }
Original issue reported on code.google.com by [email protected]
on 25 Mar 2015 at 8:48
What steps will reproduce the problem?
Compile and run this code:
{$APPTYPE CONSOLE}
uses
Windows, SysUtils, DSiWin32;
var
S, S1: string;
DSiReg: TDSiRegistry;
begin
DSiReg := TDSiRegistry.Create;
S := '0123456789';
DSiReg.RootKey:=HKEY_CURRENT_USER;
if DSiReg.OpenKey('Software\_Test', True) then
DSiReg.WriteBinary('TESTKEY', S);
S1 := DSiReg.ReadBinary('TESTKEY', '123');
WriteLn(S1);
FreeAndNil(DSiReg);
end.
What is the expected output?
0123456789
What do you see instead?
01234
What version of the product are you using? On what operating system?
Windows7 x32, Delphi 2009 or higher, DSiWin32 1.59b
Please provide any additional information below.
Fix:
Change line #1972 to
WriteBinaryData(name, pointer(data)^, Length(data)*SizeOf(data[1]));
Original issue reported on code.google.com by [email protected]
on 5 Dec 2010 at 10:21
In Unit GpHugeF.pas
the class (and some functions) use a Buffer-Offset. But this offset is defined
as DWORD.
Is there any possibility in X64 and very large files (I have >3GB-Files), that
the BufOffset is too small?
TGpHugeFile = class
private
hfAsynchronous : boolean;
hfBlockSize : DWORD;
(...)
hfBufFilePos : HugeInt; //cached FilePos (according the current hfBufOffs)
hfBufOffs : DWORD; //current position inside the buffer
Suggestion:
hfBufOffs : HugeInt;
Original issue reported on code.google.com by [email protected]
on 25 Mar 2015 at 8:58
What steps will reproduce the problem?
1. Compile DSiWin32 with D2009
What is the expected output? What do you see instead?
C:\Dev\Delphi\Lib\OmniThreadLibrary\src\DSiWin32.pas(6396,53): error E2003:
E2003 Undeclared identifier: 'SizeOf'
What version of the product are you using? On what operating system?
DSiWin32 1.72
Please provide any additional information below.
Construction "NonClientMetrics.SizeOf" supported since D2010, need change
{$IFDEF Unicode}TNonClientMetrics.SizeOf{$ELSE}SizeOf(TNonClientMetrics){$ENDIF}
to
{$IF CompilerVersion <
21.0}SizeOf(TNonClientMetrics){$ELSE}TNonClientMetrics.SizeOf{$IFEND}
Original issue reported on code.google.com by [email protected]
on 10 Sep 2013 at 1:16
A declarative, efficient, and flexible JavaScript library for building user interfaces.
๐ Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
An Open Source Machine Learning Framework for Everyone
The Web framework for perfectionists with deadlines.
A PHP framework for web artisans
Bring data to life with SVG, Canvas and HTML. ๐๐๐
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
Some thing interesting about web. New door for the world.
A server is a program made to process requests and deliver data to clients.
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
Some thing interesting about visualization, use data art
Some thing interesting about game, make everyone happy.
We are working to build community through open source technology. NB: members must have two-factor auth.
Open source projects and samples from Microsoft.
Google โค๏ธ Open Source for everyone.
Alibaba Open Source for everyone
Data-Driven Documents codes.
China tencent open source team.