Помогите довести до ума две процедуры!

[Mr.User]

Нужна помощь в исправлении двух данных обработчиков!

Первый! (Это решение задачи: Вводится число. Определить, является ли оно степенью двойки?!):

procedure TForm1.Button1Click(Sender: TObject);
var i: extended;
begin
i:=StrToFloat(Edit1.Text);
while (((i mod 2)<>1) or (i <> 2)) do
  i:= i/2;
if (i<>2) then
Label1.Caption:=('It is not a power of two!')
  else
Label1.Caption:=('Yes it is!');
end;

А вот тут, нужно подправить вывод результата в СтрингГрид:

procedure TForm1.Button5Click(Sender: TObject);
var s: string;
    i,k: integer;
    flag: boolean;
begin
k:=0;
flag:=False;
for i:=0 to ListBox1.Items.Count-2 do
begin
if (StrToInt(ListBox1.Items[i])-1=StrToInt(ListBox1.Items[i+1])) then
begin
if not flag then
begin
flag:=True;
s:=IntToStr(ListBox1.Items[i]);
StringGrid1.RowCount:=k+1;
StringGrid1.Cells[0,k]:=s;
inc(k);
end;
 begin
flag:=True;
s:=IntToStr(ListBox1.Items[i+1]);
StringGrid1.RowCount:=k+1;
StringGrid1.Cells[0,k]:=s;
inc(k);
end else
flag:=False;
end;
end;
end;

//Очень нужна ваша помощь!

[bill]

№1.Значит это на паскале, немного переделаешь и вуаля.

program sd;
uses crt;
var i,z: real;s:string;f,q:integer;
begin
readln(s); q:=0;
i:=StrToFloat(s);
while (i>=2) do
begin
  i:= i/2;
  q:=q+1;// степень двойки
  end;z:=1;
  for f:=1 to q do
  z:=2*z; // число в исходной степени
if (z=StrToFloat(s)) then //если исходное число=числу в нашей степени..
writeln('Yes it is!')
  else
writeln(('Yes not'));
end.

[Alex21]

//Является ли число степенью двойки?
function is_power_2(x: Word): Boolean;
begin
  is_power_2 := (x > 0) and ((x and Pred(x)) = 0)
end;

[Stilet]

А вот тут, нужно подправить вывод результата в
СтрингГрид:

Совсем код непонятный...
А что в нем не так?

[Mr.User]

Спасибо за помощь!

Сообщение от Stilet

Совсем код непонятный...
А что в нем не так?

У меня есть исходный код!

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    flag: boolean;
begin
ListBox2.Clear;
flag:=False;
for i:=0 to ListBox1.Items.Count-2 do
begin
if (StrToInt(ListBox1.Items[i])-1=StrToInt(ListBox1.Items[i+1])) then
begin
if not flag then
begin
flag:=True;
ListBox2.Items.Add(IntToStr(i));
end;
ListBox2.Items.Add(IntToStr(i+1));
end else
flag:=False;
end;
end;

Он берёт данные из Лист-Бокса1., а результат выводит в Лист-Бокс2.
Мне понадобилось сделать точно такую-же программу, но только чтобы результат выводился в СтрингГрид1.
Код, который я прошу исправить, - это и есть попытка сделать вывод в СтрингГрид.
А сама задача звучит так:
Дана последовательность чисел. Построить последовательность номеров позиций, откуда начинаются подряд идущие значения, расположенные в порядке убывания.

[mihali4]

Если наличествуют фиксированные столбцы и строки:

procedure TForm1.Button1Click(Sender: TObject);   
var i,j: integer;   
    flag: boolean;   
begin   
for i:=1 to StringGrid1.ColCount-1 do
for j:=1 to StringGrid1.RowCount-1 do
StringGrid1.Cells[i,j]:='';
StringGrid1.RowCount:=1;   
flag:=False;   
for i:=0 to ListBox1.Items.Count-2 do   
begin   
if (StrToInt(ListBox1.Items[i])-1=StrToInt(ListBox1.Items[i+1])) then   
begin   
if not flag then   
begin   
flag:=True;   
Inc(StringGrid1.RowCount);
StringGrid1.Cells[1,StringGrid1.RowCount]:=IntToStr(i); 
end;   
Inc(StringGrid1.RowCount);
StringGrid1.Cells[1,StringGrid1.RowCount]:=IntToStr(i+1); 
end else   
flag:=False;   
end;   
end;

З.Ы. Это только у меня глюк? Или в предыдущих постах повторы кодовых вставок по 3-5 раза?

[Mr.User]

Большое СПАСИБО!

Сообщение от mihali4

З.Ы. Это только у меня глюк? Или в

предыдущих постах повторы кодовых вставок по 3-5 раза?
Не только у Вас! Помоему у всех так!

[Alar]

Что у вас не так? есть специальная тема о форуме, где уже сообщили о ошибке, ошибка была исправлена. Если есть вопросы пишие, пожалуйста, здесь - http://programmersforum.ru/forumdisplay.php?f=37

[Mr.User]

Уже всё нормально!

92. Inc(StringGrid1.RowCount);

[Pascal Error] Unit1.pas(92): E2064 Left side cannot be assigned to

А что тут нужно подкоректировать?

[Alex21]

StringGrid1.RowCount:=StringGrid1.R owCount+1;