Abfrage ob eingegebener Wert nur ein Charackter

[DeddyH]

Wenn der Buchstabe nicht vorkommt, liefert die Funktion ein falsches Ergebnis.

//Edit: Auch ungetestet, aber evtl. so:

Delphi-Quellcode:

function suche(buchstabe: char): integer;
var i: integer;
begin
  Result := -1;
  for i := Low(nf) to High(nf) do
    if nf[i] = buchstabe then
      begin
        Result := i;
        break;
      end;
end;