Hallo !
Ich habe ein problem, ich lasse in Delphi, einige Berechnung durchführen, wo z.B. edit1 als Bsp. + edit2 addiert usw. wird.
Wenn man aber in den feldern nicht,bzw. Strings eingibt, spielt das Prog ja Macke. Jetzt wollte ich fragen, wie ich Abfrage, ob in einem Editfeld ein String bzw. nichts drinsteht .
MFG
Martin
Danke schonmal im Vorraus
Versuchs mal mit
If Edit1.Text ‚‘ then
begin
…
end ; //So findest du heraus,ob im Editfeld überhaupt was steht
Um heraus zu finden, ob eine Zahl drinsteht geht folgendes.
var
n: integer;
...
try
n := inttostr(edit1.text);
except
...
...
end;
...
Hallo,
das Beste ist, du schreibst fuer die Edit-Felder OnKeyPress-Ereignisse (kannst eins fuer alle Editfelder verwenden). Dort gibst du etwa folgendes ein:
if (Key ‚9‘) and (key ‚.‘) and (key chr(8)) then Key := chr(0);
damit verhinderst du, dass etwas anderes als Zahlen, komma oder Backspace eingegeben wird. (Evtl solltest du noch abfangen, dass doppelte Kommata eingegebem werden).
Gruss, Niels
Alternative zu Volkers Vorschlag:
procedure EditsOnKeyPress(Sender:TObject);
var
Zahl:Single;
Fehler:Integer;
begin
val(TEdit(sender).Text,Zahl,Fehler);
if Fehler 0 then begin
// Im Editfeld steht keine gültige Zahl...
end;
end;