26.01.2013, 23:43
|
 |
Активный
|
|
Регистрация: 19.11.2011
Адрес: Украина, Луганская обл.
Сообщения: 244
Версия Delphi: 7, XE, Lazarus
Репутация: выкл
|
|
Код:
...
var
Item: Integer;
begin
Randomize;
Item := Random(Memo1.Lines.Count - 1);
Memo2.Lines.Add(Memo1.Lines.Strings[Item]);
Memo1.Lines.Delete(Item);
end
... |