Помогите с задачкой связанной со строками

[DemonGod]

Помогите пожалуйста!!!
Вроде бы и не сложная задача но так как давно не занимался программированием подзабыл, желательно конечно что она была выполнена в Делфи, вот условие:
Ввод. Каждое слово отсортированного списка слов располагается на отдельной строке. Буквы в слове даются заглавными буквами английского алфавита. Каждое слово состоит максимум из 20 символов. Могут быть использованы не все символы английского алфавита, но отсортированный список предполагает полное упорядочивание символов.
Вывод. Вывод должен быть на одной строке, и должен содержать заглавные буквы в порядке сортирующей последовательности, использованной во входном файле.
Пример.
Ввод. Вывод.
XWY
ZXY
ZXW XZYW

[Stilet]

а-а-а тебе нуна просто повыписывать в одну строку без повторов
Дык допустим есть Memo
тогда:

s:=memo1.linet.text;
for i:=1 to length(s) do begin
 if s[i] in ['A'..'Z'] then s2:=s2+s[i]+
end;

Ну и выводи S2.

[DemonGod]

Stilet
Спасибо конечно, но я то уже знал, у меня проблема в этой программе, в том что мне нужно чтоб повторных букв уже не было в конечной строке, а в этом кусочке программы который ты привел, оно просто работает на вхождение, если есть то выводит.

[ponchikpk]

чтоб не было повторных используй множество если буква входит в него то выводишь и вычеркиваешь из множества

[DemonGod]

А можно вообще объединив строки все вместе, а потом уже удалить из этой строки повторные буквы? Если можно приведите код для компоненте Edit, пожалуйста

ponchikpk

Спасибо, твой совет помог. А теперь символы в строке необходимо упорядочить по алфавиту (A..Z). Кто-нибудь знает как это сделать, а то что то не получается?

[Stilet]

Сортировки неоднократно обсуждались.
На Delphi World тоже куча примеров.
Набери на форуме в поиске сортировка пузырьком или пузырек и получиш ответ.

[XuTpbIu]

Предположим что у тебя есть все строки объединённые в и записанные в Edit. Тогда делаем ход конём:

var
  Ch: Char;
  TmpStr: String;
  I: Integer;
begin
  I := 1;
  TmpStr := '';
  While Length(Edit1.Text) > 0 do
  begin
    Ch := Edit1.Text[1];
    TmpStr := TmpStr + Ch;
    while Pos(Ch, Edit1.Text) <> 0 do
      Delete(Edit1.Text, Pos(Ch, Edit1.Text), 1);
  end;
  Edit1.Text := TmpStr;
end;

[DemonGod]

XuTpbIu

Спасибо тебе, очень помогло.