Zugriffsverletzung?

[Pseudemys Nelsoni]

moin

bei folgendem bekomme ich eine zugriffsverletzung:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  case Edit1.Text[1] of
  '0'..'9': begin
              Edit1.Text := '';
              ShowMessage('Das erste Zeichen in deinem Nick darf keine Zahl sein!');
            end;
  end;
end;

´

ich möchte verhindern das das erte zeichen im edit1 eine zahl ist...der fehler liegt am "Edit1.Text := '';" aber ich weiss nicht warum, was ist denn daran falsch?

[Tom]

1) Anwender gibt 9 ein.
2) Dein OnChange Setzt Edit.Text auf '' und ruft damit OnChange auf!
3) Dein Edit.Text ist jetzt ''
4) Du greifst auf das 1. Zeichen zu, dass es nicht gibt.

[Christian Seehase]

Moin Silent,

oder allgemeiner:
Bevor Du auf den Index zugreifst ([1]), solltest Du überprüfen, ob der String überhaupt lang genug ist.

[Pseudemys Nelsoni]

danke ;)