funcion , listbox y conversion

[mainau]

Hola foreros , buenas noches, ya estoy otra vez en un fregado a ver si me iluminais bueno al toro:

Tengo una funcion :

Código Delphi [-]
function seltext(listbox1: Tlistbox) : string;
var 
  nitem: integer;
begin
  nitem:=listbox1.itemindex;
  if nitem >= 0 then 
    Result:= listbox1.items [nitem]
  else
    Result:='';
end;

que me devuelve una cadena cuando intengo pasar esta a integer

Código Delphi [-]
 
canal := 25 + strtoint(seltext())

de esta manera me devuelve el siguiente error :

NOT ENOUGH ACTUAL PARAMETERS
no se lo que hago mal espero vuestra ayuda , gracias por todo.

[roman]

La función seltext que defines recibe un parámetro ¿no? Pues ¡pásaselo!

// Saludos

[mainau]

Desde luego, no es que los arboles no medejen ver el bosque es que me he perdido en el bosque no veo ni un arbol ...



Gracias, por iluminarme y sarcarme de la estupidez mental , de nuevo gracias..


Sera el Calor ?

[coej]

Haber, otro más novato aún , estoy intentando capturar en una variable el contenido en texto de una Listbox, pero la verdad estoy empezando en delphi, y me pierdo, pongo el código..., no me pegueis porfavor...

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
    { Public declarations }
  end;

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

implementation

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

   begin
a:= SelText(ListBox1);
end.

El error es Undeclared identifier . 'ListBox1', la verdad, se que es una tontería pero no lo pillo, me gustaría asignar a la vble a el valor seleccionado del listbox que es ListBox1 y mostrar en el mismo formulario el valor en texto..., gracias...

[roman]

Debes declarar la función SelText como método del formulario:

Código Delphi [-]
TForm1 = class(TForm)
  ListBox1: TListBox;

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

y anteponer el nombre de la clase del formulario al momento de implementar el método:

Código Delphi [-]
function TForm1.SelText (ListBox1 : TListBox) : String;
begin
  ...
end;

Por otra parte, cuando pongas código asegúrate de poner las etiquetas adecuadas para su formato.

// Saludos

[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...

[ecfisa]

Empezado por roman

Por otra parte, cuando pongas código asegúrate de poner las etiquetas adecuadas para su formato.

Gracias por apuntarlo román, por que pegan más rápido de lo que coloco las etiquetas...

Un saludo.