RadioGroup1.ItemIndex

[[FGarcia]]

Saludos!
la pregunta es ¿que falla aqui?

este codigo funciona OK!

Código Delphi [-]
procedure TForm2.Label1Click(Sender: TObject);
begin
Label1.Caption := inttostr(radiogroup1.ItemIndex );
end;

pero este NO!!

Código Delphi [-]
Procedure Tform2.ConsultaNumeroOrden;
var
NumOrden, basSel : integer;
begin
NumOrden := StrToInt(NumeroOrden);
Label1.Caption := inttostr(RadioGroup1.ItemIndex);
end;

a lo que me refiero en ambos codigos es a Label1.Caption. Cuando ejecuto el segundo codigo aparece:

"Error access violation en module xxxxxxxx de adress yyyyy"

he visto varios hilos en el foro y en todos el codigo es similar, por lo que no entiendo que pasa. Uso Delphi 7.

Gracias por la ayuda!

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Label1Click(Sender: TObject);
begin
Label1.Caption := inttostr(radiogroup1.ItemIndex );
end;

procedure TForm1.Button1Click(Sender: TObject);
var
NumOrden, basSel : integer;
begin
//NumOrden := StrToInt(NumeroOrden);
Label1.Caption := inttostr(RadioGroup1.ItemIndex);
end;

El código lo he probado y funciona sin ningún problema en D7, he tenido que anular la línea de NumOrdern ya que numeroOrden no existe y no sé donde la tendrás declarada.

Un Saludo.

[[FGarcia]]

Gracias por la respuesta Marcos!

Si observas el codigo que envié el que funciona es un evento OnClick y el que no funciona es un Procedure; el codigo qu tu probaste son dos eventos OnClick

Bueno eso es lo que observe ya en mi programa que el Onclick funciona pero el procedure no.

Saludos!

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
NumOrden, basSel : integer;
begin
//NumOrden := StrToInt(NumeroOrden);
Form2.Label1.Caption := inttostr(Form2.RadioGroup1.ItemIndex);
end;

Un Saludo.

[[FGarcia]]

Hola !
Nuevamente por aqui. Marcos ese ultimo codigo tampoco funciona, mira hice esta prueba:

Código Delphi [-]
Procedure Tform1.ConsultaNumeroOrden; //este es un procedimiento
begin
   Label1.Caption := IntToStr(RadioGroup1.ItemIndex);
end;

al cual llamo desde aqui:

Código Delphi [-]
Procedure TForm1.Button1Click(Sender: TObject);
begin
 ConsultaNumeroOrden;
end;

y funciona perfectamente! Mi "teoria" es que el problema tiene que ver con Sender: TObject, aunque a esas profundidades de delphi aun no llego.

Gracias por la paciencia!

¡Feliz Día del Padre!

[marcoszorrilla]

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

  
type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure ConsultaNumeroOrden;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
ConsultaNumeroOrden;
end;

Procedure Tform1.ConsultaNumeroOrden; //este es un procedimiento
begin
   Label1.Caption := IntToStr(RadioGroup1.ItemIndex);
end;

end

Comprobado que así te va a funcionar.

Un Saludo.

[[FGarcia]]

Con el permiso de Neftali y Delphi.com.ar:

"Más tiempo dedicado a la pregunta=Mejores respuestas."

"Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla."

Y si efectivamente nunca comente que el procedure ConsultaNumeroOrden lo llamo desde el Form3, me refiero a mi primer mensaje de este hilo y tambien a que algo tiene que ver el parametro (Sender: TObject).

Gracias y Disculpas por la falta de informacion.