Вправа 11.2

Дано текст, що складається з латинських літер та символу «пробіл». Визначити, які символи використані в тексті, виводячи їх в алфавітному порядку.

Розв'язання

procedure TForm1.Button1Click(Sender: TObject);

Var m:set of 'a'..'z';

    i:integer;

    c:char;

    s:string;

begin

     m:=[];

     s:= Memo1.Text;

     for i := 1 to length(s) do begin

         m:=m + [s[i]];

     end;

     for c:='a' to 'z' do begin

         if c in m then Memo2.Lines.Add(c);

     end;

end;

Додаткове завдання.
Додайте кнопку та код, за допомогою яких можна роздрукувати всі букви, що не входять до тексту.