zahlen in stringgrid speichern

[Joe24]

So, jetzt mit implementierten "Zahlen > 10"-Filter!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  try 
    if StrToInt( Edit1.Text) > 10 then
      MessageBox( 0, 'Es werden keine Zahlen > 10 akzeptiert!','HINWEIS',48) else
    with Stringgrid1 do
      begin 
        Cells[ 1, stringgrid1.RowCount -1] := Edit1.Text;
        RowCount := RowCount +1; 
      end;  
  except 
    on EConvertError do 
      MessageBox( 0, 'Eintrag ist keine Zahl!','ERROR',16);
  end; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Stringgrid1.RowCount := 1;
end;