StringGrid erste Spalte nur Zahlen sonst Meldung schreiben

[DeddyH]

Meine Güte:

Delphi-Quellcode:

function IsValidID(const IDStr: string; ExpectedLength: integer = 10): Boolean;
const
  VALID_CHARS = ['0'..'9'];
var
  Len, idx: integer;
begin
  Len := Length(IDStr);
  Result := Len = ExpectedLength;
  if Result then
    for idx := 1 to Len do
      if not CharInSet(IDStr[idx], VALID_CHARS) then
        begin
          Result := false;
          break;
        end; 
end;

Ungetestet.