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.

[Smokey]

lies dir mal die hilfe zu Val durch

In "was" wird der Zahlenwert gespeichert wenn es denn eine Zahl war.
Ausserdem hast du 2mal die gleiche meldung, also klar das immer die kommt 8)

[StefanDP]

was wird schon benutzt! von was ist lediglich der variablentyp wichtig (var was: real)

probier einfach mal meinen code mit dem button aus!

[Ultimator]

Kalr kommt die immer:

Delphi-Quellcode:

if (code = 0) then 
  begin 
   ShowMessage('   Sie müssen noch Werte eingeben!   ');                                                                  
  end 

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

Wenn der code 0 ist(if code = 0), dann kommt die Nachricht(then Showmessage(...)), andernfalls (else)kommt die Nachricht auch (Showmessage(...)).
Soweit klar geworden?

Und BITTE! Nehmt doch kein real mehr, sondern single, double, extended usw...

[herrentor]

es kommt zuerst: ist eine zahl, obwohl keine drin steht. dann auf ok und er schmiert ab, weil kein gültiger gleitkommasatz.

[herrentor]

das ist schon klar, warum immer die selbe nachricht kommt, aber er springt eben nicht aus dem programm, wenn keine zahl eingegeben wurde. wenn eine zahl drin steht, soll er ja gar nichts machen.

[StefanDP]

wo soll er denn "rausspringen"
aus der prozedur/funktiktion ?

[herrentor]

wenn keine zahl eingegeben wurde soll er die prozedur abbrechen, weil ja sonst der fehler auftritt, keine gleitkommazahl etc.

[StefanDP]

das text := '3.14';
musst du halt noch entsprechend anpassen! weil 3.14 ist immer eine zahl!
du musst das durch deine cells ersetzen

[herrentor]

hab mich schon gewundert, jetzt klappt es, besten dank.