[effe]

Прошу помочь
есть два memo1 и memo2 и есть одна кпока
в мемо 1 есть слова в каждую строчку одно слово
нужно случайным образов с мемо1 в мемо 2 перекидовало одно слово и удалялось это слово в мемо1
ну картинка может быть, объяснит

[sariman]

Код:

...
var
  Item: Integer;
begin
  Randomize;
  Item := Random(Memo1.Lines.Count - 1);
  Memo2.Lines.Add(Memo1.Lines.Strings[Item]);
  Memo1.Lines.Delete(Item);
end
...

[effe]

Спасибо большое

[angvelem]

Небольшая поправка, нет нужды постянно вызывать Randomize. Это делается один раз при запуске программы.

Код:

... 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize; 
end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  Item: Integer;
begin
  Item := Random(Memo1.Lines.Count - 1); 
  Memo2.Lines.Add(Memo1.Lines.Strings[Item]); 
  Memo1.Lines.Delete(Item); 
end;
...