Live aus der Schule 2

Soeben ein wunderschönes total nutzloses Delphi Programm fertiggestellt

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Memo2: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
memo2.clear;
edit1.setfocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
var z, o : integer;
begin
z:=strtoint(edit1.text);
o:=strtoint(edit2.text);
REPEAT
memo2.lines.add(inttostr(z*2));
z:=z*2;
UNTIL z > o;
memo2.visible:=true;
end;

end.

------------------
Signatur? Was ist eine Signatur?
Übertakten, nicht ÜbertaCKten