Цикл

[SsdD]

Ребята, помогите создать цикл, чета голова совсем неработает )
Вобщем:

в едит1 вводим число - пусть будет 3
в едит2 нужно вывести числа через "," по этой формуле = 2^n (n-число которое вводим в едит1) т.е.
должны получить такие числа в едит2: 2^0, 2^1, 2^2, 2^3.

[danekne]

for i:=1 to strtoint(edit1.text) do
begin
s:=1;
for j:=1 to i do
s:=s*2;
edit2.text:=edit2.text+','+inttostr (s);
end;

[SsdD]

Спасибо большое.
Один маленький нюансик:
он начинает писать так: ,2,4,8...

[danekne]

Ну в чем проблема? Перед этим всем добром - пишем edit1.text:='1,'

[SsdD]

Спасибо, все работает, темы можно закрыть.