Questions tagged as 'delphi'

Tagged questions
1
answer

Argox Label Printer: A_Prn_Text - Variable Is Error

Follow the function: function A_Prn_Text ( x,y,ori,font,typee,hor_factor,ver_factor:integer;mode:char;numeric:integer;data:String):integer;stdcall;external 'WINPPLA.DLL'; Follow the code: while not DMRetaguarda.QConItem.eof do begin...
asked by 24.07.2014 / 14:59
2
answers

RAD Studio XE6 does not connect to any database!

Program used: RAD Studio XE6 (32bits). Problem: When creating a new Desktop or Mobile project, when trying to configure the connection to any database, either by FireDAC or dbExpress, the following error occurs: "DBX Error: Driver could no...
asked by 15.08.2014 / 16:10
1
answer

When repairing cause error - 'Lost connection to MySQL server during query' - Aguma Idea?

Follow the code: ZQuery1.Close; ZQuery1.SQL.Clear; ZQuery1.SQL.Add('SHOW TABLES FROM '+zConnRepara.Database); ZQuery1.Open; ZQuery1.First; Progressbar1.Max := ZQuery1.RecordCount; lTemp := ''; Paramet...
asked by 13.08.2014 / 13:41
1
answer

Flag Reload / Cache WinInet

I have the following problem, I have a function in Delphi that executes Online a PHP file that provides the SERIAL of the PROGRAM It happens, that when I execute this function it gets the same SERIAL, because it is in the CACHE of the Machine. I...
asked by 21.06.2014 / 17:35
1
answer

Comparison works, but data listing does not

procedure TfrmGrid.btnLoadClick(Sender: TObject); var txt: TextFile; treg, lreg, dc: integer; valortxt, valorbd : double; dt1, dt2,lTemp, valor, dtcompratxt, numnf, coo,ccf: String; dtcompra: TDateTime; begin lreg:= 1; treg:= 0; dc := 0; Sta...
asked by 15.05.2014 / 03:24
2
answers

Side Menu Display on a Form

I have a form that displays a side menu according to this code: procedure TFMainMenu.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin PanelMenu.Visible := (Mouse.CursorPos.X < FMainMenu.Width -(0.95*FMainMenu.Widt...
asked by 11.07.2014 / 19:45
1
answer

Recognize .INI file / redo .INI file in case of file deletion

The following is the code below: procedure TfrmSelection.FormActivate(Sender: TObject); var ArqIni: TIniFile; begin ArqIni := ArqIni.Create('C:\sga\saga.ini'); try ZConnection1.Connected := false; ZConnection1.HostName...
asked by 08.05.2014 / 15:44
1
answer

Import data from a TXT and play the required positions in the StringGrid

Follow the code that I developed along with my co-worker. procedure TfrmGrid.Button1Click(Sender: TObject); var arq: TStringGrid; txt: TextFile; c, l, treg : integer; lTemp: String; begin treg := 0;...
asked by 06.05.2014 / 20:17
1
answer

One line information of the first StringGrid (Delphi)

Follow the code: procedure TfrmGrid.sgCuponsDblClick(Sender: TObject); var txt: TextFile; l, i : integer; lTemp, CFF, COO: String; begin i:=0; l:=0; CFF := sgCupons.Cells[0,sgCupons.Row]; COO := sgCupons.Cells[1,sgCup...
asked by 07.05.2014 / 15:46
2
answers

Strong Report + Masks

Does anyone know how I can format a CPF / CNPJ in a report in strongs Report? procedure TFRelMenLac.RLBand4BeforePrint(Sender: TObject; var PrintIt: Boolean); var ltemp : string; begin ltemp := dmretaguarda.qlac.fieldbyname('dccli').asstri...
asked by 02.07.2014 / 22:32