применение обработки строк

[Евгений77777]

Дана строка.Подсчитать сколько различных символов встречаются в ней
и вывести их на экран.

ввести символы в edit1

вывести кол-во символов в edit2

[VIK_aka_TOR]

i = 0
index = 0
while ( i < len(a)):
   j = 0
   while (j < len(a)):
       if (a[i] == a[j]) and ( j < i):
           break;
       if (j == len(a) - 1):
           index += 1
       j += 1
   i += 1
print "Unikalnyh elementov: ",index

эдиты в Pythone пропишите сами... )))

[IT-man]

s:=edit1.text;
c:=0;
For i:=#0 to #255 do
if pos(i,s)<>0 then inc(c);
edit2.text:=inttostr(c);

[Евгений77777]

нужен код делфи

[VIK_aka_TOR]

Сообщение от Евгений77777

нужен код делфи

а IT-man по вашему на каком языке написал??... надеюсь догадаетесь как его вставить... включайте мозг... халявный сыр только в мышеловке...

[Базиля]

Евгений77777

Сообщение от IT-man

s:=edit1.text;
c:=0;
For i:=#0 to #255 do
if pos(i,s)<>0 then inc(c);
edit2.text:=inttostr(c);

А это что тогда?

[Евгений77777]

var
s,i:string;
c:Integer;

begin
s:=edit1.text;
c:=0;
For i:=#0 to #255 do
if pos(i,s)<>0 then inc(c);
edit2.text:=inttostr(c);
end;

вот код программы
матерится на вот эту строчку For i:=#0 to #255 do

подскажите что исправить

[whatever]

i типа char должно быть.

P.S. не знал, что в for можно char использовать, даже в голову бы не пришло Оо

[Евгений77777]

оно выводит кол-во различных символов

еще нужно вывести сами символы

[whatever]

Ну прояви фантазию:

s:=edit1.text;
c:=0;
For i:=#0 to #255 do
if pos(i,s)<>0 then 
  begin
    inc(c);
    memo1.text:=memo1.text+i+' ';
  end;
edit2.text:=inttostr(c);
memo1.text:=memo1.text+#13#10;

Либо в edit2 выводи аналогичным образом.