Оператор Case

@Nоt_bad · Регистрация: 25.05.2013

Студворк — интернет-сервис помощи студентам

Снова здравствуйте, я опять со своим генератором. Хочу сделать так, что бы в компонент memo рандомно загружались задачи из разных текстовых файлов, вот код программы

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
if ComboBox1.Text = 'Звук' then
      begin
 
        for i:= 2 to n do
          begin
          m:=Random(2);
          case m of
 
           1: memo1.Lines.LoadFromFile('1.txt');
           2: memo1.Lines.LoadFromFile('2.txt');
           end;
            s:= memo1.Text;
            Memo1.lines.Add('');
            Memo1.Text:= Memo1.Text + s ;
            end;
       end;

Вообще идея была что в цикле переменной M будут присваиваться рандомно 1 или 2, далее через оператор case загружаться текстовые файлы 1.txt и 2.txt соответственно, но загружается одно и тоже. Подскажите как это организовать лучше?

@Puporev · 26.05.2013, 16:30

m:=Random(2); выдаст 0 и 1

@Nоt_bad · 26.05.2013, 16:33 **[ТС]**

я и Random (3) ставил тоже нет

Добавлено через 1 минуту
и m=Random(3)-1; тоже не работает, тут сам алгоритм наверное не правильный

@Puporev · 26.05.2013, 16:35

Чтобы выпадало 1 и 2 нужно писать m:=1+random(2); Хоть это будешь знать...

@Nоt_bad · 26.05.2013, 17:07 **[ТС]**

Puporev, Спасибо, буду знать, но все равно в memo загружается одно и тоже, а не с разных файлов

Добавлено через 29 минут
Народ такой алгоритм вообще будет работать или нет?((

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
if ComboBox1.Text = 'Звук' then
      begin
 
        for i:= 2 to n do
          begin
          m:=1+Random(2);
          case m of
 
           1: memo1.Lines.LoadFromFile('1.txt');
           2: memo1.Lines.LoadFromFile('2.txt');
           end;
            s:= memo1.Text;
            Memo1.lines.Add('');
            Memo1.Text:= Memo1.Text + s ;
            end;
       end;

@volvo · 26.05.2013, 17:17

Nоt_bad, я уже говорил тебе, что делать:

Сообщение от UI

читай шаблон в StringList, и <...> добавляй его через Memo1.Lines.AddStrings

:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var L : TStringList;
// ...
if ComboBox1.Text = 'Звук' then
begin
   L := TStringList.Create;
   for i:= 2 to n do
   begin
      L.Clear;
      m:=1+Random(2);
      case m of
         1: L.LoadFromFile('1.txt');
         2: L.LoadFromFile('2.txt');
      end;
      Memo1.Lines.AddStrings(L);
   end;
   L.Free;
end;

@nnm2009 · 26.05.2013, 17:38

UI, спасибо, буду пробовать, просто я не знаком с StringList, поэтому решил это обойти....

Добавлено через 10 минут
Последний вопрос... Осталось мне написать такой код, что бы в тех задачах что я загружаю менялись числа, и варианты ответов. По какому алгоритму это лучше сделать? Я думаю можно поставить перед переменными которые нужно менять какой нибудь символ, например '_' и после в цикле организовывать поиск и менять. Или можно как то проще сделать?

@MrOnlineCoder · 26.05.2013, 22:41

А вы прописали

Delphi
1
Randomize;

?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	26.05.2013, 16:30
	m:=Random(2); выдаст 0 и 1 0

@Nоt_bad 0 / 0 / 0 Регистрация: 25.05.2013 Сообщений: 14
	26.05.2013, 16:33 [ТС]
	я и Random (3) ставил тоже нет Добавлено через 1 минуту и m=Random(3)-1; тоже не работает, тут сам алгоритм наверное не правильный 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	26.05.2013, 16:35
	Чтобы выпадало 1 и 2 нужно писать m:=1+random(2); Хоть это будешь знать... 0

@nnm2009 0 / 0 / 0 Регистрация: 30.05.2012 Сообщений: 24
	26.05.2013, 17:38
	UI, спасибо, буду пробовать, просто я не знаком с StringList, поэтому решил это обойти.... Добавлено через 10 минут Последний вопрос... Осталось мне написать такой код, что бы в тех задачах что я загружаю менялись числа, и варианты ответов. По какому алгоритму это лучше сделать? Я думаю можно поставить перед переменными которые нужно менять какой нибудь символ, например '_' и после в цикле организовывать поиск и менять. Или можно как то проще сделать? 0