I tested the following on a Windows 8 machine: I inserted a Windows registry key for startup. On Windows XP and Windows 7 that were 32-bit worked but on Windows 8 it's 64-bit did not work. Can someone give me a hand? How to insert a registry key...
I have a question about the association of ClientDataSet and TZQuery . I wanted to associate the same table that I selected in my TZQuery , with my ClientDataSet , because I want to generate a .XML file from the table...
I have a system developed in DelphiXE3 and I'm starting to make it modular. However another question arose. In a Unit that will be in one of the modules, I have:
type
TUsuario = record
id:Integer;
idEmpresa:Integer;
usuario:...
I made a simple registry system without involving database, I need to know how I write files from the ClientDataSet registry in an XML file and when I check them they appear on my grid!
Follow the code:
//informações necessarias para inserir no DB.
coo := copy(lTemp,53,6);
ccf := copy(lTemp,47,6);
ecf := copy(lTemp,4,20);
//Data sendo formatada para ser inserida...
I have the following digitable line of a ticket, I need a function to extract the expiration date of it, and then use it in others.
Fingerprint: 74893.12004.21627.007186.37931.981056 1 59490000041480
I know that 5949 is the tick...
I can get the name of the default printer declared Printers in the uses section:
Printer.Printers[Printer.PrinterIndex]
If by chance, during the execution of the program the user changes the default printer. How can I get this new printer (...
Well, I'm trying to use this procedure to delete array items:
Before I declare in Type:
TStringArray = array of string;
In public:
filestoadd : TStringArray;
And no create:
for x:=0 to 5 do begin
SetLength(filestoadd, x);
filestoa...
Some questions arise that do not change the flow of decisions, but may influence application performance by the amount of extra lines depending on how you program.
I like to keep my code as lean as possible, but when it comes to keeping organ...
I have the following code:
procedure TDM_Maquinas.IBQCons_MaquinasCOD_LINHAGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
begin
Text := Sender.AsString;
if Text <> '' then
begin
case Text[1] of
'1' : Tex...