Форум: "Основная";
Текущий архив: 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.007 c