procedimiento con componentes.

[roman]

Empezado por vrortiz

Mas sin embargo me marca errores, alguien puede ayudarme......

Pues como dice mi compañero jachguate, tienes que ser más explícito e informativo para que podamos ayudarte.

---------------
Sin embargo voy a hacerle de adivino aunque, claro está, puedo equivocarme.

Los errores que te marca son al momento de compilar y son del estilo

Empezado por compilador de Delphi

Undeclared Identifier

Los indicios que me llevan a tal conjetura son:

1. El procedimiento casa no es método de ninguna clase (vamos, de ningún formulario) ya que no va prefijado por un identificador y un punto como en

Código Delphi [-]
procedure TForm1.casa();
begin
  ...
end;

2. Por tanto identificadores como ComboBox3 y DataModule2 tendrían que ser variables declaradas en un contexto global.

3. Aunque posible esto último es altamente improbable y en todo caso contrario a las buenas reglas de programación. Lo común es que se refieran a componentes insertadas en un formulario.

4. Por tanto el compilador no sabe a qué variables se refieren y marca el error.

La solución a esto sería prefijar los mencionados identificadores con la clase a la que pertenezcan, por ejemplo:

Código Delphi [-]
Form1.DataModule2.Table3.First;

Lo cual, no obstante, sería muy extraño y poco recomendable: que un procedimiento global haga referencia a un formulario en particular.

En otras palabras, supongo que estás tratando de manipular un formulario desde un procedimiento global y veo dos opciones:

a. Implementas el procedimiento como método del formulario:

Código Delphi [-]
type
  TForm1 = class
  public
    procedure casa();
  end;

...

procedure TForm1.casa();
begin
  ...
end;

b. o pasas el formulario como parámetro al procedimiento:

Código Delphi [-]
procedure casa(Form: TForm);
begin
  Form.ComboBox3.Items.Clear;
  Form.ComboBox4.Items.Clear;

  etcétera
end;

Aunque la opción b sólo sería indicada para un procedimiento de caracter muy general que pueda aplicarse a varios formularios (lo cual no creo que sea el caso).

Bueno, si mis adivinanzas no tienen nada que ver con la realidad no será culpa mía.



// Saludos

[jachguate]

Solo debo añadir, que en caso que el Método o procedimiento no lleve parámetros, no es necesario (y de hecho no compilará el código) poner los paréntesis vacios (al mejor estilo de c). Basta con añadir el punto y coma... algo como:

Código Delphi [-]
Procedure TForm1.casa;

Begin
  Sentencias;
end;

Empezado por roman

que un procedimiento global haga referencia a un formulario en particular.

El principal problema de esto, es que el día que necesitas mas de una instancia del formulario... todo fallaría, o mas bien, el código afectaria siempre al formulario apuntado por Form1... y si ha sido llamado por Form1A, que es otra instancia de TForm1??

Empezado por roman

o pasas el formulario como parámetro al procedimiento:

Esto también seria funcional, pero para evitar TypeCast, en lugar de recibir un parámetro del tipo TForm, seria mejor recibir un parámetro de la clase puntual del formulario a tratar (o del ancestro base donde estén los componentes a modificar, en caso de usar herencia visual)

Es decir..

en lugar de

Procedure Casa(Forma : TForm);

es preferible:

Casa(Forma : TForm1); o
Casa(Forma : TFormBaseConsultas);

Hasta luego.



pd. Román: veo que vas bien en las clases de Adivinación para Moderadores del club...... a ver si me das copia para el examen..

[roman]

Empezado por jachguate

Solo debo añadir, que en caso que el Método o procedimiento no lleve parámetros, no es necesario (y de hecho no compilará el código)

Pues no sé en tu Delphi pero en el mío sí que compila.

Empezado por jachguate

Esto también seria funcional, pero para evitar TypeCast, en lugar de recibir un parámetro del tipo TForm, seria mejor recibir un parámetro de la clase puntual del formulario a tratar

Typecast que no puse Creo que estoy dedicándole demasiado a la adivinación y menos a la codificación sin IDE

// Saludos

[jachguate]

Empezado por roman

Pues no sé en tu Delphi pero en el mío sí que compila.

Ve pues.. eso si es nuevo para mi... como la última vez qe intenté hacer esto fue... a ver... dejame ver... creo que con Turbo Pascal 5.5 pos no me enteré a que hora hicieron el cambio

(solo me falta que también compile en TP )

Hasta luego.

pd. Pos yo al de codificación sin IDE si he ido... hacemos intercambio de copia en el examen???

[[eduarcol]]

Bueno muchachos aparte de buenos programadores metafisicos y demas, que no se diga en el club se encuentra de todo