Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от iGlass

Всем доброго времени суток!

Вопрос:

Имеется два текстовых поля Memo1,Memo2 и кнопка.

Так вот по нажатии на кнопку необходимо строчки из Memo1 переместить в Memo2 в рандомном порядке.

Заранее спасибо :-)

вот написал процедурку:

Код:

procedure peremeshat(s1,s2:TStrings);
var i,k:integer; s:TstringList;
begin
s:=TStringList.Create;
s.Text:=s1.Text;
s2.Clear;
for i:=0 to s.Count-1 do begin
k:=random(s.Count-1);
s2.Add(s[k]);
s.Delete(k);
end;
end;

В твоем случе пользоватся ею нужно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
peremeshat(memo1.Lines, Memo2.Lines);
end;