Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Range check error, выскакивает ошибка 
:(
    Опции темы
GOST800
Дата 6.10.2008, 20:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 25.7.2008

Репутация: нет
Всего: нет
Компилятор ругается вышеуказанной ошибкой. 
Код
const
  slovo='privet';
  
function E_check(Str: String): String;
var
  I: Integer;
  MS: Integer;
  s: String;
begin
  randomize;
  random(MS);
  for I := 0 to Length(Str) - 1 do
  begin
    if Str[I] = 'e' then s := s + slovo[MS];
  end;
  result := s;
end;

Менял slovo на array or string, то же самое.
PM MAIL   Вверх
THandle
Дата 6.10.2008, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
GOST800, строка начинается с 1, а не с 0.

Код

const
  slovo='privet';

function E_check(Str: String): String;
var
  I: Integer;
  MS: Integer;
  s: String;
begin
  randomize;
  random(MS);
  for I := 1 to Length(Str) do
  begin
    if Str[I] = 'e' then s := s + slovo[MS];
  end;
  result := s;
end;


Добавлено через 7 минут и 30 секунд
К тому же MS равняется не понятно чему...
PM   Вверх
GOST800
Дата 6.10.2008, 21:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 25.7.2008

Репутация: нет
Всего: нет
ррр!!!smile  спасибоsmile 
PM MAIL   Вверх
THandle
Дата 6.10.2008, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Код

const
  slovo='privet';

function E_check(Str: String): String;
var
  I: Integer;
  MS: Integer;
begin
  Result := '';
  randomize;
  MS := Random(Length(slovo));
  for I := 1 to Length(Str) do
    if Str[I] = 'e' then
      Result := Result + slovo[MS];
end;



Это требовалось?
PM   Вверх
GOST800
Дата 6.10.2008, 21:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 25.7.2008

Репутация: нет
Всего: нет
Ес smile еще раз спасибо за оперативность smile
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0915 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.