Fehlermeldung umgehen

[derhoeppi]

Hallo
Mir ist jetzt noch ein zweites Problem lästig geworden.Wenn ich ein Programm starte, dass ein Edit Feld beinhaltet, welches ausgelesen wird, aber keine Zahlen enthält, kommt immer eine Fehlermeldung und ich muss Delphi über den Taskmanager beenden. Hab dafür eigentlich eine if Anweisung geschrieben, aber die zeigt er mir gar nicht.

Sie sieht so aus und steht vor dem ganzen anderen Zeug:

Delphi-Quellcode:

if edit1.text=' ' then begin
     messageDlg('Leider kein Gewicht eingegeben. Programm wird beendet.',mtwarning,[mbok],0);
     close;
    end;

Ich hab dieses Programm auch mal über die erzeugte Anwendung gestartet und da bringt er, dass ein ungültiger Gleitkommawert vorliegt.

[1adavin]

Hallo,

versuch doch in einem try-except-end - Block.
Bei einem Fehler kann du dann entsprechend reagieren.

Delphi-Quellcode:

procedure tform1.checkEdit1;
var iWert : Integer;

begin
  try 
    if edit1.text > '' then begin

       iWert := strtoint (edit1.text);

    end

    else begin
         
         tue etwas anderes .....
    end;

  except
      on e : exception do begin
         showMessage ('Fehler bei der Eingabe'+#13#10+e.message);
      end;
  end;
end;

Viel Spaß damit

Gruß

1aDavin

[Luckie]

Vergiss den try-except-Block und mach das Leerzeichen zwischen den Hochkommas raus.

[1adavin]

und was ist bei einer alpha-nummerischen eingabe, die nicht ok ist ?

[derhoeppi]

Das Entfernen des Leerzeichens zwischen den Hochkommern hat auch nichts gebracht. Ich werd dann wohl mal das mit der anderen Methode versuchen.

[Luckie]

Mit Val (-> Hilfe) umwandeln und den dritten Parameter auf null prüfen, dann weißt du, ob es geklappt hat oder nicht.

[Luckie]

Zitat von derhoeppi:

Das Entfernen des Leerzeichens zwischen den Hochkommern hat auch nichts gebracht. Ich werd dann wohl mal das mit der anderen Methode versuchen.

Das kan nicht sein. Ob ein Edit leer ist oder nicht überprüft man so:

Delphi-Quellcode:

if Edit1.Text = '' then
  ShowMessage('Edit leer.');

Oder

Delphi-Quellcode:

if length(Edit1.Text) = 0 then
  ShowMessage('Edit leer.');

[Arne Kamola]

Hallo,
ich habe das selbe Problem und weiß im Moment nicht mehr weiter:
Nach der Prüfung des Edit1 Feldes erscheint die Nachricht, dass das Feld leer ist und danach nochmal die Warnung:

Zitat:

" ist kein gültiger Integerwert

Kann man irgendwie verhindern das diese Nachricht erscheint? Ich kann mir vorstellen, das es die Benutzer irritiert.

MfG Arne

[faux]

hast du etwa
length(Edit1.Text) = '' geschrieben??

im übrigen sind das '' zwei einzelne hochkommas und nicht ein anführungszeichen (")...

[Arne Kamola]

Nein, ich habe das andere Beispiel verwendet:

Code:

Edit1.Text = ''

MfG Arne

PS: Vielen dank für den Hinweis mit den Hochkommatas.