Hi.
@yankee: Nimm anstatt des Arrays ein
set of char... Da kannst du ganz einfach mit
in prüfen und mit Include/Exclude einfügen/rauslöschen
Mal ein Beispiel, wie man kein Zeichen 2x direkt hintereinander eingeben kann...
Delphi-Quellcode:
var
s : set of char;
function IsOkay(c : char) : boolean;
begin
if c in s then
begin
Exclude(s, c);
return false;
end
else if not (c in s) then
begin
Include(s, c);
return true;
end;
end;