funcion , listbox y conversion

[coej]

Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  ListBox1: TListBox;


  private
    { Private declarations }
  public
    function SelText (ListBox1 : TListBox) : String;
  end;

var
  Form1: TForm1;
  a: String;
  SelItems :String;
  nItem :Integer;

implementation

{$R *.dfm}
  
   function TForm1.SelText (ListBox1 : TListBox) : String;
   var
    nItem : Integer;
    begin
      nItem := ListBox1.ItemIndex;
      if nItem >= 0 then
        Result := ListBox1.Items [nItem]
      else
        Result := '';
        end;

   begin
a:= TForm1.SelText(ListBox1);
end.

Pero sigo con el mismo error, siento ser tan pesado(y gracias por la rapidez de respuesta...
quiero asignar a la variable string a , el texto del valor seleccionado en el listbox y mostrarlo luego dentro del formulario...

[roman]

Empezado por coej

y gracias por la rapidez de respuesta...

Demasiado rápido

En realidad, mi respuesta es incorrecta, el cambio que te señalé no debería ser necesario. El error te lo marca en la línea:

Código Delphi [-]
a:= SelText(ListBox1);

La llamada a SelText no reconoce ListBox1 porque ListBox1 está dentro del formulario. Tendrías que poner algo como:

Código Delphi [-]
a:= Form1.SelText(ListBox1);

// Saludos

[coej]

HOla de nuevo Roman, si que lo tengo puesto
a:= TForm1.SelText(ListBox1);

Haber si me estoy explicando mal
Tengo un formulario Form1, un listbox ListBox1, y le pongo 3 items, rojo, verde azul
y quiero que cuando se marque en uno de ellos(se seleccione), guarde en la variable a el valor (rojo por ejemplo), y lo enseñe en un texto en el mismo formulario, algo asi quiero conseguir, gracias de nuevo...

[roman]

¡Qué bárbaro! Hoy yo no debería de contestar. A ver si le atino de una buena vez.

Con tu código original, pones:

Código Delphi [-]
a:= SelText(Form1.ListBox1);

Pero, viendo los detalles de la pregunta, el punto es, desde dónde llamas a SelText. Me parece que tienes que poner SelText como método del formulario, tal como comenté al principio y la llamada a SelText tiene entonces que estar en el evento OnClick del ListBox con lo cual ya no es necesario anteponer Form1.

// Saludos

[beginner01]

Empezado por coej

Haber si me estoy explicando mal
Tengo un formulario Form1, un listbox ListBox1, y le pongo 3 items, rojo, verde azul
y quiero que cuando se marque en uno de ellos(se seleccione), guarde en la variable a el valor (rojo por ejemplo), y lo enseñe en un texto en el mismo formulario, algo asi quiero conseguir, gracias de nuevo...

hay otras maneras de hacerlo.
prueba agregando en el evento onclick de el listbox esto.

Código Delphi [-]
 
a:=listbox1.items.strings[listbox1.itemindex];
 form1.caption:=a;

saludos.

[coej]

Si , así me funciona pero el texto me lo pone en la barra de la ventana, no en un texto dentro del formulario como quería, de todas formas muchas gracias, ya he aprendido otra cosa...
ya entiendo lo de las etiquetas, sorry...

[beginner01]

Empezado por coej

Si , así me funciona pero el texto me lo pone en la barra de la ventana, no en un texto dentro del formulario como quería, de todas formas muchas gracias, ya he aprendido otra cosa...

al formulario le agregas por ejemplo un componente llamado tlabel
y le pones.

Código Delphi [-]
 
 label1.caption:=a

[coej]

Prefesto..., muuuchas gracias.