Lazarus, вывести все буквы, встречающиеся в тексте по одному разу

[Lirax]

Дана строка.Вывести все буквы, встречающиеся в тексте по одному разу в строке

procedure TForm1.Button1Click(Sender: TObject);
var
  alf: array ['a'..'z'] of char;
  num: array [1..26] of integer;
  i:integer;
  s:string;
begin
  s:=Edit1.text;
  for i:= 1 to length(s) do
      if (s[i] in ['a'..'z']) then
      num[ord((text[i]) - 96)] += 1;
  for i:= 1 to 26 do
      if num[i] = 1 then
         Label2.Caption := Label2.Caption + (chr(i + 96));

end;

end.

Не могу понять выдает ошибку в этом фрагменте

num[ord((text[i]) - 96)] += 1;

[type_Oleg]

Сообщение от Lirax

Не могу понять выдает ошибку в этом фрагменте
Код:
num[ord((text[i]) - 96)] += 1;

Это же вам не Си, а Паскаль. Какое может быть += ?
Если прибавить 1, то Inc(...

[evg_m]

чем больше разнообразных переменныхидентификаторов в одной строке тем больше проблем с отладкой
1. объявите переменные

var
 c: char;
 n: integer;

2. и напишите вот такой код

c:=test[i];
n:=ord(c)-96;
num[n]+=1;

какая из строчек будет теперь с ошибкой и КАКОЙ ошибкой?

Какое может быть += ?

Lazarus такое знает.

[digitalis]

Чувствуется Сишник
+= нигде больше мне не встречалось.
Я бы ещё перед циклом проинициализировал Label2.Caption

Label2.Caption := '' ;

[Lirax]

Всем большое спасибо, что откликнулись. Немного покопавшись у меня все заработало

procedure TForm1.Button1Click(Sender: TObject);
var
  s,sub1,sub2:string;
  i:integer;
begin
  s:=edit1.text;
  i:=1;
  while i<=length(s) do begin
    sub1:=s[i];
    sub2:=copy(s,i+1,length(s)-i);
    if pos(s[i],sub2)>0 then
       while pos(sub1,s)>0 do
             delete(s,pos(sub1,s),1)
    else i:=i+1;
  end;
  edit2.text:=s;
end;

end.

[digitalis]

Для этого пришлось перекроить весь алгоритм. Это как бы решение несколько другой задачи. Первый вариант был заточен на строчные латинского алфавита, второй - универсальный.
Но мне слабо верится, что человек, начав с

+= 1;

, накропал такой достаточно элегантный вариант. Кому-то проставил?
Или

Немного покопавшись

в сети ?
Впрочем, не моё это дело. Веришь - не веришь - это в церкви.
Главное - есть решение - поделился с обществом.
"Зарубился сам - заруби товарища" © альпинистская заповедь.

[MihalNik]

Сообщение от digitalis

накропал такой достаточно элегантный вариант.

А что в нем элегантного-то? Оно ни ленивое, ни эффективное, ни верное)

[digitalis]

Протестировал - вроде работает без проблем. Глубоко в текст я не вникал. Можете дать строку, на которой лажает?

12345176
234576

В один цикл, не занимает вспомогательных массивов. Будь я преподом (чур меня!) - зачет бы поставил.

[MihalNik]

Сообщение от digitalis

Протестировал - вроде работает без проблем. Глубоко в текст я не вникал.

Так надо только буквы. Где там их проверка?
А циклы завернуты в copy и pos. Ну и копия строки мало чем от вспомогательного массива отличается.