Abfrage ob eingegebener Wert nur ein Charackter

[DeddyH]

Wie ist nf deklariert?

[wicht]

Delphi-Quellcode:

function suche(buchstabe:string):integer;
var
  i: integer;
begin
  result := 0;
  i := 1;
  if length(nf) = 0 then
     exit;
  while a[i] <> buchstabe do begin
    Inc(i);
    if i > length(nf) then
      break;
  end;
  result:=i;
end;

So vielleicht? Ungetestet..

[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;

[Lotus]

hm.. ok müsste ich dann mal ausprobieren.. wisst ihr zufällig noch ob es eine Funktion für Charackters gibt und kleinbuchstabe in Großbuchstabe umwandelt? also kurz gesagt ich brauche UpperCase für charackters und nich nur für strings.. gibts sowas?

ok habs gefunden.. für charackters wars einfach UpCase und nich UpperCase