Type global definieren

[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;