|
Registriert seit: 18. Okt 2011
96 Beiträge
|
AW: Programm Hilfe
18. Okt 2011, 15:26
var
Form1: TForm1;
zahl:array[1..6] of integer;
zahl1:integer;
doppelt:Boolean;
Delphi-Quellcode:
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
zahl1:=Strtoint(edit1.text);
cop:=zahl1
repeat
zahl1:=max-min;
until doppelt;
edit1.text:=inttostr(edit1.text);
end;
end.
Geändert von mkinzler (20. Okt 2011 um 09:59 Uhr)
Grund: Delphi-Tag eingefügt
|