Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
14-17668
VictorT
2002-02-20 16:47
2002.05.06
Игрушка для програмиста


1-17522
Санёк
2002-04-23 17:26
2002.05.06
Куда то пропал мой вопрос....


14-17681
SPeller
2002-03-29 10:07
2002.05.06
Стартовая страница в IE


1-17618
Evgeny
2002-04-20 09:04
2002.05.06
многоугольник


3-17508
Евкисий
2002-04-11 20:13
2002.05.06
добавление поля в таблицу





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский