Форум: "Потрепаться";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];
Вниз
Организация теста Найти похожие ветки
← →
A&N (2003-04-28 15:07) [0]Нужно организовать беспорядочное чтение вопросов и ответов из файла в Label, как это сделать?
← →
Карелин Артем (2003-04-28 15:08) [1]Функция random существует однако.
← →
A&N (2003-04-28 15:17) [2]Мы в курсе, она почемуто выдает только последний элимент
← →
Карелин Артем (2003-04-28 16:01) [3]Ну тогда давай код, посмотрим. Randomize вызывал?
← →
A&N (2003-04-28 16:06) [4]var
t:textfile;
s:string;
mas:array[0..7] of string;
i,j:integer;
begin
assignfile(t,"c:\1.txt");
reset(t);
while not eof(t) do begin
readln(t,s);
i:=random(7);
label1.Caption:=s[i];
end;
closefile(t);
end;
← →
Игорь Шевченко (2003-04-28 16:09) [5]О пользе чтения книг, однако...
← →
Карелин Артем (2003-04-28 16:10) [6]Добавь:
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
Проверил - работает.
← →
A&N (2003-04-28 16:11) [7]Если я тебя првильно понял , ты имеешь в виду книги читать, дак вот и почитай...
← →
A&N (2003-04-28 16:12) [8]Артем спасибо попробую!!!!
← →
circul (2003-04-28 16:20) [9]>A&N © (28.04.03 16:11)
Если я тебя првильно понял , ты имеешь в виду книги читать, дак вот и почитай...
С такими амбициями не стоиит вопросы задавать.
← →
A&N (2003-04-28 16:23) [10]Артем, все по прежнему, что делать?
← →
LordOfSilence (2003-04-28 16:28) [11]Ты вообще понимаешь, что означает конструкция s[i]?
Ты ищешь некий символ в строке с индексом i.
А дальше единственный символ присваиваешь заголовку метки.
Тебе именно это надо?
← →
circul (2003-04-28 16:32) [12]>A&N ©
а вот в этой строке ты что хочешьт получить? - label1.Caption:=s[i];
← →
A&N (2003-04-28 16:32) [13]Мне нужно брать целую строку из файла
← →
A&N (2003-04-28 16:34) [14]В LAbel1 нужно вставить предложение в виде вопроса...
← →
LordOfSilence (2003-04-28 16:34) [15]Оператором readln(t,s) ты ее уже взял.
← →
A&N (2003-04-28 16:36) [16]в фале содержаться 30 вопросов, каждый раз нужно брать один из них
← →
Johnny Smith (2003-04-28 16:37) [17]Ну, какова анкета, таковы и вопросы :)))))))
Никак Коля Быков?
← →
A&N (2003-04-28 16:38) [18]Что, что простите???
← →
Snap (2003-04-28 16:38) [19]RTFM
← →
LordOfSilence (2003-04-28 16:39) [20]Судя по всему, дядя Наташа решило постебаться...
← →
Vlad Oshin (2003-04-28 16:45) [21]mas Вам зачем?
← →
Vlad Oshin (2003-04-28 16:49) [22]
> дядя Наташа решило
:)))
← →
LordOfSilence (2003-04-28 16:49) [23]2 Vlad Oshin © (28.04.03 16:45)
Чтоб мы с тобой в час по чайной ложке из него сведения вытаскивали.
← →
Игорь Шевченко (2003-04-28 16:55) [24]LordOfSilence © (28.04.03 16:49)
> Чтоб мы с тобой в час по чайной ложке из него сведения вытаскивали.
Гестаповцы :)
← →
A&N (2003-04-28 17:07) [25]Вообщето нас двое. Мы не сиамские близнеци, мы просто муж и жена...
← →
circul (2003-04-28 17:14) [26]А, может быть, поможет Label1.Caption := s; ????
← →
A&N (2003-04-28 17:21) [27]К сожалению, все равно выводится только последняя строка файла!
← →
vopros (2003-04-28 17:25) [28]//Бессмыслица
while not eof(t) do begin
readln(t,s);
i:=random(7);
label1.Caption:=s[i];
end;
← →
A&N (2003-04-28 17:27) [29]Vopros Подскажи что нибудь со смыслом!!!
← →
LordOfSilence (2003-04-28 17:28) [30]Дорогие молодожены!
Уже несколько человек пытаются задавать вам наводящие вопросы, но
вы все никак не ведетесь на это сомнительное действо и упрямо не
втыкаетесь в ситуацию. Напрочь.
Продолжаем "наводить":
Если строк 30, то почему Random(7)? И массив у вас из восьми строк
[0..7]. Кстати, вы так и не ответили на вопрос Влада, зачем вы его
объявляли, если не используете?
← →
Johnny Smith (2003-04-28 17:29) [31]2A&N © (28.04.03 17:27)
Выберите строки в какую-либо структуру (например, в TList или TCollection) и обращайтесь через Random к Item"ам по их индексам.
← →
A&N (2003-04-28 17:35) [32]Пока 7 вопросов из 30, на mas забейте неужели не видно, что он нигде не задействован!
Предложите свое решение к организации вывода в label из файла вопросов, в файле находится n-ое число вопросов в данном случае 7
← →
LordOfSilence (2003-04-28 17:48) [33]Если на массив вы "забиваете", то чем вам не нравится вариант
Johnny Smith © (28.04.03 17:29)?
← →
A&N (2003-04-28 17:58) [34]Все это хорошо, но нам нулно в label
← →
Vlad Oshin (2003-04-28 18:00) [35]вам надо в массив затолкать содержимое файла
потом метка=случайно из массива
← →
A&N (2003-04-28 18:04) [36]Пробовали, и таже лажа(от туда и остался mas, который тебя смущал)
← →
VAleksey (2003-04-28 18:13) [37]Тушим свет еще раз :-).
Спасибо родные, повеселили в конце рабочего дня.
← →
LordOfSilence (2003-04-28 18:18) [38]Душевный флейм, однако...
var
t:textfile;
s:string;
mas:array[0..6] of string;
i,j:integer;
begin
assignfile(t,"c:\1.txt");
reset(t); i := 0;
while not eof(t) do begin
readln(t,s);
mas[i] := s;
i := i + 1;
end;
j:=random(6);
label1.Caption:=mas[j];
closefile(t);
end;
Приблизительно такая бредятина подойдет?
← →
DAC (2003-04-28 18:27) [39]
> LordOfSilence © (28.04.03 18:18)
Ну вот, такой флейм был, а ты взял, да испортил :)
← →
LordOfSilence (2003-04-28 18:33) [40]Признаю свою вину, меру, степень, глубину... :-)
Страницы: 1 2 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];
Память: 0.52 MB
Время: 0.007 c
