StringGrid: Eingabe in Zelle prüfen

[Helmi]

Ja, genau so.

Dein Code hatte noch ein paar Macken - habs jetzt so gelöst:

Delphi-Quellcode:

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