Position eines Chars in einem Array of Chars finden

[Helmi]

Hallo,

gibt es eine Möglichkeit, ein Char in einem Array of Chars zu finden und so die Position des Chars rauszufinden, ohne dies in einer Schleife zu erledigen:

Meine Schleife schaut so aus:

Delphi-Quellcode:

const
  Chars: array[1..10] of Char = ('ä', 'ö', 'ü', 'Ä', 'Ö', 'Ü', 'ß', '²', '³', 'µ');

var
  j: Integer;
  C_Char: Char;

begin
  C_Char := 'Ä';

      for j := Low(Chars) to High(Chars) do
        If Chars[j] = C_Char then
          begin
            ShowMessage(IntToStr(j));   //<--- Diese Zeile ist nur für diesen Thread drin
            break;
          end;

Ich hätt gern so was in der Art:
ShowMessage(IntToStr(Array_Pos(C_Char, Chars))); Gibts so was?

[Hawkeye219]

Zitat von Helmi:

gibt es eine Möglichkeit, ein Char in einem Array of Chars zu finden und so die Position des Chars rauszufinden, ohne dies in einer Schleife zu erledigen

Klar gibt's die: Pos

Aber warum schreibst du dir die Finger bei der Defintion wund?

Delphi-Quellcode:

const
  Chars = 'äöüÄÖÜß²³µ';

Gruß Hawkeye

[Helmi]

Zitat von Hawkeye219:

Klar gibt's die: Pos

mmh - Pos ist mir natürlich bekannt, aber wie verwendet man dies mit dem Array?

Zitat von Hawkeye219:

Aber warum schreibst du dir die Finger bei der Defintion wund?

Ach - da ich viel tippe und und Textverarbietung mal gelernt hab, ist das ned tragisch

Zitat von Hawkeye219:

Delphi-Quellcode:

const
  Chars = 'äöüÄÖÜß²³µ';

Gruß Hawkeye

Das möcht ich nicht machen, da ich das Array of Chars in einer späteren Version nicht mehr hardgecodet haben möchte

[Hawkeye219]

Zitat von Helmi:

Pos ist mir natürlich bekannt, aber wie verwendet man dies mit dem Array?

Ich wette, du hast noch nicht versucht, das Array als zweiten Parameter zu übergeben?

Zitat:

Das möcht ich nicht machen, da ich das Array of Chars in einer späteren Version nicht mehr hardgecodet haben möchte

Ein String wäre da als (initialisierte) Variable oder resourcestring leichter zu handhaben als ein Array of char...

Gruß Hawkeye

[Helmi]

Zitat von Hawkeye219:

Zitat von Helmi:

Pos ist mir natürlich bekannt, aber wie verwendet man dies mit dem Array?

Ich wette, du hast noch nicht versucht, das Array als zweiten Parameter zu übergeben?

Irgendwie bin ich jetzt platt!

Ich hatte das mit Pos natürlich vor dem Schreiben dieses Threads probiert.
da erhielt ich eine Fehlermeldung.

Auf deine Frage jetzt hin, habs ich nochmals probiert - und es funktioniert:
Pos(C_Char, Chars) Danke Hawkeye - man lernt nie aus

[3_of_8]

Zitat von Helmi:

...ohne dies in einer Schleife zu erledigen...

Pos() benutzt auch eine Schleife. Anders ist das auch (kaum) möglich, du könntest das höchstens "hart" kodieren, was aber unsinnig wäre.

Was hingegen effizient wäre, wäre ein Bitvektor (32 Bytes), in dem du das dann überprüfst:

Delphi-Quellcode:

type
  TCharBitVector=class
  private
    FBytes: array[0..31] of Byte;
  public
    function GetInVector(Character: Char): Boolean;
    procedure SetInVector(Character: Char; InVector: Boolean);
    procedure SetCharactersInVector(str: String);
    property Characters[Character: Char]: Boolean
        read GetInVector write SetInVector; default;
  end;

implementation

procedure CalcByteAndBitIndex(const Character: Char;
    var ByteIndex, BitIndex: Byte);
asm
  movzx eax, al;
  push BitIndex;
  mov cl, 8;
  div cl;
  pop BitIndex;
  mov [ByteIndex], al;
  mov [BitIndex], ah;
end;

function TCharBitVector.GetInVector(Character: Char): Boolean;
var ByteIndex, BitIndex: Byte;
begin
  CalcByteAndBitIndex(Character, ByteIndex, BitIndex);
  Result:=Boolean((FBytes[ByteIndex] shr BitIndex) and 1);
end;

procedure TCharBitVector.SetInVector(Character: Char; InVector: Boolean);
var ByteIndex, BitIndex: Byte;
begin
  CalcByteAndBitIndex(Character, ByteIndex, BitIndex);
  if InVector then
    FBytes[ByteIndex]:=FBytes[ByteIndex] or (1 shl BitIndex)
  else
    FBytes[ByteIndex]:=FBytes[ByteIndex] and not (1 shl BitIndex);
end;

procedure TCharBitVector.SetCharactersInVector(str: String);
var I: Integer;
begin
  for I:=0 to 7 do
    FBytes[I]:=0;
  for I:=1 to length(str) do
    SetInVector(str[I], True);
end;

Zuweisung mehrerer Chars geht ganz bequem mit "myCharBitVector.SetCharacters('asdf');".
Nachsehen, ob ein Char drin ist mit "myCharBitVector['A]'"
Setzen eines einzigen Chars mit "myCharBitVector['A']:=True/False;"

Wenn du das nicht willst, kannst du die Chars wenigstens sortieren und dann eine binäre Suche durchführen.