Wörter zufällig wiedergeben

[Ric]

Morgen zusammen,

Ich arbeite derzeit an einem kleinen Programm.
Dieser beinhaltet 2 Edit, 2 Memo Felder und ein Button.
Es soll ein Satz zufällig wiedergeben, die anfangs und Endbuchstaben der Wörter sollen gleichbleiben.

Bsp.
Bitte Türe geschlossen lassen
Btite Trüe gelschsosen lssean

Ich bin soweit gekommen, das die Wörter jeweils in einer Zeile angezeigt werden.
Ich habs mit Random(list.Count); versucht, nur kommen die Buchstaben auch mal doppelt vor.
Die Anfangs und Endbuchstaben bleiben auch nicht bestehen. Ich bin sehr neu im Programmierwelt,
der folgende Code wird wohl falsch sein :). Habt Ihr tipps wie ich mein Proplem lösen kann.
Falls mehr vom Quelltext erforderlich ist kann ichs noch posten.

Danke im Vorraus.

Delphi-Quellcode:

memo1.Text := list.text;

      for I := 0 to length(txt)-1 do
      begin
       Random(list.Count);
        edit2.Text := edit2.Text + list.Strings[Random(list.Count)];

[DeddyH]

Für ein einzelnes Wort könnte das so funktionieren (ungetestet):

Delphi-Quellcode:

function MergedChars(const Src: string): string;
var
  i: integer;
  
  procedure swap(var c1, c2: char);
  var
    tmp: char;
  begin
    tmp := c1;
    c1 := c2;
    c2 := tmp;
  end;
  
begin
  (* Randomize sollte bereits aufgerufen worden sein *)
  Result := Src;
  for i := 2 to Length(Result) - 1 do
    swap(Result[i], Result[Random(Length(Result) + 2) - 1]);
end;

[Ric]

Hi und danke für deine antwort:).
Ich kam leider nicht zum gewünschten Ergebnis, lag aber wohl an mir:?.

Problem:
Die Buchstaben werden nicht ganz zufällig wiedergegeben und mir fehlen immernoch
die Anfangs und Endbuchstaben.
Wie kann ich weiter vorgehen?

Bsp.
Bitte Türe geschlossen lassen = iit üü scshheles ases

Hier auch der ganze Quellcode:

Delphi-Quellcode:

procedure TForm1.btnmixClick(Sender: TObject);
var
  txt: String;
  txt1 : String;
  i: integer;
  list: TStringlist;
  list1: TStringlist;
  edit3 : Tedit;
  y: Integer;
begin

  list1 := TStringList.Create;

  list1.Text :=  StringReplace(edit1.text, ' ', #13#10, [rfReplaceAll]);

  memo2.Text := list1.Text;

  list := TStringlist.Create;

  for y:= 0 to list1.Count - 1 do
  begin




    txt := Copy(list1.Strings[y],2,Length(list1.Strings[y])-2);

    list.Clear;
    for i := 1 TO length(txt) DO
      begin
        list.Add(copy(txt,i,1));
      end;

      memo1.Text := list.text;
      txt1 := '';

      for I := 1 to Length (txt) do
      begin
        
        txt1 := txt1 + list.Strings[Random(list.Count)];
        end;

      
        edit2.Text := edit2.Text +' '+ txt1 ;
      end;

      end;
      end.

[Deep-Sea]

Und wo befindet sich in deinem Quellcode jetzt irgend etwas von DeddyHs gepostetem Code? :shock:

[Ric]

Habe ich wieder rausgetan, weil es mir nicht weitergeholfen hat.
Wie aber schon gesagt kann es sein, das es an mir lag.
Ehrlich gesagt weiß ich auch nicht wo genau ich es einsetzen soll.

[p80286]

Wo bitte versuchst Du Wörter in deinem Text zu finden?
Nach meinem Verständis (erster und letzter Buchstabe) mußt Du erst die Wörter finden, diese dann verwürfeln und wieder abspeichern.

Um ehrlich zu sein ich verstehe nicht was Du da anstellst.

Gruß
K-H

[DeddyH]

So hatte ich das auch verstanden. String in einzelne Wörter aufteilen, diese dann "verwursten" (1. und letzten Buchstaben dabei unverändert lassen) und zum Schluss wieder alles zusammenkleben.