Einzelnen Beitrag anzeigen

Devil-Shark

Registriert seit: 13. Feb 2004
7 Beiträge
 
#4

Re: Noob braucht hilfe!!

  Alt 13. Feb 2004, 16:45
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]
  Mit Zitat antworten Zitat