Hi!

Ich müsste wissen, wie ich mit Hilfe von Delphi ein Wort in sich umsortieren kann? Und alles in einer ListBox ausgeben kann?

Beispiel:

KEKS //<- Das ist das erste Wort
EKKS
SKKE
SKEK
...




Und das dann halt für jedes andere X-Beliegbige Wort.

Könnt ihr mir helfen?



MfG
Cruso

Hm,

kannst ne Schleife nehmen und jeden Buchstaben durchgehen und ihn an eine andere Stelle setzen und dann in der ListBox einfuegen!

Was ist genau dein Problem, der Zugriff auf die einzelenen Positionen des strings oder die Kombinatorik?

Hallo.

Scheinbar geht es um Sortieren und Umkehren. ReverseString() ist Bestandteil der Unit StrUtils und SortedString geht zur Not so:

zusammenfalten · markieren

Delphi-Quellcode:

function SortedString(const s: String): String;
var
  iInner, iOuter: Integer;
  c: Char;
begin
  Result := s;
  for iOuter := 2 to Length(Result) do
    for iInner := Pred(iOuter) downto 1 do
      if Result[iInner] > Result[Succ(iInner)] then
      begin
        c := Result[Succ(iInner)];
        Result[Succ(iInner)] := Result[iInner];
        Result[iInner] := c;
      end else Break;
end;

Ostergrüße vom marabu

alle möglichen Variationen finden?

Permutationen

Zitat von marabu:

Scheinbar geht es um Sortieren und Umkehren. ReverseString() ist Bestandteil der Unit StrUtils und SortedString geht zur Not so:
...

Oder so:

zusammenfalten · markieren

Delphi-Quellcode:

function ReverseString(const input : string) : string;
var
  currentChar,
  outputChar : PChar;
  beforeFirstChar : Integer;
begin
  if length(input) > 1 then
  begin
    SetLength(Result, length(input));

    beforeFirstChar := Integer(@input[1]) - SizeOf(Char);
    outputChar := @result[1];
    currentChar := @input[length(input)];

    while Integer(currentChar) > beforeFirstChar do
    begin
      outputChar^ := currentChar^;
      inc(outputChar);
      dec(currentChar);
    end;
  end
  else
   Result := input;
end;