Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, math, jpeg, ExtCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
zahl1: integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Label1.Caption :='
';
Edit1.Clear;
zahl1 := StrToInt(Edit1.Text);
for i:= 1
to 20
do
begin
zahl1 := zahl1 +1;
Label1.Caption:=IntToStr(zahl1);
end;
end;
end.
Wenn ich in das Edit Feld eine Zahl Eingebe die das Label Ausgeben soll bzw durch die Schleife laufen soll. Gibt er mir eine Fehlermeldung an, es wäre kein integer Wert.
Vielen Dank für eure Hilfen.