Listar todos los nombres de los Formularios de mi aplicacion

[gabriel_exe]

Hola a todos! estoy trabajando con DELPHI 2007 queria preguntarles: si saben como mostrar todos los nombre de los formularios de mi aplicacion en un listbox?¿?¿??¿¿?¿?¿?,para despues seleccionar uno de esa lista.Les voy agradecer un monton, por q la verdad no tengo ni idea:confused: jeje:D

[Neftali [Germán.Estévez]]

Puedes acceder a los forms creados utilizando TScreen.Forms[i] y FormCount


for i := 0 to Screen.FormCount do begin
fName := Screen.Forms[i].Name;
...
end;

[dec]

Hola,

Falta el "menos uno" Neftalí, so pena de enfrentarnos a un "Index out of bounds".


var
i, len: integer;
begin
len := Screen.FormCount-1;
for i := 0 to len do begin
ShowMessage(Screen.Forms[i].Name);
end;
end;


Nótese que prefiero además almacenar la "longitud" del bucle en una variable, será por leer a Francisco Charte (http://fcharte.com/). ;)

[Neftali [Germán.Estévez]]

Falta el "menos uno" Neftalí, so pena de enfrentarnos a un "Index out of bounds".

Hazle caso a Dec, que sabe de lo que habla... ;);)

[Casimiro Notevi]

Hola,
Falta el "menos uno" Neftalí, so pena de enfrentarnos a un "Index out of bounds".Código Delphi [-]var i, len: integer; begin len := Screen.FormCount-1; for i := 0 to len do begin ShowMessage(Screen.Forms[i].Name); end; end;


Nótese que prefiero además almacenar la "longitud" del bucle en una variable, será por leer a Francisco Charte (http://fcharte.com/). ;)

[off topic]
Tengo la costumbre de hacer eso, aunque a veces me resisto porque no me parece realmente necesario y acabo haciéndolo sin usar una variable, ¿qué dice F. Charte al respecto?, es que me ha llamado la atención ese comentario tuyo
[/off topic]

[dec]

Hola,

No puedo enlazarte el artículo en cuestión Casimiro (no lo encuentro). Pero, en todo caso, es una cuestión de ahorro de recursos. Si no es extrictamente necesario, en lugar de usar un método o función que mida (a cada paso del bucle) la longitud que nos interesa, podemos almacenar esa longitud en una variable, que será lo que usemos a cada paso del bucle.

PD. Definitivamente Charte lo explica mejor que yo. :D :D

[Casimiro Notevi]

[..]PD. Definitivamente Charte lo explica mejor que yo. :D :D

¿Se puede explicar mejor?, lo dudo :)

[roman]

Nótese que prefiero además almacenar la "longitud" del bucle en una variable, será por leer a Francisco Charte (http://fcharte.com/). ;)

Supongo que Francisco Charte no se ha percatado de que el compilador de delphi evalúa el límite final sólo una vez al comienzo del ciclo for y no en cada vuelta ;)

Pruébenlo:


function Limit(): Integer;
begin
ShowMessage('Estableciendo el límite');
Result := 3;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;

begin
for I := 1 to Limit() do
ShowMessage(Format('Vuelta %d', [I]));
end;


// Saludos

[Caro]

Supongo que Francisco Charte no se ha percatado de que el compilador de delphi evalúa el límite final sólo una vez al comienzo del ciclo for y no en cada vuelta ;)

Pruébenlo:


Ya lo he probado amiguito y es como dices, solo evalúa la primera ves ;).

Saluditos

[gabriel_exe]

Muchas gracias a todos por las respuestas, me van a servir de mucho por que la verdad no sabia por donde empesar jeje:D ahora a programar se ha dicho! jeje:)
Saludos

[dec]

Hola,

Je je je,... se ve que no he tenido en cuenta lo que dice Román. Ciertamente, Francisco Charte hablaba de C (no recuerdo si de C++) en su artículo... no de Delphi... lo cierto es que a mí se me ha quedado como una costumbre (creo que buena) y que uso en el lenguaje que sea... pero no está mal saber que en Delphi las cosas son distintas. ;)

PD. Francisco Charte no ha errado, pues él hablaba de C o de C++, no recuerdo bien, y no de Delphi. He sido yo el metepatas. :D