String nach bestimmten Zeichen(Buchstaben) absuchen

[p80286]

Falls wir uns im ASCII/Ansi - Bereich bewegen, schlage ich folgendes vor:

Delphi-Quellcode:

var 
  abstb: Array [0..255]of integer;

begin
  fillchar(abstb,#0,sizeof(abstb));
  for i:=1 to length(instr) do inc(abstb[Byte(instr[i])],1);
end
...
if abstb[buttonchar]>1 then found else error;

Gruß
K-H