![]() |
Try / Except. Was mach ich falsch?
Hallo zusammen.
Ich hab folgendes Problem
Code:
e_wenummer.text ist ein Edit Feld in dem nur Zahlen stehen können.
procedure Tf_hauptmenue.bbtn_bildspeichernClick(Sender: TObject);
var swe_nummer : string; iwe_nummer : integer; begin swe_nummer:=e_wenummer.Text; try iwe_nummer:=StrToInt(swe_nummer); except iwe_nummer:=0; end; // Abfrage ob WE Nummer eingetragen ist if iwe_nummer > 0 then begin ...... ich möchte, abfragen, ob das Feld leer ist oder nicht. Wenn es leer ist, soll eine Meckermeldung kommen und wenn was drin steht soll die Anwendung ganz normal weiter laufen. Ich geh hin, wandel den String in Int um und schaue, ob er größer 0 ist. Wenn das Feld leer ist, also kein String in Int umwandelbar ist, soll iwenummer mit 0 vorbelegt werden. Ich bekomme aber trotzdem die Meldung, das '' kein gültiger Int - Wert ist und die Applikation steigt aus. Was mach ich falsch? |
Re: Try / Except. Was mach ich falsch?
Die Meldung bekommst du nur, weil du die Applikation von Delphi compiliert. Er weißt dich bloß auf den Fehler hin. Starte das Programm mal so, und du solltest keinen Fehler sehen
|
Re: Try / Except. Was mach ich falsch?
Jau Danke
auf sowas muss man erstmal kommen. Und ich dachte schon ich bin zu blöd dafür, tüntel hier seid ner Stunde rum. Danke nochmal |
Re: Try / Except. Was mach ich falsch?
Hi,
OK, hat sich erledigt!! MfG Marc |
Re: Try / Except. Was mach ich falsch?
oder man macht es mit TryStrToInt
Code:
So gibts auch keine meldung beim compilieren :-)
var
I: Integer; begin If TryStrToInt(swe_nummer, I) then iwe_nummer := I else iwe_nummer := 0; end;
Code:
[Edit] es geht auch ohne dem If, da TryStrToInt eine 0 zurück gibt wenn der String keinen Zahl ist [/Edit]
var
I: Integer; begin TryStrToInt(swe_nummer, I); iwe_nummer := I; end; |
Re: Try / Except. Was mach ich falsch?
Oder in Delphi:
Tools - Debugger-Optionen - Sprach Exceptions: Haken weg bei "bei Delphi-Exceptions stoppen" (oder so ähnlich ;) ) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz