Thema: Delphi kleine Suchabfrage

Einzelnen Beitrag anzeigen

E-Razor

Registriert seit: 3. Okt 2003
Ort: Bochum
12 Beiträge
 
Delphi 7 Enterprise
 
#1

kleine Suchabfrage

  Alt 17. Okt 2003, 14:35
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('',mterror,[mbok],0);
end;
Wie krieg ich denn jetzt strings in char oder so oder passt der ganze code nicht???
  Mit Zitat antworten Zitat