Ausgabe

[Zeb22]

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.

[Klaus01]

Delphi-Quellcode:

Label1.Caption :='';
Edit1.Clear;

zahl1 := StrToInt(Edit1.Text);

Was macht Edit1.Clear und steht danach noch irgendetwas im Edit1.Text?
Wenn ich versuche nichts nach Interger zu wandeln dann muss wohl eine
Exception kommen?

Grüße
Klaus

[Larsi]

Wenn du das Edit1.Clear weglässt geht es. Kannshttp://www.delphipraxis.net/index.htmlt du das nicht wo anders aufrufen?

[SirThornberry]

@Zeb22: Könntest du dem Beitrag bitte einen aussagekräftigeren Titel geben? Danke :)