Hallo zusammen.
Ich hab folgendes Problem

markieren

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 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

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

Hi,

OK, hat sich erledigt!!

MfG Marc

oder man macht es mit TryStrToInt

markieren

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

markieren

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]

Oder in Delphi:

Tools - Debugger-Optionen - Sprach Exceptions: Haken weg bei "bei Delphi-Exceptions stoppen" (oder so ähnlich )