안녕 하세요?

BacTeira 박종민 입니다.

음, 문자열 소트라... 무식 하지만 아래의 방법으로 구현 할 수 있습니다.

폼 위에 Edit 컴포넌트 하나와 Button 컴포넌트를 배치한 다음에 아래의 내용을

입력해 보세요.

아마 원하시는 결과가 나올겁니다.

------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  Txt: TStringList;
  Buffer: string;
  i: Integer;
begin
  Txt := TStringList.Create;
  Txt.Sorted := True;

  for i := 1 to Length(Edit1.Text) do
    Txt.Add(Edit1.Text[i]);

  SetLength(Buffer, Length(Edit1.Text));

  for i := 1 to Length(Edit1.Text) do
    Buffer[i] := (Txt.Strings[i-1])[1];

  Edit1.Text := Buffer;

  Txt.Free;
end;

------------------------------------------------------------

이만... 청주에서 박종민.