einmal Fehler einmal nicht

[milos]

Hmm also...
Ich Programmier mit delphi ein Hilfsprogramm...
ich habe eine Idee, doch einmal kommt eine fehlermeldung einmal nicht.
Hier Quellcode mit dem Fehler:

Delphi-Quellcode:

procedure Teinheiten.Label1Click(Sender: TObject);
begin
rek.show
end;

procedure Teinheiten.rechnerClick(Sender: TObject);
var
  zahl1, zahl2, zahl3, zahl4, zahl5, zahl6, zahl7, zahl8, zahl9, zahl10, zahl11, zahl12, bev1, bev2, bev3, bev4, bev5, bev6, bev7, bev8, bev9, bev10, bev11, bev12, ergebnis, ergebnis1, ergebnis2, ergebnis3, ergebnis4, ergebnis5, ergebnis6, ergebnis7, ergebnis8, ergebnis9, ergebnis10, ergebnis11, ergebnis12, bevr1, bevr2: Integer;
begin
  zahl1 := StrToInt(n1.caption);
  zahl2 := StrToInt(n2.caption);
  zahl3 := StrToInt(n3.caption);
  zahl4 := StrToInt(n4.caption);
  zahl5 := StrToInt(n5.caption);
  zahl6 := StrToInt(n6.caption);
  zahl7 := StrToInt(n7.caption);
  zahl8 := StrToInt(n8.caption);
  zahl9 := StrToInt(n9.caption);
  zahl10 := StrToInt(n10.caption);
  zahl11 := StrToInt(n11.caption);
  zahl12 := StrToInt(n12.caption);
  bev1 := StrToInt(n1.caption);
  bev2 := StrToInt(n2.caption);
  bev3 := StrToInt(n3.caption);
  bev4 := StrToInt(n4.caption);
  bev5 := StrToInt(n5.caption);
  bev6 := StrToInt(n6.caption);
  bev7 := StrToInt(n7.caption);
  bev8 := StrToInt(n8.caption);
  bev9 := StrToInt(n9.caption);
  bev10 := StrToInt(n10.caption);
  bev11 := StrToInt(n11.caption);
  bev12 := StrToInt(n12.caption);
  bevr1 := StrToInt(bev.caption);
  bevr2 := StrToInt(label15.caption);







  ergebnis := zahl1 * 1 + zahl2 * 1 + zahl3 * 1 + zahl4 * 1 + zahl5 * 2 + zahl6 * 4 + zahl7 * 5 + zahl8 * 6 + zahl9 * 5 + zahl10 * 8 + zahl11 * 100 + zahl12 * 10;
  ergebnis1 := bev1 * 1;
  ergebnis2 := bev2 * 1;
  ergebnis3 := bev3 * 1;
  ergebnis4 := bev4 * 1;
  ergebnis5 := bev5 * 2;
  ergebnis6 := bev6 * 4;
  ergebnis7 := bev7 * 5;
  ergebnis8 := bev8 * 6;
  ergebnis9 := bev9 * 5;
  ergebnis10 := bev10 * 8;
  ergebnis11 := bev11 * 100;
  ergebnis12 := bev12 * 10;

  label15.Caption := IntToStr(ergebnis);
  b1.Caption := IntToStr(ergebnis1);
  b2.Caption := IntToStr(ergebnis2);
  b3.Caption := IntToStr(ergebnis3);
  b4.Caption := IntToStr(ergebnis4);
  b5.Caption := IntToStr(ergebnis5);
  b6.Caption := IntToStr(ergebnis6);
  b7.Caption := IntToStr(ergebnis7);
  b8.Caption := IntToStr(ergebnis8);
  b9.Caption := IntToStr(ergebnis9);
  b10.Caption := IntToStr(ergebnis10);
  b11.Caption := IntToStr(ergebnis11);
  b12.Caption := IntToStr(ergebnis12);

  if label15.caption > bev.caption
  then label15.color := clRed


end;

end.

Und hier Quellcode ohne Fehler:

Delphi-Quellcode:

var
  zahl1, zahl2, ergebnis: Integer;
begin
  zahl1 := StrToInt(Edit1.Text);
  zahl2 := StrToInt(label4.caption);
if label4.caption > edit1.text
then label5.Color := clActiveBorder

end;

end.

Beide Codes sind ja gleich nur das im oberen mehr gerechnet wird

Hier die Fehlermeldung:
http://img.toontown-click.de/bild.ph...rppgn9K8N0.png

[mkinzler]

Und wo genau?

[milos]

Also wen ich F9 drücke kommt das
eigentlich wollte ich ShowMessage('.....') machen aber das geht auch nicht

[mkinzler]

Du hast die Variablen auch schon als integer deklariert. Die haben keine Eigenschaft Caption. Ein Wandeln ist auch unnötig

[milos]

ok ich hab mal probiert es mit Turbo Delphi zu öffnen und es ging... Vllt konnte mein Delphi3 nicht dateien von TD öffnen
sorry das ich eure zeit verschwändet habe

[mkinzler]

Natürlich hat sich seit D3 viel geändert TDE ist ja Delphi 10