Registriert seit: 16. Feb 2015
Ort: Halle/S.
116 Beiträge
Delphi 10.2 Tokyo Enterprise
|
AW: Edit-Felder auf Inhalt prüfen
1. Aug 2015, 19:49
Um vielleicht mal einen Ansatz mit etwas Quellcode zu liefern...
So fängt es bei dir an:
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
V, Dichte, n, Re, Laenge, Ergebnis, d: Double;
Ausgabe: string;
begin
//schlägt fehl, wenn in Edit1 Mist drin steht -> exception
V:= StrToFloat(edit1.text)/1000;
Und so sollte es anfangen
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
V, Dichte, n, Re, Laenge, Ergebnis, d: Double;
Ausgabe: string;
begin
//hier wird versucht, V aus Edit1 einzulesen
//wenn das funktioniert, geht es mit true weiter
if TryStrToFloat(edit1.text, V) then
begin
V := V/1000;
{weitere Werte einlesen, rechnen, Rechnung prüfen}
end
else begin
showmessage('Werte für Volumenstrom und Länge eingeben!');
edit1.SetFocus;
edit1.SelectAll;
end;
end;
Sebastian
|
|
Zitat
|