Einzelnen Beitrag anzeigen

roboter202

Registriert seit: 6. Mär 2011
98 Beiträge
 
Delphi 6 Professional
 
#1

LongInt zu kurz | array multiplizieren ?

  Alt 7. Mär 2011, 22:06
Hallo,

ich möchte die Zahlenfolge 1,2,4,8,16,32,64,128,256 ... bis zur Zahl 9.999.999.999.999 generieren und in einer Listbox ausgeben das Problem ist das diese Zahl zu lang/groß für einen integer oder longint ist also habe ich an einen Array array [1..13] of Integer gedacht wo ich dann die Zahl Ziffer für Ziffer speichere

Bis jetzt hab ich

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i :longint;
begin
i := 1 ;
While i < 9999999999999 do
begin
Listbox1.Items.Add(inttostr(i));
i := i * 2 ;
Listbox1.Refresh ;
If i = 0 then
begin
showmessage('error');
exit ;
end;
end;
end;
mein Problem ist einen Integer kann ich mit 2 Multiplizieren wie mache ich das mit einem Array

Gruß Chrstian
Christian
i := 0 ; While i = 0 do beep ;
  Mit Zitat antworten Zitat