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.