Erro Delphi Type
Oi pessoal acho que todos aqui que trabalham com Delphi ja passou por este problema, migre meu delphi do xe7 para o xe10.2 deu varios erros porem este nao consegui resolver se alguem puder me da uma ajuda.
Expected an identifier but received TYPE at line
Grato e agradeço.
Expected an identifier but received TYPE at line
Grato e agradeço.
Anderson Saldanha
Curtidas 0
Respostas
Luiz Vichiatto
19/10/2019
Oi pessoal acho que todos aqui que trabalham com Delphi ja passou por este problema, migre meu delphi do xe7 para o xe10.2 deu varios erros porem este nao consegui resolver se alguem puder me da uma ajuda.
Expected an identifier but received TYPE at line
Grato e agradeço.
Expected an identifier but received TYPE at line
Grato e agradeço.
Poderia postar a linha que está ocorrendo o erro?
GOSTEI 0
Anderson Saldanha
19/10/2019
Oi pessoal acho que todos aqui que trabalham com Delphi ja passou por este problema, migre meu delphi do xe7 para o xe10.2 deu varios erros porem este nao consegui resolver se alguem puder me da uma ajuda.
Expected an identifier but received TYPE at line
Grato e agradeço.
Expected an identifier but received TYPE at line
Grato e agradeço.
Poderia postar a linha que está ocorrendo o erro?
uses
System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.MySQL,
FireDAC.Phys.MySQLDef, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client,
FireDAC.VCLUI.Wait, ppDB, Vcl.Imaging.pngimage, ppCtrls, DBAccess, MyAccess,
ppBands, ppClass, ppParameter, ppDesignLayer, ppPrnabl, ppCache, ppProd,
ppReport, ppComm, ppRelatv, ppDBPipe, FireDAC.Comp.UI, ppDB, Dialogs,
type
TDM = class(TDataModule)
conexao: TFDConnection;
sql_produtos: TFDQuery;
ds_ListarProdutos: TDataSource;
FDG_cursor: TFDGUIxWaitCursor;
sql_clientes: TFDQuery;
ds_clientes: TDataSource;
FD_clientes: TFDTable;
SQL_carrinho: TFDQuery;
SQL_carrinhocar_id: TFDAutoIncField;
SQL_carrinhocar_produto: TIntegerField;
SQL_carrinhocar_qtd: TIntegerField;
ds_carrinho: TDataSource;
SQL_produtosAdd: TFDQuery;
SQL_carrinhopro_id: TIntegerField;
SQL_carrinhopro_nome: TStringField;
SQL_carrinhopro_barras: TStringField;
SQL_carrinhopro_custo: TFloatField;
SQL_carrinhopro_preço: TFloatField;
SQL_carrinhopro_estoque: TIntegerField;
SQL_carrinhocar_sub: TFloatField;
SQL_ESTOQUE: TFDQuery;
sql_forma: TFDQuery;
sql_formaforma_id: TFDAutoIncField;
sql_formaforma_nome: TStringField;
ds_forma: TDataSource;
TB_pedidos: TFDTable;
TB_pedidosped_id: TFDAutoIncField;
TB_pedidosped_cod_venda: TStringField;
TB_pedidosped_data: TDateField;
TB_pedidosped_cliente: TIntegerField;
TB_pedidosped_vendedor: TIntegerField;
TB_pedidosped_forma: TIntegerField;
TB_pedidosped_valor: TFloatField;
TB_itens: TFDTable;
TB_itensitem_id: TFDAutoIncField;
TB_itensitem_produto: TIntegerField;
TB_itensiten_qtd: TIntegerField;
TB_itensiten_cod_pedido: TStringField;
TB_itensiten_preço: TFloatField;
SQL_vendedor: TFDQuery;
SQL_vendedorvend_id: TFDAutoIncField;
SQL_vendedorvend_nome: TStringField;
SQL_vendedorvend_senha: TStringField;
SQL_vendedorvend_login: TStringField;
SQL_Recibo: TFDQuery;
DS_Recibo: TDataSource;
DBP_Recibo: TppDBPipeline;
RP_recibo: TppReport;
ppHeaderBand1: TppHeaderBand;
ppDetailBand1: TppDetailBand;
ppFooterBand1: TppFooterBand;
ppLabel1: TppLabel;
ppLabel2: TppLabel;
ppLabel3: TppLabel;
ppLabel4: TppLabel;
ppDBText1: TppDBText;
ppLabel5: TppLabel;
ppDBText2: TppDBText;
ppLabel6: TppLabel;
ppDBText3: TppDBText;
ppDBText4: TppDBText;
ppLabel7: TppLabel;
ppLabel9: TppLabel;
ppDBText6: TppDBText;
ppSummaryBand1: TppSummaryBand;
ppLine3: TppLine;
ppLabel10: TppLabel;
ppLabel11: TppLabel;
ppDBText7: TppDBText;
ppPageStyle1: TppPageStyle;
ppDesignLayer2: TppDesignLayer;
ppLabel12: TppLabel;
ppDBText8: TppDBText;
ppLabel13: TppLabel;
ppDBText9: TppDBText;
rpb_relatoriovendas: TppReport;
ppParameterList2: TppParameterList;
ppDesignLayers2: TppDesignLayers;
ppDesignLayer3: TppDesignLayer;
ppHeaderBand2: TppHeaderBand;
ppDetailBand2: TppDetailBand;
ppFooterBand2: TppFooterBand;
ppLabel14: TppLabel;
ppGroup1: TppGroup;
ppGroupHeaderBand1: TppGroupHeaderBand;
ppGroupFooterBand1: TppGroupFooterBand;
ppLabel15: TppLabel;
ppDBText10: TppDBText;
ppLabel16: TppLabel;
ppDBText11: TppDBText;
ppLabel17: TppLabel;
ppDBText12: TppDBText;
ppLabel18: TppLabel;
ppDBText13: TppDBText;
ppLabel19: TppLabel;
ppDBText14: TppDBText;
ppDBText15: TppDBText;
ppDBText16: TppDBText;
ppDBText17: TppDBText;
ppLabel20: TppLabel;
ppLabel21: TppLabel;
ppLabel22: TppLabel;
ppLabel23: TppLabel;
ppLabel24: TppLabel;
ppLine5: TppLine;
ppLine7: TppLine;
ppLabel25: TppLabel;
ppLine4: TppLine;
ppLine2: TppLine;
ppLine1: TppLine;
ppDBCalc1: TppDBCalc;
ppLabel8: TppLabel;
ppDBText19: TppDBText;
sql_listarvendedor: TFDQuery;
sql_listarvendedorvend_id: TFDAutoIncField;
sql_listarvendedorvend_nome: TStringField;
sql_listarvendedorvend_senha: TStringField;
sql_listarvendedorvend_login: TStringField;
ds_vendedor: TDataSource;
FD_Etiquetas: TFDTable;
sql_etiquetas: TFDQuery;
FD_Etiquetaseti_id: TFDAutoIncField;
FD_Etiquetaseti_produto: TIntegerField;
sql_etiquetaseti_id: TIntegerField;
sql_etiquetaseti_produto: TIntegerField;
sql_etiquetaspro_id: TIntegerField;
sql_etiquetaspro_nome: TStringField;
sql_etiquetaspro_barras: TStringField;
sql_etiquetaspro_custo: TFloatField;
sql_etiquetaspro_preço: TFloatField;
sql_etiquetaspro_estoque: TIntegerField;
ds_etiquetas: TDataSource;
sql_etiquetasQTD: TLargeintField;
sql_etiquetasProntas: TFDQuery;
ds_etiquetasProntas: TDataSource;
sql_etiquetasProntaseti_id: TFDAutoIncField;
sql_etiquetasProntaseti_produto: TIntegerField;
sql_etiquetasProntaspro_id: TFDAutoIncField;
sql_etiquetasProntaspro_nome: TStringField;
sql_etiquetasProntaspro_barras: TStringField;
sql_etiquetasProntaspro_custo: TFloatField;
sql_etiquetasProntaspro_preço: TFloatField;
sql_etiquetasProntaspro_estoque: TIntegerField;
TB_parcelas: TFDTable;
TB_parcelascarne_id: TFDAutoIncField;
TB_parcelascarne_cod: TStringField;
TB_parcelascarne_cliente: TIntegerField;
TB_parcelascarne_n_parcelas: TIntegerField;
TB_parcelascarne_valor_parcela: TFloatField;
TB_parcelascarne_status: TStringField;
TB_parcelascarne_data_pago: TDateField;
TB_parcelasProntas: TFDTable;
TB_parcelasProntascarne_id: TFDAutoIncField;
TB_parcelasProntascarne_cod: TStringField;
TB_parcelasProntascarne_cliente: TIntegerField;
TB_parcelasProntascarne_n_parcelas: TIntegerField;
TB_parcelasProntascarne_valor_parcela: TFloatField;
TB_parcelasProntascarne_status: TStringField;
TB_parcelasProntascarne_data_pago: TDateField;
sql_prazo: TFDQuery;
sql_prazoped_id: TFDAutoIncField;
sql_prazoped_cod_venda: TStringField;
sql_prazoped_data: TDateField;
sql_prazoped_cliente: TIntegerField;
sql_prazoped_vendedor: TIntegerField;
sql_prazoped_forma: TIntegerField;
sql_prazoped_valor: TFloatField;
sql_prazoped_estoque: TIntegerField;
sql_prazocli_nome: TStringField;
sql_prazocli_fone: TStringField;
sql_prazocli_endereco: TStringField;
sql_prazoforma_id: TFDAutoIncField;
sql_prazoforma_nome: TStringField;
ds_prazo: TDataSource;
ds_parcelas: TDataSource;
TB_parcelascarne_vence: TDateField;
TB_parcelasProntascarne_vence: TDateField;
ppDBText5: TppDBText;
sql_clientescli_id: TIntegerField;
sql_clientescli_nome: TStringField;
sql_clientescli_fone: TStringField;
sql_clientescli_endereco: TStringField;
FD_clientescli_id: TIntegerField;
FD_clientescli_nome: TStringField;
FD_clientescli_fone: TStringField;
FD_clientescli_endereco: TStringField;
conecta: TMyConnection;
sql_prazocli_id: TIntegerField;
mysql_link: TFDPhysMySQLDriverLink;
sql_produtospro_id: TFDAutoIncField;
sql_produtospro_nome: TStringField;
sql_produtospro_barras: TStringField;
sql_produtospro_custo: TFloatField;
sql_produtospro_preço: TFloatField;
sql_produtospro_estoque: TIntegerField;
sql_produtospro_preco_prazo: TFloatField;
sql_produtospro_ref: TStringField;
sql_clientescli_numero: TStringField;
GOSTEI 0