set of char wie array behandeln

[Robert Marquardt]

Die Problembeschreibung ist ungenuegend. Geht es um doppelte Buchstaben? Sollen die Vorkommen gezaehlt werden oder will man die Position des ersten Vorkommens?
Hier mal ein Vorschlag fuer das Zaehlen:

Delphi-Quellcode:

const
  AnzahlBuchstaben = 26; // 'a'..'z'
var
  Text: string; // zu durchsuchender Text
  Vorkommen: array [0..AnzahlBuchstaben*2 - 1] of Integer; // hier wird gezaehlt
  I: Integer;
begin
  for I := Low(Vorkommen) to High(Vorhommen) do
    Vorkommen[I] := 0;
  for I := 1 to Length(Text) - 1 do
    if Text[I] = Text[I+1] then
    begin
      if Text[I] in ['a'..'z'] then
        Inc(Vorkommen[Ord(Text[I]) - Ord('a')])
      else
      if Text[I] in ['A'..'Z']) then
        Inc(Vorkommen[Ord(Text[I]) - Ord('A') + AnzahlBuchstaben]);
    end;
end;

Danke, Fehler behoben.