procedimiento con componentes.
 

me gustaria poder hacer procedimientos con componentes mas omeno de esta manera

procedure casa();
begin
ComboBox3.Items.Clear;
ComboBox4.Items.Clear;
DataModule2.Table3.First;
while( not DataModule2.Table3.Eof )do
begin
if( DataModule2.Table3.FieldValues['Status']='NO ASIGNADO') then
Begin
ComboBox3.Items.Add(DataModule2.Table3.FieldValues['N_vale']);
ComboBox4.Items.Add(DataModule2.Table3.FieldValues['N_vale']);
End;
DataModule2.Table3.Next;
end;

end;

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

Hola vrortiz. Bienvenido a los foros del clubdelphi.

En primer lugar voy a pedirte que leas la guia de estilo de los foros (encontrarás un vínculo en mi firma al final de este mensaje). También seguí el link para aprender a usar la etiqueta [ code ].

Luego, el mensaje que has enviado es bastante dificil de responder, no porque sea de un nivel muy elevado, sino porque no tiene la información necesaria para ayudarte. Ese "me marca errores" es muy vago. No se sabe si son errores en tiempo de compilación o de ejecución... y mucho menos el mensaje específico del error. Por tanto, te recomiendo la lectura de este otro hilo que trata precisamente del tema de la calidad de las preguntas.

Hasta luego.

;)

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

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

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;

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??

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.. :D :D

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

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

// Saludos

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 :eek: pos no me enteré a que hora hicieron el cambio :o :o

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

Hasta luego. :D :D :D

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

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