Recent

Author Topic: "Fatal: Unit StdCtrlsuses searched but StdCtrls found" Help!  (Read 1578 times)

AfootDesert41

  • New Member
  • *
  • Posts: 15
"Fatal: Unit StdCtrlsuses searched but StdCtrls found" Help!
« on: December 26, 2018, 08:31:33 am »
Hello again programmers! So, here is how this problem started... I wanted to get user input data to a Tedit bar which I wanted to be stored in a String type variable, so, reading in forums and trying stuff I ended up declaring a public variable on the first unit, then I added a new uses clause on the unit where the Tedit is after Implementation and I got the error, to be honest I was (am) a little lost when trying this, so I really dont know If it's the right way and I'm doing it wrong or if I'm doing all wrong, here is the code from the two Units:

Main unit Code:
Code: Pascal  [Select][+][-]
  1. unit SistemaCajaRegistradoraElCampo;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. interface
  6.  
  7. uses
  8.   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  9.   StdCtrls, ExtCtrls, Buttons, Grids, ColorBox, ValEdit, PairSplitter,
  10.   sistemacajaregistradoraelcampoagregarproducto,
  11.   sistemacajaregistradoraelcampoiniciarsesioncajero,
  12.   sistemacajaregistradoraelcampometododepago,
  13.   sistemacajaregistradoraelcampoagregarcliente;
  14.  
  15. type
  16.  
  17.   { TSistemaDeCajaSupermercadoElCampo }
  18.  
  19.   TSistemaDeCajaSupermercadoElCampo = class(TForm)
  20.     BotonAgregarProducto: TBitBtn;
  21.     BotonEliminarProducto: TBitBtn;
  22.     BotonFacturarProducto: TButton;
  23.     BotonIniciarSesion: TButton;
  24.     BotonAgregarCliente: TButton;
  25.     BotonBorrarCliente: TButton;
  26.     DatosDelCliente: TLabel;
  27.     Nombrecajero: TEdit;
  28.     TotalAPagarBarra: TEdit;
  29.     IVABarra: TEdit;
  30.     IVA: TLabel;
  31.     TotalAPagar: TLabel;
  32.     SubTotalBarra: TEdit;
  33.     SubTotal: TLabel;
  34.     NombreRazonSocialBarra: TEdit;
  35.     ApellidoBarra: TEdit;
  36.     CedulaRifBarra: TEdit;
  37.     DireccionBarra: TEdit;
  38.     NombreRazonSocial: TLabel;
  39.     Apellido: TLabel;
  40.     CedulaRif: TLabel;
  41.     Direccion: TLabel;
  42.     CajeroLogeado: TLabel;
  43.     NombredelSupermercado: TLabel;
  44.     VentanaDeIngresoProductos: TPanel;
  45.     ListadoDeProductosEscaneadosOIngresados: TStringGrid;
  46.     procedure ApellidoBarraChange(Sender: TObject);
  47.     procedure BotonAgregarClienteClick(Sender: TObject);
  48.     procedure BotonAgregarProductoClick(Sender: TObject);
  49.     procedure BotonFacturarProductoClick(Sender: TObject);
  50.     procedure BotonIniciarSesionClick(Sender: TObject);
  51.     procedure BotonBorrarClienteClick(Sender: TObject);
  52.     procedure CedulaRifBarraChange(Sender: TObject);
  53.     procedure DatosDelClienteClick(Sender: TObject);
  54.     procedure DireccionClick(Sender: TObject);
  55.     procedure NombrecajeroChange(Sender: TObject);
  56.     procedure IVABarraChange(Sender: TObject);
  57.     procedure NombredelSupermercadoClick(Sender: TObject);
  58.     procedure NombreRazonSocialControlBorderSpacingChange(Sender: TObject);
  59.     procedure SubTotalClick(Sender: TObject);
  60.     procedure NombreRazonSocialBarraChange(Sender: TObject);
  61.     procedure Edit2Change(Sender: TObject);
  62.     procedure DireccionBarraChange(Sender: TObject);
  63.     procedure FormCreate(Sender: TObject);
  64.     procedure NombreRazonSocialClick(Sender: TObject);
  65.     procedure Label2Click(Sender: TObject);
  66.     procedure Label3Click(Sender: TObject);
  67.     procedure CajeroLogeadoClick(Sender: TObject);
  68.     procedure Label7Click(Sender: TObject);
  69.     procedure ListBox1Click(Sender: TObject);
  70.   private
  71.  
  72.   public
  73.  
  74.   end;
  75.  
  76. var
  77.   SistemaDeCajaSupermercadoElCampo: TSistemaDeCajaSupermercadoElCampo;
  78.   NombreORazonSocial_ing,Apellido_ing,CedulaORIF_ing,Direccion_ing:String;
  79.  
  80. implementation
  81.  
  82. {$R *.lfm}
  83.  
  84. { TSistemaDeCajaSupermercadoElCampo }
  85.  
  86. procedure TSistemaDeCajaSupermercadoElCampo.NombreRazonSocialBarraChange(Sender: TObject);
  87. begin
  88.  
  89. end;
  90.  
  91. procedure TSistemaDeCajaSupermercadoElCampo.DatosDelClienteClick(Sender: TObject);
  92. begin
  93.  
  94. end;
  95.  
  96. procedure TSistemaDeCajaSupermercadoElCampo.DireccionClick(Sender: TObject);
  97. begin
  98.  
  99. end;
  100.  
  101. procedure TSistemaDeCajaSupermercadoElCampo.NombrecajeroChange(Sender: TObject);
  102. begin
  103.  
  104. end;
  105.  
  106. procedure TSistemaDeCajaSupermercadoElCampo.IVABarraChange(Sender: TObject);
  107. begin
  108.  
  109. end;
  110.  
  111. procedure TSistemaDeCajaSupermercadoElCampo.NombredelSupermercadoClick(Sender: TObject);
  112. begin
  113.  
  114. end;
  115.  
  116. procedure TSistemaDeCajaSupermercadoElCampo.NombreRazonSocialControlBorderSpacingChange(Sender: TObject);
  117. begin
  118. end;
  119.  
  120. procedure TSistemaDeCajaSupermercadoElCampo.SubTotalClick(Sender: TObject);
  121. begin
  122.  
  123. end;
  124.  
  125. procedure TSistemaDeCajaSupermercadoElCampo.BotonAgregarProductoClick(Sender: TObject);
  126. begin
  127.   VentanaAgregarProducto.ShowModal;
  128. end;
  129.  
  130. procedure TSistemaDeCajaSupermercadoElCampo.BotonFacturarProductoClick(
  131.   Sender: TObject);
  132. begin
  133.   VentanaMetodoDePago.ShowModal;
  134. end;
  135.  
  136. procedure TSistemaDeCajaSupermercadoElCampo.BotonIniciarSesionClick(Sender: TObject);
  137. begin
  138.   IniciarSesion.ShowModal;
  139. end;
  140.  
  141. procedure TSistemaDeCajaSupermercadoElCampo.BotonBorrarClienteClick(Sender: TObject);
  142. begin
  143.  
  144. end;
  145.  
  146. procedure TSistemaDeCajaSupermercadoElCampo.CedulaRifBarraChange(Sender: TObject);
  147. begin
  148.  
  149. end;
  150.  
  151. procedure TSistemaDeCajaSupermercadoElCampo.ApellidoBarraChange(Sender: TObject);
  152. begin
  153.  
  154. end;
  155.  
  156. procedure TSistemaDeCajaSupermercadoElCampo.BotonAgregarClienteClick(
  157.   Sender: TObject);
  158. begin
  159.   VentanaAgregarCliente.ShowModal;
  160. end;
  161.  
  162. procedure TSistemaDeCajaSupermercadoElCampo.Edit2Change(Sender: TObject);
  163. begin
  164.  
  165. end;
  166.  
  167. procedure TSistemaDeCajaSupermercadoElCampo.DireccionBarraChange(Sender: TObject);
  168. begin
  169.  
  170. end;
  171.  
  172. procedure TSistemaDeCajaSupermercadoElCampo.FormCreate(Sender: TObject);
  173. begin
  174.  
  175. end;
  176.  
  177. procedure TSistemaDeCajaSupermercadoElCampo.NombreRazonSocialClick(Sender: TObject);
  178. begin
  179.  
  180. end;
  181.  
  182. procedure TSistemaDeCajaSupermercadoElCampo.Label2Click(Sender: TObject);
  183. begin
  184.  
  185. end;
  186.  
  187. procedure TSistemaDeCajaSupermercadoElCampo.Label3Click(Sender: TObject);
  188. begin
  189.  
  190. end;
  191.  
  192. procedure TSistemaDeCajaSupermercadoElCampo.CajeroLogeadoClick(Sender: TObject);
  193. begin
  194.  
  195. end;
  196.  
  197. procedure TSistemaDeCajaSupermercadoElCampo.Label7Click(Sender: TObject);
  198. begin
  199.  
  200. end;
  201.  
  202. procedure TSistemaDeCajaSupermercadoElCampo.ListBox1Click(Sender: TObject);
  203. begin
  204.  
  205. end;
  206.  
  207. end.
  208.  

Unit where the user will imput the data:

Code: Pascal  [Select][+][-]
  1. unit sistemacajaregistradoraelcampoagregarcliente;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. interface
  6.  
  7. uses
  8.   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  9.   StdCtrlsuses;
  10.  
  11. type
  12.  
  13.   { TVentanaAgregarCliente }
  14.  
  15.   TVentanaAgregarCliente = class(TForm)
  16.     BotonAgregarCliente: TButton;
  17.     BotonCancelarAgregarCliente: TButton;
  18.     DatosDelCliente: TLabel;
  19.     NombreORazonSocialDelClienteBarra: TEdit;
  20.     ApellidoDelClienteBarra: TEdit;
  21.     CedulaORIFDelClienteBarra: TEdit;
  22.     DireccionDelClienteBarra: TEdit;
  23.     NombreORazonSocialDelCliente: TLabel;
  24.     ApellidoDelCliente: TLabel;
  25.     CedulaORIFDelCliente: TLabel;
  26.     DireccionDelCliente: TLabel;
  27.     Panel1: TPanel;
  28.     procedure BotonAgregarClienteClick(Sender: TObject);
  29.     procedure BotonCancelarAgregarClienteClick(Sender: TObject);
  30.     procedure DatosDelClienteClick(Sender: TObject);
  31.     procedure CedulaORIFDelClienteBarraChange(Sender: TObject);
  32.     procedure DireccionDelClienteBarraChange(Sender: TObject);
  33.     procedure FormCreate(Sender: TObject);
  34.     procedure NombreORazonSocialDelClienteBarraChange(Sender: TObject);
  35.     procedure NombreORazonSocialDelClienteBarraEnter(Sender: TObject);
  36.   private
  37.  
  38.   public
  39.  
  40.   end;
  41.  
  42. var
  43.   VentanaAgregarCliente: TVentanaAgregarCliente;
  44.  
  45. implementation
  46. uses sistemacajaregistradoraelcampo;
  47.  
  48. {$R *.lfm}
  49.  
  50. { TVentanaAgregarCliente }
  51.  
  52. procedure TVentanaAgregarCliente.DatosDelClienteClick(Sender: TObject);
  53. begin
  54.  
  55. end;
  56.  
  57. procedure TVentanaAgregarCliente.BotonAgregarClienteClick(Sender: TObject);
  58. begin
  59.  
  60. end;
  61.  
  62. procedure TVentanaAgregarCliente.BotonCancelarAgregarClienteClick(
  63.   Sender: TObject);
  64. begin
  65.   VentanaAgregarCliente.Close;
  66. end;
  67.  
  68. procedure TVentanaAgregarCliente.CedulaORIFDelClienteBarraChange(Sender: TObject);
  69. begin
  70.  
  71. end;
  72.  
  73. procedure TVentanaAgregarCliente.DireccionDelClienteBarraChange(Sender: TObject);
  74. begin
  75.  
  76. end;
  77.  
  78. procedure TVentanaAgregarCliente.FormCreate(Sender: TObject);
  79. begin
  80.  
  81. end;
  82.  
  83. procedure TVentanaAgregarCliente.NombreORazonSocialDelClienteBarraChange(
  84.   Sender: TObject);
  85. begin
  86.  
  87. end;
  88.  
  89. procedure TVentanaAgregarCliente.NombreORazonSocialDelClienteBarraEnter(
  90.   Sender: TObject);
  91. begin
  92.   NombreORazonSocial_ing:=NombreORazonSocialDelCLienteBarra.Text;
  93. end;
  94.  
  95. end.
  96.  

lucamar

  • Hero Member
  • *****
  • Posts: 4219
Re: "Fatal: Unit StdCtrlsuses searched but StdCtrls found" Help!
« Reply #1 on: December 26, 2018, 08:42:25 am »
There is an extra "uses" there:
Code: Pascal  [Select][+][-]
  1. interface
  2.  
  3. uses
  4.   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  5.   StdCtrlsuses;
should be
Code: Pascal  [Select][+][-]
  1. interface
  2.  
  3. uses
  4.   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  5.   StdCtrls;
« Last Edit: December 26, 2018, 08:44:44 am by lucamar »
Turbo Pascal 3 CP/M - Amstrad PCW 8256 (512 KB !!!) :P
Lazarus/FPC 2.0.8/3.0.4 & 2.0.12/3.2.0 - 32/64 bits on:
(K|L|X)Ubuntu 12..18, Windows XP, 7, 10 and various DOSes.

 

TinyPortal © 2005-2018