Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Try / Except. Was mach ich falsch? (https://www.delphipraxis.net/34321-try-except-mach-ich-falsch.html)

AndreT 21. Nov 2004 11:21


Try / Except. Was mach ich falsch?
 
Hallo zusammen.
Ich hab folgendes Problem

Code:
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 ......
e_wenummer.text ist ein Edit Feld in dem nur Zahlen stehen können.

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?

Die Muhkuh 21. Nov 2004 11:25

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

AndreT 21. Nov 2004 11:29

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

Chegga 21. Nov 2004 11:34

Re: Try / Except. Was mach ich falsch?
 
Hi,

OK, hat sich erledigt!!

MfG Marc

Helmi 21. Nov 2004 11:43

Re: Try / Except. Was mach ich falsch?
 
oder man macht es mit TryStrToInt

Code:
var
  I: Integer;

begin
  If TryStrToInt(swe_nummer, I) then
    iwe_nummer := I
  else
    iwe_nummer := 0;
end;
So gibts auch keine meldung beim compilieren :-)

Code:
var
  I: Integer;

begin
  TryStrToInt(swe_nummer, I);
  iwe_nummer := I;
end;
[Edit] es geht auch ohne dem If, da TryStrToInt eine 0 zurück gibt wenn der String keinen Zahl ist [/Edit]

Matze 21. Nov 2004 12:16

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