11.01.2010, 18:56
|
|
Познающий
Регистрация: 10.08.2009
Сообщений: 74
Провел на форуме:
1538500
Репутация:
69
|
|
Сообщение от iGlass
Всем доброго времени суток!
Вопрос:
Имеется два текстовых поля Memo1,Memo2 и кнопка.
Так вот по нажатии на кнопку необходимо строчки из Memo1 переместить в Memo2 в рандомном порядке.
Заранее спасибо :-)
Код:
procedure TForm1.Button1Click(Sender: TObject);
var I:integer;
var m:integer;
begin
for m:= 0 to memo1.Lines.Count-1 do
begin
I:= random(memo1.Lines.Count);
memo2.Lines.Add(memo1.Lines.Strings[i]);
memo1.Lines.Delete(i);
end;
end;
сорри если ошибся, я недавно в delphi
|
|
|