Zitat von
silent:
jo das ist ja das komische lol
Das ist wieder ein Äpfel/Birnen Problem. 8)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Type TZahlen = '0'..'9'; // was soll das ?
Zahl = Set Of TZahlen; // besser einfach SET OF byte/char
var Zahlen: Zahl;
S: String;
begin
Zahlen := ['0'..'9']; // <------- Menge wurde nicht initialisiert
S := '4561456'; // was soll das S ? hat mit Typ nichts zu tun
if '2' in Zahlen then
showmessage ('gefunden')
else
showmessage ('nicht gefunden');
end;
end.