Type global definieren

[himitsu]

Schreib einfach statt "(edit2.Text[1] in Zahlen)" das "(edit2.Text[1] in ['0'..'9'])"

[Pseudemys Nelsoni]

jo, danke=)

gibts nen grund dafür das meins nicht ging?

[himitsu]

Ich glaub da spielt uns mal wieder die Codeoptimierung des Compilers einen Streich.

Denn das geht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Type TZahlen = '0'..'9';
  Zahl = Set Of TZahlen;
var Zahlen: Zahl;
  S: String;
begin
  S := '4561456';
  if S[1] in Zahlen then Beep;  {*}
  Caption := S;                 {*}
end;

das auch

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Type TZahlen = '0'..'9';
  Zahl = Set Of TZahlen;
var Zahlen: Zahl;
  S: String;
begin
  S := '4561456';
  if S[2] in Zahlen then Beep;  {*}
end;

aber das nicht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Type TZahlen = '0'..'9';
  Zahl = Set Of TZahlen;
var Zahlen: Zahl;
  S: String;
begin
  S := '4561456';
  if S[1] in Zahlen then Beep;  {*}
end;

[Pseudemys Nelsoni]

jo das ist ja das komische lol

[Hansa]

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.

[Pseudemys Nelsoni]

Delphi-Quellcode:

Type TZahlen = '0'..'9';  // was soll das ? 
  Zahl = Set Of TZahlen;  // besser einfach SET OF byte/char

ich hätte auch byte/char genommen, aber es geht nicht, teste selbst

[Hansa]

Zitat von silent:

Ich hätte auch byte/char genommen, aber es geht nicht, teste selbst

Habe ich jetzt doch tatsächlich gemacht. Kein Problem.

[Pseudemys Nelsoni]

kein problem?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Type
  TZahlen = Set Of byte;
var
  Zahlen: TZahlen;
begin
  if 9 in Zahlen then
  ShowMessage('ja')
  else ShowMessage('nö');
end;

wieso kommt dann bei 9 "ja" und bei 8 "nö" ?

[Hansa]

Zitat von silent:

...wieso kommt dann bei 9 "ja" und bei 8 "nö" ?

Das habe ich weiter oben bereits gesagt. Würd ich mir mal ansehen, sonst wird das nie was. 8)

[Pseudemys Nelsoni]

ich sehs nicht, hilf mir mal nach pls