guten morgen.

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

markieren

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.

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:

markieren

Delphi-Quellcode:

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

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

Hallo herrentor,

z.B. so:

zusammenfalten · markieren

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;

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

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

zusammenfalten · markieren

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

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

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

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

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