![]() |
Ausgabe
Delphi-Quellcode:
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.
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. Vielen Dank für eure Hilfen. |
Re: Ausgabe
Delphi-Quellcode:
Was macht Edit1.Clear und steht danach noch irgendetwas im Edit1.Text?
Label1.Caption :='';
Edit1.Clear; zahl1 := StrToInt(Edit1.Text); Wenn ich versuche nichts nach Interger zu wandeln dann muss wohl eine Exception kommen? Grüße Klaus |
Re: Ausgabe
Wenn du das Edit1.Clear weglässt geht es. Kannshttp://www.delphipraxis.net/index.htmlt du das nicht wo anders aufrufen?
|
Re: Ausgabe
@Zeb22: Könntest du dem Beitrag bitte einen aussagekräftigeren Titel geben? Danke :)
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:59 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz