kleine Suchabfrage

[E-Razor]

Moin
guckt mal

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Buchstaben : set of char;
begin
Buchstaben := ['a'..'c','A'..'C'];
if edit1.Text in Buchstaben
then messageDLG('japp',mtinformation,[mbok],0)
 else messageDLG('nö',mterror,[mbok],0);
end;

Wie krieg ich denn jetzt strings in char oder so oder passt der ganze code nicht???

[Uncle Cracker]

Warum machst du das nicht gleich so, dass nur bestimmte Zeichen eingeben werden können?

Is doch noch einfacher

[Tanadirian]

Tja String mit Char vergleichen geht leider nicht, aber mit Edit1.text[x] müsstest du du einzelnen Zeichen des String direkt vergleichen können.

[negaH]

Delphi-Quellcode:

var
  Buchstaben: set of Char;
  I: Integer;
begin
  Buchstaben := [];  
  for I := 1 to Length(Edit1.Text) do
    Include(Buchstaben, Edit1.Text[I]);
  if Buchstaben * ['a'..'c','A'..'C'] <> [] then ;
  if Buchstaben - ['a'..'c','A'..'C'] <> [] then ;
end;

Gruß Hagen

[Uncle Cracker]

Oder eben durch Eingabe blockieren:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (key in ['a'..'c','A'..'C']) then
    key:=#0;
end;