строки в дельфи

[dearkato]

Перемешать случайным образом буквы слова, введенного с клавиатуры.

готовый и рабочий текст программы:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  pos1: Integer;
  pos2: Integer;
  ch: Char;
  s:string;
begin
  s:=edit1.Text;
  Randomize;
  For i := 1 To Length(S) Do
  Begin
    pos1 := random(Length(S)) + 1;
    pos2 := random(Length(S)) + 1;
    ch := S[pos1];
    S[pos1] := S[pos2];
    S[pos2] := ch;
  End;
  label2.Caption := s;
end;

[Dush]

как вариант: берем длину строки, начиная с первого символа до конца строки -> random(новое место). дополнительно проверка места вставки символа в новой строке

[dearkato]

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

как вариант: берем длину строки, начиная с первого символа до конца строки -> random(новое место). дополнительно проверка места вставки символа в новой строке

procedure TForm1.button1Click(Sender: TObject);
var l,i:Integer;  k:Char;
begin
l:=length(edit1.Text);
Randomize;
for i:=1 to l do
begin
k:=Random({как написать, что random должен брать информацию из edit1?});
label2.Caption:=label2.caption+{опять же, как сделать так, чтобы k вывелась в label?};
end;
end;

[Dush]

  l:=length(edit1.Text);
  Randomize;
  label1.Caption:='';
  for i:=0 to l-1 do
  begin
    k:=Random(l);
    label1.Caption:=label1.caption+edit1.Text[k];
  end;

[val_nnm]

Несовсем правильный код. Т.к. некоторые буквы из исходного слова могут попасть в результирующую строку несколько раз. Другие же могут непопасть ниразу.
А я так понял что буквы нужно перетасовать.
Для этого нужно использовать чтото вроде этого

  s:=edit1.Text;
  l:=length(s);
  Randomize;
  for i:=0 to l-1 do
  begin
    k:=Random(l-i);
    temp := s[i+k];
    for j := i+k-1 downto i do
      s[j+1] := s[j];
    s[i] = temp;
  end;
  label1.Caption:=s;

Здесь строка условно разделяеться на 2 части. 1) перетасованная 2) неперетасованная.
Из неперетасованой части случайно выбираеться символ и вставляеться в конец перетасованной части ( при этом элементы неперетасаванной части сдвигаються)
p.s. Код непроверял т.к. нет дельфи под рукой.

[dearkato]

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

 
    s[i] = temp;
  end;

вот в этой строчке ошибка. надо прописать, чтобы s[i] присваивался какой-то элемент из temp[??]. завтра посмотрю. сейчас не слишком вникала в текст. спасибо за помощь))

[val_nnm]

возможно дело в том что temp должно быть типа char

а и ещё маленькая поправка (а работу алгоритма невлияет, но чтобы алгоритм неделал лишних действий если остался только один неперетасованный элемент)
вместо

 for i:=0 to l-1 do

можно написать

 for i:=0 to l-2 do