Ok also hier der Quelltext:
Delphi-Quellcode:
var
Felder,Feld: integer;
i:integer;
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
Felder:=strtoint(Edit1.text);
if Felder = 1 then ListBox1.Items.Add('1')else begin
ListBox1.Items.Add('1');
ListBox1.Items.Add('2');
Feld := 2;
for i := 1 to Felder-2 do
begin
feld := sqr(feld);
Application.ProcessMessages;
listbox1.items.add(inttostr(feld));
end;
end;
end;
Und ausserdem:
1,2,4,16,256,65536,4.294.967.296
[edit=sakura] [delphi]-Tags eingefügt. Mfg, sakura[/edit]