Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.02.27;
Скачать: [xml.tar.bz2];

Вниз

Перестановка строк   Найти похожие ветки 

 
DolQ   (2005-02-08 21:24) [0]

Подскажите как решить такую задачу:
Есть Memo1 в нем идут n строк (небольшое, приблизительно до 10) между которыми пустые строки. Как мне лучше всего поменять их местами в случайном порядке?


 
Johnmen ©   (2005-02-08 23:08) [1]

Randomize, Random, TStrings, Lines[i] и т.д. и т.п.


 
Юрий   (2005-02-09 19:01) [2]

...
 Randomize;
 Begin
   For I:= 1 to 10 do
    Begin
      TmpIndex:= Random(10)+1;
      TmpSt:=Memo1.Lines.Strings[TmpIndex];
      Memo1.Lines.Strings[TmpIndex]:=Memo1.Lines.Strings[I];
      Memo1.Lines.Strings[I]:=TmpSt;
    End;
 End;
...


 
begin...end ©   (2005-02-09 19:05) [3]

> Юрий   (09.02.05 19:01) [2]

> TmpSt:=Memo1.Lines.Strings[TmpIndex];    
> Memo1.Lines.Strings[TmpIndex]:=Memo1.Lines.Strings[I];
> Memo1.Lines.Strings[I]:=TmpSt;

Memo1.Lines.Exchange(TmpIndex, I)


 
Jeer ©   (2005-02-09 19:12) [4]

Юрий   (09.02.05 19:01) [2]
>For I:= 1 to 10 do

После этого "случайного" порядка не будет, а будет приближение к нему.
Для улучшения случайности рекомендую увеличить интервал перемешивания на пару порядков::)


 
DolQ   (2005-02-09 20:59) [5]

Спасибо за помощь!



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.02.27;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.04 c
1-1108239839
Raider
2005-02-12 23:23
2005.02.27
ScrollBars.


1-1108125073
Piero
2005-02-11 15:31
2005.02.27
Как перехватить mooseWheel


9-1100340108
VolanD666
2004-11-13 13:01
2005.02.27
Timer в Builder.


3-1106739816
Scorpio
2005-01-26 14:43
2005.02.27
Нельзя определить поле более одного раза


14-1107844205
AlexG
2005-02-08 09:30
2005.02.27
Это что такое?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский