wenn keine zahl, dann...?

[herrentor]

guten morgen.

ich wüsste gerne, wie die bezeichnung für zahl ist? wenn zelle ungleich zahl dann...

Code:

if (Form1.Tab.Cells[3,i] <> real) or
      (Form1.Tab.Cells[4,i] <> real) then

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

danke im voraus.

[MrSpock]

Hallo herrentor,

ich meine ich hätte mal die Funktion IsNumber gesehen, habe sie aber gerade in der OH nicht gefunden.

Alternativ kannst du folgendes machen:

Delphi-Quellcode:

try
  wert := StrToFloat(Form1.Tab.Cells[4,i]);
except
  on exception do
  begin
  { ist keine Zahl }
  end
end

[herrentor]

wie soll ich denn {ist keine zahl} ausdrücken?

[MrSpock]

Hallo herrentor,

z.B. so:

Delphi-Quellcode:

function isNumber(str: String; var number: Extended): Boolen;
var
  wert : Extended;
begin
  Result := True;
  try
    wert := StrToFloat(str);
    number := wert; 
  except
    on exception do
    begin
      Result := False;
    end
  end
end;

[Smokey]

Wenn du Delphi7 hast, schau in der Hilfe mal nach

TryStrToInt,
TryStrToFloat

das würde dir die Exception sparen.
die Funktion Val kann dir das auch ersparen, hat aber Probleme mit ein paar strings die als Zahl erkannt werden

[StefanDP]

Ich würde ehrlichgesagt keine try...except machen, weil man das nur im "notfall" anwenden sollte!
eine elegantere lösung wäre:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  code: Integer;
  was: Real;
  text: String;
begin
  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
    ShowMessage('Ist eine Zahl')
  else
    ShowMessage('Ist keine Zahl');
end;

stefan

[Smokey]

joa wie oben schon gesagt, Val ist ne möglichkeit ABER : setzt mal dein Val auf den String 'XC' an.
Dann weisst du, was ich mit "problematisch" meinte

[StefanDP]

Zitat von Smokey:

joa wie oben schon gesagt, Val ist ne möglichkeit ABER : setzt mal dein Val auf den String 'XC' an.
Dann weisst du, was ich mit "problematisch" meinte

schon, aber dass da genau "XC" drin steht ist auch relativ unwahrscheinlich

[Kevin]

Aber sollte man als Programmierer nicht grade auf das Unwahrscheinliche vorbereitet sein...?!

[StefanDP]

das "XC" problem kommt aber nur bei var(...,integer,...) vor!
im oberen beispiel ist es aber eine real variable! Da wird es nicht falsch also richtig erkannt.

stefan