Integer lässt '' nicht zusammenrechnen

Waldkauz · Beiträge: 102

So, ich habe euch hier sicher schon den letzten Nerv geraubt, aber ich lass einfach bei meinem Projekt nicht locker.
Es ist jetzt programmtechnisch fertig, der letzte Feinschliff fehlt aber noch -
im Edit14 werden die Punkte, bzw. die Werte von Edit9, Edit10 usw. zusammengezählt.
Das Problem ist, wenn jetzt ein, oder mehrere Felder leer ist/sind,weil es keine Punkte gibt, will er das nicht zusammenrechnen (" '' ist kein gültiger Integerwert" - habs aber auch schon mit Null probiert)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

//den oberen Teil kennt ihr ja schon ...
      while not EoF(Pflanze) do
      begin
      ReadLn(Pflanze,Search);
        if (Edit5.Text=Search) and (StrToInt(Label9.Caption)>=100) then
        Edit12.Text:='30';
        if (Edit5.Text=Search) and (StrToInt(Label9.Caption)>=60) and (StrToInt(Label9.Caption)<100) then
        Edit12.Text:='20';
        if (Edit5.Text=Search) and (StrToInt(Label9.Caption)>=0) and (StrToInt(Label9.Caption)<60) then
        Edit12.Text:='10';
        if Edit5.Text='' then
        Edit12.Text:='';  
      end;
      Closefile(Pflanze);
      Edit14.Text:= IntToStr(StrToInt(Edit8.Text)+StrToInt(Edit9.Text)+
      StrToInt(Edit10.Text)+StrToInt(Edit11.Text)+StrToint(Edit12.Text));

ImbaPanda · Verfasst: Mo 30.03.09 22:49

Du musst vor der Berechnung lediglich überprüfen, ob alle Felder gefüllt sind.

markieren

Delphi-Quelltext

1:
2:
3:

If (Edit9.Text<>'') And (Edit10.Text<>'') And ... Then
  //Zusammenrechnen
Else ShowMessage('Es Müssen alle Felder ausgefüllt sein');

Narses · Verfasst: Mo 30.03.09 22:49

Moin!

Schau dir mal StrToIntDef() in der DOH an. :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

jfheins · Beiträge: 918 Erhaltene Danke: 158 Win 10 VS 2013, VS2015

Benutze StrToIntDef() - damit kannst du einen Defaultwert angeben, falls der String (aslo der Text im Edit) kein gültiger Integerwert ist

Also StrtointDef(Edit4.Text, 0) gibt 0 zuück wenn im Edit nichts steht

Waldkauz · Beiträge: 102

ImbaPanda hat folgendes geschrieben :

Du musst vor der Berechnung lediglich überprüfen, ob alle Felder gefüllt sind.

markieren

Delphi-Quelltext

1:
2:
3:

If (Edit9.Text<>'') And (Edit10.Text<>'') And ... Then
  //Zusammenrechnen
Else ShowMessage('Es Müssen alle Felder ausgefüllt sein');

nein, in Edit9 und Edit10 kommen ja die Punkte, die man für das Geschriebene bekommt.
Und, es kann ja auch sein, dass man keinen Punkt für ein Wort bekommt - dann muss Edit9 bzw Edit 10 usw. ja leer bleiben oder eine Null drin stehen...

Waldkauz · Beiträge: 102

jfheins hat folgendes geschrieben :

Benutze StrToIntDef() - damit kannst du einen Defaultwert angeben, falls der String (aslo der Text im Edit) kein gültiger Integerwert ist

Also StrtointDef(Edit4.Text, 0) gibt 0 zuück wenn im Edit nichts steht

Funktioniert

jaenicke · Verfasst: Mo 30.03.09 22:57

Wobei TryStrToInt vielleicht besser wäre, denn das gibt zurück, ob die Umwandlung erfolgreich war. Was, wenn bei StrToIntDef die Null im Edit steht? ;-)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme