Hilfe bei Rechnungsstellung.

kongreddgrass · Verfasst: Mo 25.02.08 22:04

Hallo,
ich programmiere ein Proggi, darin befindet sich ein zur Eingabe gedachtes Edit das bei Ausführung die Werte je für Label1 und Label2 mit 5 bzw. 15 multipliziert.
Das Eingabefeld (Edit1) wurde als espezial umbenannt
eingabespezial, abwehr, angriff sind Integer.
attspezial ist ein Label.
Das Problem bei mir ist, dass Delphi mit einer Meldung stoppt und mir sagt dass,
"" is not a valid integer value

Edit: Der Compliler stoppt deshalb wegen dem leeren Edit-Feld und kann somit keine Zahl umwandeln.

Wenn ich in das Edit-Feld eine Zahl eingebe, soll ohne dass ich eine Enter-Taste drücke, das Ergebnis beim Label ausgegeben werden.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.espezialEnter(Sender: TObject);
var
eingabespezial,abwehr,angriff:integer;
begin
        eingabespezial:=strtoint(espezial.Text);
        abwehr:=eingabespezial * 5;
        angriff:=eingabespezial * 15;
        aspezial.caption:=(inttostr(abwehr));
        attspezial.caption:=(inttostr(angriff));
end;

Moderiert von Christian S.: Quote- durch Delphi-Tags ersetzt
Moderiert von Christian S.: Topic aus Windows API verschoben am Mo 25.02.2008 um 22:09

_________________
o.o

blaskito · Verfasst: Mo 25.02.08 22:48

Hi,

ich gehe mal davon aus, dass dein Edit leer ist. Betrittst du dann das Feld soll "leer" dann in Integer umgewandelt werden ... daher der Fehler.

Gruß aus dem Norden
blaskito

Xentar · Verfasst: Mo 25.02.08 23:00

Bist du sicher, dass du das richtige Event ausgesucht hast?
OnEnter bedeutet nicht, dass es ausgelöst wird, wenn man Enter drückt, sondern wenn das Eingabefeld den focus erhält.

kongreddgrass · Verfasst: Do 28.02.08 19:29

hm ich denke weil das Edit feld leer ist. Deswegen auch der Fehler
nur wie setze ich das richtig um.
wenn ich Edit1.Text:='0'; definiere dann egal welche zahl ich eingebe steht dann 10 oder 20 da

_________________
o.o

kongreddgrass · Verfasst: Fr 29.02.08 10:48

ich hab mein Problem oben wenig umgeschrieben bzw. was dazugeschrieben. Ich habs bissal blöd geschrieben!

_________________
o.o

Agawain · Beiträge: 460 win xp D5, MySQL, devxpress

hi

Benutz das onChange Ereignis oder onExit, wenn die Benutzereingabe erst verarbeitet werden soll, wenn der Benutzer das Edit-feld verläßt

_________________
Gruß Aga

kongreddgrass · Verfasst: Fr 29.02.08 10:58

ok danke das klappt jetzt wunderbar.

Nur wenn ich die Löschtaste drücke weil z.B. die Zahl falsch eingegeben war, dann ist der Wert wieder keiner und der Compiler stoppt.

_________________
o.o

Nico72 · Beiträge: 50 Win XP, Vista Delphi 7, Delphi 2006

Hallo,

du berechnest deine Werte immer noch im OnEnter-Event.

Xentar hat folgendes geschrieben:

Bist du sicher, dass du das richtige Event ausgesucht hast?
OnEnter bedeutet nicht, dass es ausgelöst wird, wenn man Enter drückt, sondern wenn das Eingabefeld den focus erhält.

Ausserdem ist eine Umwandlung eines vom User eingegebenen Textes in ein Integer mit StrToIntDef sicherer, da dann bei fehlender oder falscher Eingabe keine Exception ausgelöst wird.

zu spät...
naja teilweise..

kongreddgrass · Verfasst: Fr 29.02.08 11:14

des heisst dann so oder?

markieren

Delphi-Quelltext

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

procedure TForm1.espezialChange(Sender: TObject);
var
eingabespezial,abwehr,angriff:integer;
spezialstr:String;
begin
        spezialstr:=(espezial.Text);
        eingabespezial:=StrToIntDef(spezialstr);
        abwehr:=eingabespezial * 5;
        angriff:=eingabespezial * 15;
        aspezial.caption:=(inttostr(abwehr));
        attspezial.caption:=(inttostr(angriff));

end;

aber da gibt er schon vorm compilen ne fehlermeldung aus.
Ich checks ned ^^ ich war schon jahre nicht mehr an delphi ohmann^^

_________________
o.o

Nico72 · Beiträge: 50 Win XP, Vista Delphi 7, Delphi 2006

In meiner Delphi-Hilfe steht folgendes:

Syntax
[Delphi] function StrToIntDef(const S: string; Default: Integer): Integer;

Beschreibung
StrToIntDef konvertiert den in S angegebenen String in einen Integer-Wert. S muss die Entsprechung eines ganzzahligen Wertes (dezimal oder hexadezimal) sein. Enthält S keine gültige Zahl, gibt StrToIntDef Default zurück.

Das bedeutet, du hast einen Parameter in StrToIntDef vergessen, nämlich den Defaultwert, der zurückgegeben wird, falls kein gülter Integerwert im String steht.

kongreddgrass · Verfasst: Fr 29.02.08 12:01

geil danke Leute! Ich bin stolz auf euch!

jetzt klappts

markieren

Delphi-Quelltext

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

procedure TForm1.espezialChange(Sender: TObject);
var
eingabespezial,abwehr,angriff:integer;
spezialstr:String;
begin
        spezialstr:=(espezial.Text);
        eingabespezial:=StrToIntDef(spezialstr, 0);
        abwehr:=eingabespezial * 5;
        angriff:=eingabespezial * 15;
        aspezial.caption:=(inttostr(abwehr));
        attspezial.caption:=(inttostr(angriff));

end;

dann markiere ich den Thread als gelöst :wink:

_________________
o.o

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme