Delphi kleine Suchabfrage

Thema durchsuchen

Ansicht

Themen-Optionen

kleine Suchabfrage

Ein Thema von E-Razor · begonnen am 17. Okt 2003 · letzter Beitrag vom 17. Okt 2003

Vorheriger Beitrag

Nächster Beitrag

E-Razor

Registriert seit: 3. Okt 2003
Ort: Bochum
12 Beiträge

Delphi 7 Enterprise

kleine Suchabfrage

17. Okt 2003, 15:35

Moin
guckt mal

markieren

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???