Forum: Programmieren allgemein
by Natcree,
24. Feb 2014
Habe den Fehler gefunden Hatte vor dem berechnen noch ne if anweisung mein code ist nicht mit eingeflossen weil davor das end; stand.
Forum: Programmieren allgemein
by Natcree,
24. Feb 2014
'-' is not a valide integer value
Forum: Programmieren allgemein
by Natcree,
24. Feb 2014
var
ergebnis :integer;
alle Positiven Zahlen kann er addieren ist aber der text der komponente -1 oder -2 oder....
dann gibt er fehler.
Forum: Programmieren allgemein
by Natcree,
24. Feb 2014
Habe folgendes Problem
Ich wöchte 2 während der Laufzeit erzeugte Editfelder addieren. Jedoch wenn " Spieler2" -1 ..... hat klappt es nicht
habe folgenden code
if Spieler.name='Spieler2' then begin
Ergebnis:= strtoint(TEdit(FindComponent('Spieler1')).Text)+
strtoint(TEdit(FindComponent('Spieler2')).Text);
edit2.Text:=inttostr(Ergebnis);
end;