wenn keine zahl, dann...?

[herrentor]

das klappt noch nicht so. außerdem wird "was" niemals benutzt.

Code:

text := '3.141592';     // entspricht deinem ...cells[x,y] 
 val(text, was, code);   // wenn "text" eine Real-Var ("was") ist
                          // wird in "code" der wert 0 zurückgegeben 
                          // sonst wird "irgend was anderes" ausgegeben 
 if (code = 0) then
  begin
   ShowMessage('   Sie müssen noch Werte eingeben!   ');                                                                  
  end

  else 
   begin
    ShowMessage('   Sie müssen noch Werte eingeben!   ');      
    exit                                                                     
   end;

so kommt die nachricht, obwohl zahlen drin stehen.