marcoszorrilla
29-06-2006, 22:25:16
function TFormPpal.IsLoaded(Nombre: string): Boolean;
var b: boolean;
i: integer;
begin
b := false;
for i := 0 to Screen.FormCount - 1 do
if Screen.Forms[i].Name = Nombre then
b := true;
IsLoaded := B;
end;
Nota: El código anterior es mejorable mediante un bucle while (nunca repeat)
var b: boolean;
i: integer;
begin
b := false;
for i := 0 to Screen.FormCount - 1 do
if Screen.Forms[i].Name = Nombre then
b := true;
IsLoaded := B;
end;
Nota: El código anterior es mejorable mediante un bucle while (nunca repeat)