funcion , listbox y conversion

[ecfisa]

Empezado por coej

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


Como se ponen las etiquetas adecuadas para su formato???? No entiendo????

Hola coej.

Román se refiere a las etiquetas vB. Aquí encontrarás información sobre su uso. Consiste sólamente en encerrar el texto entre las etiquetas adecuadas.
Por ejemplo para código Delphi es: [delphi] código [/delphi] dando este efecto:

Código Delphi [-]
function TForm1.SelText (ListBox1 : TListBox) : String;
var
  nItem : Integer;
begin
  nItem := ListBox1.ItemIndex;
  if nItem >= 0 then
    Result := ListBox1.Items [nItem]
  else
    Result := '';
end;

Para que notes la diferencia voy a poner la misma porción de código tal como lo presentaste en tu post:

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

Como verás es mucho más difícil de leer que despues de puestas las etiquetas.

Edito: Luego de guardar estas líneas ví que que habías visto lo de las etiquetas.
No tenés por que disculparte, nadie empieza sabiendo en el foro...

Un saludo.