Требуется помощь программистов

[sHELL]

Вообщем есть вот такая процедура:

Const e = "----------"
Private Sub Form_Load()
Dim y As String
Dim i As Integer
For i = 1 To n
y = "st" + Format(i)
y.Caption = e
y = ""
Next i
End Sub

На форме имеются метки см. скрин

Подскажите как сделать так чтобы в цикле перебирались все метки этой формы за счёт генерации имени метки (переменная y)

Имена меток различаюся только одним символом st1 st2 st3....st10

Да и вообще чтоб можно было иметь доступ к конкретной метке в зависимости от условия

в архиве есть исходник программы если так будет легче понять

В выше написанной процедуре ошибка незнаю как её испровить или может так нельзя вообще делать (как я сделал)

Очень нужна помощь!

[bmp]

sHELL, не подойдет способ с использованием Control Array? В VB это реализуется просто: даешь всем Label'ам одиннаковое имя, сначала VB будет ругаться - типа такое имя есть, но предложит создать этот самый Control Array, и тогда к этим элементам будет доступ через имя(индекс), а индекс задается в соответствующем поле свойств элемента. При этом процедура будет выглядеть так:

Const e = "----------"
Private Sub Form_Load()
Dim i As Integer
For i = 0 To n - 1
st(i).Caption = e ' st - имя Контрол Аррея
Next i
End Sub

Вот переписанная прог-а: вариант.rar

[SEZAR]

Тогда я тожа спрошу, у меня стоит сайт на Joomla 1.0. Хочу поставить сщёчик с index.karelia.ru. В какое место тыкать его? И в какой пшп файл? Вот код индекса:

                   <!-- index.karelia.ru -->
<a href="http://index.karelia.ru">
<script language="javascript">
java="1.0";
java1=""+"&refer="+escape(document.referrer)+"&page="+
escape(window.location.href);
document.cookie="astratop=1; path=/"; java1+="&c="+(document.cookie?"yes":"now");
</script>
<script language="javascript1.1">java="1.1";java1+="&java="+(navigator.javaEnabled()?"yes":"now")</script>
<script language="javascript1.2">java="1.2";
java1+="&razresh="+screen.width+'x'+screen.height+"&cvet="+
(((navigator.appName.substring(0,3)=="Mic"))?
screen.colorDepth:screen.pixelDepth)</script><script language="javascript1.3">java="1.3"</script>
<script language="javascript">java1+="&jscript="+java+"&rand="+Math.random();
document.write("<a href='http://index.karelia.ru?id=77&fromsite=1' target='_blank'><img "+
" src='http://index.karelia.ru/img.php?id=77&"+java1+"&' border=0 alt='index.karelia.ru' width='88' height='31'></a>")</script>
<noscript><a href=http://index.karelia.ru target=_blank><img src="http://index.karelia.ru/img.php?id=77" border=0 alt="index.karelia.ru" width='88' height='31'></a></noscript>
</a>
<!-- /index.karelia.ru -->

А вот код странички index.php:

<?php
/**
* @version $Id: index.php 6022 2006-12-18 22:30:07Z friesengeist $
* @package Joomla RE
* @copyright Авторские права (C) 2005 Open Source Matters. Все права защищены.
* @license Лицензия http://www.gnu.org/copyleft/gpl.html GNU/GPL, смотрите LICENSE.php
* Joomla! - свободное программное обеспечение. Эта версия может быть изменена
* в соответствии с Генеральной Общественной Лицензией GNU, поэтому возможно
* её дальнейшее распространение в составе результата работы, лицензированного
* согласно Генеральной Общественной Лицензией GNU или других лицензий свободных 
* программ или программ с открытым исходным кодом.
* Для просмотра подробностей и замечаний об авторском праве, смотрите файл COPYRIGHT.php.
* 
* @localized Авторские права (C) 2006 Joom.Ru - Русский дом Joomla!
* @translator Sourpuss (sourpuss@mail.ru)
*/

// Установка флага родительского файла 
define( '_VALID_MOS', 1 );

// проверка конфигурационного файла, если не обнаружен, то загружается страница установки
if (!file_exists( 'configuration.php' ) || filesize( 'configuration.php' ) < 10) {
	$self = rtrim( dirname( $_SERVER['PHP_SELF'] ), '/\\' ) . '/';
	header("Location: http://" . $_SERVER['HTTP_HOST'] . $self . "installation/index.php" );
	exit();
}

require( 'globals.php' );
require_once( 'configuration.php' );

// Проверка SSL - $http_host возвращает <url_сайта>:<номер_порта, если он 443>
$http_host = explode(':', $_SERVER['HTTP_HOST'] );
if( (!empty( $_SERVER['HTTPS'] ) && strtolower( $_SERVER['HTTPS'] ) != 'off' || isset( $http_host[1] ) && $http_host[1] == 443) && substr( $mosConfig_live_site, 0, 8 ) != 'https://' ) {
	$mosConfig_live_site = 'https://'.substr( $mosConfig_live_site, 7 );
}

require_once( 'includes/joomla.php' );

//Проверка подпаки установки, удалена при работе с SVN
if (file_exists( 'installation/index.php' ) && $_VERSION->SVN == 0) {
	define( '_INSTALL_CHECK', 1 );
	include ( $mosConfig_absolute_path .'/offline.php');
	exit();
}
 
// отображение страницы выключенного сайта
if ($mosConfig_offline == 1) {
	require( $mosConfig_absolute_path .'/offline.php' );
}

// загрузка группы системного бота
$_MAMBOTS->loadBotGroup( 'system' );

// триггер событий onStart
$_MAMBOTS->trigger( 'onStart' );

if (file_exists( $mosConfig_absolute_path .'/components/com_sef/sef.php' )) {
	require_once( $mosConfig_absolute_path .'/components/com_sef/sef.php' );
} else {
	require_once( $mosConfig_absolute_path .'/includes/sef.php' );
}
require_once( $mosConfig_absolute_path .'/includes/frontend.php' );

// поиск некоторых аргументов url (или form)
$option = strval( strtolower( mosGetParam( $_REQUEST, 'option' ) ) );
$Itemid = intval( mosGetParam( $_REQUEST, 'Itemid', null ) );

if ($option == '') {
	if ($Itemid) {
		$query = "SELECT id, link"
		. "\n FROM #__menu"
		. "\n WHERE menutype = 'mainmenu'"
		. "\n AND id = " . (int) $Itemid
		. "\n AND published = 1"
		;
		$database->setQuery( $query );
	} else {
		$query = "SELECT id, link"
		. "\n FROM #__menu"
		. "\n WHERE menutype = 'mainmenu'"
		. "\n AND published = 1"
		. "\n ORDER BY parent, ordering"
		;
		$database->setQuery( $query, 0, 1 );
	}
	$menu = new mosMenu( $database );
	if ($database->loadObject( $menu )) {
		$Itemid = $menu->id;
	}
	$link = $menu->link;
	if (($pos = strpos( $link, '?' )) !== false) {
		$link = substr( $link, $pos+1 ). '&Itemid='.$Itemid;
	}
	parse_str( $link, $temp );
	/** это путь, требуется переделать для лучшего управления глобальными переменными */
	foreach ($temp as $k=>$v) {
		$GLOBALS[$k] = $v;
		$_REQUEST[$k] = $v;
		if ($k == 'option') {
			$option = $v;
		}
	}
}
if ( !$Itemid ) {
// когда не найден Itemid, то ему присваивается значение по умолчанию
	$Itemid = 99999999;
} 
	
// mainframe - оновная рабочая среда API, осуществляет взаимодействие с 'ядром'
$mainframe = new mosMainFrame( $database, $option, '.' );
$mainframe->initSession();

// триггер событий onAfterStart
$_MAMBOTS->trigger( 'onAfterStart' );

// проверка, если мы можем найти Itemid в содержимом
if ( $option == 'com_content' && $Itemid === 0 ) {
	$id = intval( mosGetParam( $_REQUEST, 'id', 0 ) );
	$Itemid = $mainframe->getItemid( $id );
}

/** до сих пор правильный Itemid?? */
if ( $Itemid === 0 ) {
	/** Нет, используется именно главная страница. */
	$query = "SELECT id"
	. "\n FROM #__menu"
	. "\n WHERE menutype = 'mainmenu'"
	. "\n AND published = 1"
	. "\n ORDER BY parent, ordering"
	;
	$database->setQuery( $query, 0, 1 );
	$Itemid = $database->loadResult();
}

// путь уменьшения воздействия на шаблоны
if ($option == 'search') {
	$option = 'com_search';
}

// загрузка файла английского языка по умолчанию
if ($mosConfig_lang=='') {
	$mosConfig_lang = 'english';
}
include_once( $mosConfig_absolute_path .'/language/' . $mosConfig_lang . '.php' );

// контроль входа и выхода в фронт-энд 
$return 	= strval( mosGetParam( $_REQUEST, 'return', NULL ) );
$message 	= intval( mosGetParam( $_POST, 'message', 0 ) );
if ($option == 'login') {
	$mainframe->login();

	// Всплывающее сообщение JS
	if ( $message ) {
		?>
		<script language="javascript" type="text/javascript">
		<!--//
		alert( "<?php echo addslashes( _LOGIN_SUCCESS ); ?>" );
		//-->
		</script>
		<?php
	}
	
	if ( $return && !( strpos( $return, 'com_registration' ) || strpos( $return, 'com_login' ) ) ) {
	// checks for the presence of a return url 
	// and ensures that this url is not the registration or login pages
		// Если sessioncookie существует, редирект на заданную страницу. Otherwise, take an extra round for a cookiecheck
		if (isset( $_COOKIE[mosMainFrame::sessionCookieName()] )) {
		mosRedirect( $return );
	} else {
			mosRedirect( $mosConfig_live_site .'/index.php?option=cookiecheck&return=' . urlencode( $return ) );
		}
	} else {
		// If a sessioncookie exists, redirect to the start page. Otherwise, take an extra round for a cookiecheck
		if (isset( $_COOKIE[mosMainFrame::sessionCookieName()] )) {
		mosRedirect( $mosConfig_live_site .'/index.php' );
		} else {
			mosRedirect( $mosConfig_live_site .'/index.php?option=cookiecheck&return=' . urlencode( $mosConfig_live_site .'/index.php' ) );
		}
	}

} else if ($option == 'logout') {
	$mainframe->logout();

	// Всплывающее сообщение JS
	if ( $message ) {
		?>
		<script language="javascript" type="text/javascript">
		<!--//
		alert( "<?php echo addslashes( _LOGOUT_SUCCESS ); ?>" );
		//-->
		</script>
		<?php
	}

	if ( $return && !( strpos( $return, 'com_registration' ) || strpos( $return, 'com_login' ) ) ) {
	// checks for the presence of a return url 
	// and ensures that this url is not the registration or logout pages
		mosRedirect( $return );
	} else {
		mosRedirect( $mosConfig_live_site.'/index.php' );
	}
} else if ($option == 'cookiecheck') {
	// No cookie was set upon login. If it is set now, redirect to the given page. Otherwise, show error message.
	if (isset( $_COOKIE[mosMainFrame::sessionCookieName()] )) {
		mosRedirect( $return );
	} else {
		mosErrorAlert( _ALERT_ENABLED );
	}
}

/** получение информации о текущих пользователях из таблицы сессий */
$my = $mainframe->getUser();

// обнаружение первого посещения
$mainframe->detect();

// установка проверки для overlib
$mainframe->set( 'loadOverlib', false );

$gid = intval( $my->gid );

// получение шаблона страницы
$cur_template = $mainframe->getTemplate();
/** временное исправление - эта особенность в настоящее время отключена */

/** @global - Места для хранения информации обработки компонента */
$_MOS_OPTION = array();

// предварительный захват вывода компонента
require_once( $mosConfig_absolute_path . '/editor/editor.php' );

ob_start();		 

if ($path = $mainframe->getPath( 'front' )) {
	$task 	= strval( mosGetParam( $_REQUEST, 'task', '' ) );
	$ret 	= mosMenuCheck( $Itemid, $option, $task, $gid );
	
	if ($ret) {
		require_once( $path );
	} else {
		mosNotAuth();
	}
} else {
	header( 'HTTP/1.0 404 Not Found' );
	echo _NOT_EXIST;
}

$_MOS_OPTION['buffer'] = ob_get_contents();

ob_end_clean();

initGzip();

header( 'Expires: Mon, 26 Jul 1997 05:00:00 GMT' );
header( 'Last-Modified: ' . gmdate( 'D, d M Y H:i:s' ) . ' GMT' );
header( 'Cache-Control: no-store, no-cache, must-revalidate' );
header( 'Cache-Control: post-check=0, pre-check=0', false );
header( 'Pragma: no-cache' );

// отображение предупреждения о выключенном сайте, при входе админа
if (defined( '_ADMIN_OFFLINE' )) {
	include( $mosConfig_absolute_path .'/offlinebar.php' );
}

// загрузка файла шаблона
if ( !file_exists( $mosConfig_absolute_path .'/templates/'. $cur_template .'/index.php' ) ) {
	echo _TEMPLATE_WARN . $cur_template;
} else {
	require_once( $mosConfig_absolute_path .'/templates/'. $cur_template .'/index.php' );
	echo '<!-- '. time() .' -->';
}

// отображение выполненных для страницы запросов
if ($mosConfig_debug) {
	echo $database->_ticker . ' queries executed';
	echo '<pre>';
 	foreach ($database->_log as $k=>$sql) {
 		echo $k+1 . "\n" . $sql . '<hr />';
	}
	echo '</pre>';
}

doGzip();
?>

Подскажите плиззз. А то тварь втыкиваю как на випе в конце почти самом и нихрена!!!
МБ кто нить знает

[Dreamer]

Попробуй

<html>
<body>

<?php  твой код ?>

скрипт 

</body>
</html>

[SEZAR]

Dreamer, я разобрался.

[Tyrael]

sHELL, если я тебя правильно понял, то это делается примерно так:

for i := 1 to 100 do
  TLabel(FindComponent('Label'+IntToStr(i))).Caption := 'Твой заголовок';