Registration disabled at the moment Read more...
×


direktor05
Members-
Content Count
81 -
Joined
-
Last visited
Everything posted by direktor05
-
I get errors like: Could not compile used unit Forms, StdCtrls Unit Forms not found inside some components pas files. Mostly using this component in Delphi 12: https://github.com/rofl0r/TntUnicode What could be the problem and how to solve it? Is it possible that some components Forms class definition of overload is overriding standard VCL units?
-
I have some paths screwed. It calls me always the wrong package that I have fixed already, still shows me the wrong unfixed code.
-
Damn you are genius! VCL was not added in the scope.
-
Yea right, here is empty
-
It maybe not complete but for sure not empty. OnGuard is the component called from main project reg4.exe as seen below via another package. EviTrivial unit (from another package) will include OnGuard package However OnGuard is perfectly well built without errors on it's own: But when built inside reg4.exe project it will throw errors
-
Here you have screenshot
-
The biggest problem is if I throw this components out would have to rewrite a lot of code which would take me more time than including them.
-
Exactly. Because it's an old app still requiring components from this package. Like TnTButtons and others. But it's making a mess. Also TPOnGuard also causing the same kind of problems. It can be built by itself without errors if included in another project via uses it causes Forms not found error and similar standard Delphi VCLs can no longer be recognized.
-
Int64 and other ints conflict
direktor05 posted a topic in Algorithms, Data Structures and Class Design
Hello, can someone explain what is wrong here and why this doesn't fit together and why I can't typecast Int64(Integer): Operator not applicable to this operand type error below: How to fix this? function TDIUnicodeWriter.WriteDecimalNumber(ValueNumber: Int64): Boolean; label 1; var StartDiv: Int64; i: Cardinal; begin if ValueNumber < 0 then -> HERE begin Result := WriteCharW(WC_HYPHEN_MINUS); if not Result then Exit; ValueNumber := -ValueNumber; -> HERE end; StartDiv := 1000000000000000000; -> HERE (Incompatible types) repeat i := ValueNumber div StartDiv; -> HERE if i > 0 then Break; StartDiv := StartDiv div 10; -> HERE if StartDiv < 10 then goto 1; -> HERE until False; repeat Result := WriteCharW(WA_NUM_TO_HEX[Cardinal(i)]); if not Result then Exit; Dec(ValueNumber, i * StartDiv); StartDiv := StartDiv div 10; -> HERE if StartDiv < 10 then Break; -> HERE i := ValueNumber div StartDiv; -> HERE until False; 1: Result := WriteCharW(WA_NUM_TO_HEX[ValueNumber]); -> (Incompatible types) end; -
Int64 and other ints conflict
direktor05 replied to direktor05's topic in Algorithms, Data Structures and Class Design
I fixed it using ChatGPT but I can't understand it properly -
Hello, I have similar problem as here: Delphi package was create in Delphi XE2, now I'm trying to install it with Delphi 12. Build and Compile goes without problems, only Installing is the problem. It says Can't load package, specified module can't be found. I created new project, added same files, still the same error. What is wrong?
-
Yes I need to rebuild dll in C++ but don't have right sources.
-
Path missing to pcre dll was missing. Now I get Access Violation at rtl290.dpc error
-
And this module is PCRE Delphi VCL wrapper around the open source PCRE library, which implements Perl-Compatible Regular Expressions.
-
This module depends on another package that has the same problem and is called in uses. That package also displays same error. And the only requires file is rtl.dcp
-
Here: The packages below I think they are using Delphi 12, since I don't have XE2 installed. I think it's nothing unusual. I think some path might be missing somewhere.
-
Hello, Does anybody know of a Grid or ListView component that has both checkbox and combobox? I'm trying to get rid of LMD treelist. Should support x64. Regards
-
I'm getting a ton of issues converting from x32 to x64. First one: var Size: Cardinal; Handle: Cardinal; FileName: String; begin if ModuleName = '' then FileName := OAExeName else FileName := ModuleName; Size := GetFileVersionInfoSize(PWideChar(FileName), Handle); Size returned is 0 and the error is: VerQueryValue (Language in Project Settings/Version Info has to be set to English (United Kingdom)) var SubBlock: String; ValuePointer: Pointer; ValueLen: Cardinal; begin SubBlock := '\StringFileInfo\080904E4\' + ValueName; TestGetLastError(VerQueryValue(@FBuffer[0], PWideChar(SubBlock), ValuePointer, ValueLen), 'VerQueryValue (Language in Project Settings/Version Info has to be set to English (United Kingdom))'); Result := PChar(ValuePointer); So what is wrong? I assume it's the variable (un)signed-ness again. GetFileVersionInfoSize(PWideChar(FileName), Handle) - Handle must be Cardinal according to API definition. How can I fix this? Another one is array of Byte variable is causing AV error.
-
Does anyone know why this cxTreeList does not display text in front of checkbox? There is space but characters are not seen. I tried setting styles and font color it doesn't work.
-
Also how to get column property values? cxTreeList.Columns[0].Properties.Items[1].Text does not work.
-
You mean because I'm too poor from Africa? 🙂