Ich muss einen Test auf Buchstabenkombinationen untersuchen. Es sind immer zwei Buchstaben von aa bis ZZ.
Kann ich ein array so bauen, daß ich von a to z oder von A to Z eine Schleife hinbekomme? Mit set(i) komme ich nicht weiter.

Danke, Messie

Set ist ja ne Menge, das ist was anderes wie ein Array.
Du kannst den Inhalt des Arrays, Eleemnet für Element mit dem Suchstring vergleichen.

Hallo Messie,

ich habe dein Problem noch nicht ganz verstanden. Kannst du es konkretisieren?
Vielleicht hilft folgender Code aber schon weiter:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMyType = 'a'..'z';
  TMyArray = array[TMyType] of string;

var
  Daten : TMyArray;

implementation

{$R *.dfm}

procedure Test;
var lk : Char;
begin
  // Daten von a bis z durchlaufen.
  for lk := Low(TMyType) to High(TMyType) do begin
    ShowMessage(Daten[lk]);
  end;

  // Oder direkter Zugriff mit einem Buchstaben.
  ShowMessage(Daten['b']);
end; // Test

Gruß,
pszopp

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:

zusammenfalten · markieren

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.

to robert:
zeile 13 müsste so lauten if Text[I] in ['a'..'z'] then

Zitat von pszopp:

for lk := Low(TMyType) to High(TMyType) do begin

Das war genau das, was ich suchte: der Zugriff auf den set per char.

Dann komme ich mitShowMessage(lk) an jedes Element des set - auch ohne das in einem array parken zu müssen.


Danke an alle, Messie