Buchstaben sortieren aus einem Memofeld

[Hawkeye219]

Hallo Fussel,

so meinte ich das in meinem Beitrag #9:

Delphi-Quellcode:

var
  SL: TStringList;
  InputText: string;
  OutputText: string;
  i: Integer;
begin
  SL := TStringList.Create;
  try
    InputText := MemoInput.Text;

    // Buchstaben und zugehörige Positionen in der Stringliste ablegen
    // (die Positionen werden in SL.Objects[] gespeichert)
    for i := 1 to Length(InputText) do
      SL.AddObject (InputText[i], Pointer(i));

    // Stringliste nach den Buchstaben sortieren
    SL.Sort;

    // Ausgabetext dimensionieren
    SetLength (OutputText, SL.Count);

    // Zeichen für Zeichen aus der Stringliste holen und über die
    // gespeicherte Position in den Ausgabestring einsetzen
    for i := 0 to SL.Count - 1 do
      OutputText[Integer(SL.Objects[i])] := SL[i][1];

    ShowMessage (OutputText);
  finally
    SL.Free;
  end;
end;

Die Kommentare sollten dir helfen, den Quelltext zu verstehen.

Gruß Hawkeye