Форум: "Основная";
Текущий архив: 2002.05.06;
Скачать: [xml.tar.bz2];
ВнизПеремешивание значений (Извините за тему сообщения!) Найти похожие ветки
← →
dr_neo (2002-04-22 22:33) [0]Здравствуйте всем!
Есть у меня одна функция, вот часть ее:
DataModule.Query1.SQL.Text:= " SELECT AText, Weight, id_answer FROM ZZZ WHERE id_Question = " + inttostr( pID_Question );
DataModule.Query1.Open;
DataModule.Query1.First;
while not DataModule.Query1.Eof do
begin
Fweight:= DataModule.Query1.FieldByName("Weight").AsInteger;
FIdAnswer := DataModule.Query1.fieldbyname"id_answer").AsInteger;
s1:= DataModule.Query1.FieldByName("AText").AsString;
s:= "<input type="radio" name="C1" value="ON" Onclick="TitleChange(" + inttostr(FWeight) + ", "+ inttostr(FIdAnswer) +")">" + " <font color="#800080" face="Tahoma" size="3">" + s1 + "</font><br>";
WriteLn( F, s );
DataModule.AdoQuery.Next;
Как из нее видно, берется значение Atext и Weight и записывается в HTML файл. Но я хочу, чтобы эти значения перемешивались (с использованием Random или другого чего-нибудь).
Т.Е. У меня значения записываются по порядку, а я хочу, чтобы они еще и перемешивались
Заранее спасибо!
← →
Chepel (2002-04-23 02:40) [1]
var
SL: TStringList;
{...}
begin
{...}
DataModule.Query1.SQL.Text:= " SELECT AText, Weight, id_answer FROM ZZZ WHERE id_Question = " + inttostr( pID_Question );
DataModule.Query1.Open;
DataModule.Query1.First;
SL := TStringList.Create;
try
while not DataModule.Query1.Eof do
begin
Fweight:= DataModule.Query1.FieldByName("Weight").AsInteger;
FIdAnswer := DataModule.Query1.fieldbyname"id_answer").AsInteger;
s1:= DataModule.Query1.FieldByName("AText").AsString;
s:= "<input type="radio" name="C1" value="ON" Onclick="TitleChange(" + inttostr(FWeight) + ", "+ inttostr(FIdAnswer) +")">" + "<font color="#800080" face="Tahoma" size="3">" + s1 + "</font><br>";
SL.Insert(Random(SL.Count), s);
DataModule.AdoQuery.Next;
end;
WriteLn(F, SL.Text);
finally
SL.Free;
end;
{...}
end;
{...}
initialization
Randomize;
← →
dr_neo (2002-04-23 13:59) [2]Большое спасибо!
Если кто-то еще надумает ответить - пишите обязательно!!!
← →
dr_neo (2002-04-23 14:13) [3]Большое Спасибо, Большое Спасибо...
Не Работает, Черт!
Подскажите еще какие нибудь методы для этого решения, Пожалуйста!
← →
dr_neo (2002-04-23 14:44) [4]Заработало!!!
Ура!!!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c