Lazarus with ZEOS
lazarus / 16-Databases

----------------------------------------------------------------------
Cuci · 2019-03-03 20:41

Hello, please excuse my bad English . . .
I am transforming my Delphi-2010 program to Lazarus under Linux Mint
18.3. Now I must stop because Lazarus will not acept TZQuery in my
lines . . .
Here the example:
 Delphi :      FData.TableVertragAusglBetrag.Value := Mietdauer *
(FData.FindComponent(PrsAltNeu) as
TQuery).FieldByName('AboHoch').Value;
 Lazarus :    DaMod1.ZQy_vertragAusglBetrag.Value := Mietdauer *
(DaMod1.FindComponent(PrsAltNeu) as
TZQuery).FieldByName('AboHoch').Value;

May be someone knows the reason for : Identifier not found "TZQuery"

Greetings Cuci

Lazarus 1.8.0  /  ZEOS 7.1.4

----------------------------------------------------------------------
GAN · 2019-03-03 21:40

Hi, in the uses section of your data module, do you have the unit
ZDataset ? And in the standar unit has declared the data module unit
in the uses section too?

----------------------------------------------------------------------
Cuci · 2019-03-03 22:00

Hello GAN, thanks for your answer, look please on the declarations in
my program

unit data;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, mysql55conn, sqldb, db, FileUtil, ZConnection,
ZDataset;    
___________________________________________________________________

unit main;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, mysql55conn, sqldb, db, FileUtil,
DBDateTimePicker, Forms,
  Controls, Graphics, Dialogs, ComCtrls, ExtCtrls, Menus, DBGrids,
DbCtrls,
  StdCtrls, DBExtCtrls, Types, data;

----------------------------------------------------------------------
GAN · 2019-03-04 00:14

I'm sorry, I've never used FindComponent. Can't you use it directly?

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
DaMod1.ZQy_vertragAusglBetrag.Value :=
DaMod1.PrsAltNeu.FieldByName('AboHoch').value; 
and see if the error continues?

And by the way, what's ZQy_vertragAusglBetrag? If it's a TZQuery your
code is wrong.

----------------------------------------------------------------------
af0815 · 2019-03-04 07:46

Make a new, empty project an place all parts of zeos you want to use
on it. Look for the generated uses line. Add the same in your project.
And you have to add a requirement for zeos in your project.

----------------------------------------------------------------------
Cuci · 2019-03-04 21:37

Hi Andreas,
how can I add a requirement for Zeos?

----------------------------------------------------------------------
fpcoder · 2019-03-04 22:10

Lazarus Mainmenu -> Project -> Project Inspector -> Add -> Add New
Requirement

----------------------------------------------------------------------
Cuci · 2019-03-05 21:37

Hello, thank you for your help.
I checked all, the invironment ist ok but it dosn't work. So I go
another way with the double of code for this part.
Bye Cuci