Delphi String auf Buchstaben testen

Thema durchsuchen

Ansicht

Themen-Optionen

String auf Buchstaben testen

Ein Thema von TomDooley · begonnen am 3. Aug 2006 · letzter Beitrag vom 5. Aug 2006

Vorheriger Beitrag

Nächster Beitrag

TomDooley

Registriert seit: 26. Jan 2004
124 Beiträge

String auf Buchstaben testen

3. Aug 2006, 15:46

Gibt es eine fertige Funktion in Delphi mit der man einen String auf Buchstaben überprüfen kann?

Ich hab's bislang so gelöst:

zusammenfalten · markieren

Delphi-Quellcode:

			function CheckLetter(Text : String) : boolean;

var

  i : integer;

begin

  Result := false;

  for i:=1 to Length(Text) do

  begin

    if Text[i] in [chr($41)..chr($5A),chr($61)..chr($7A)] then

    begin

      Result := true;

      break;

    end;

  end;

end;