StringGrid: Eingabe in Zelle prüfen

[Bomberbb]

Meinst Du das in etwa so...?

Delphi-Quellcode:

case length(Text) of
  0:  If not (Key in ['S', '0', #8]) then
        Key := #0; 
  1,2:If Text[1]='0' then
        Key := #0
      else If (Text[1]='S') and not (Key in ['0'..'9', #8]) then
else
  Key := #0; 
end;