Операции над данными в ListBox

[mihali4]

Это я вижу:
StringGrid1.Cells[0,k]:=s;
Но я не вижу ничего похожего на
s:=....

[Mr.User]

А можно чуть-чуть по подробней! Я смотрел пример в учебнике и делал по аналогии, и никак не пойму что именно не так!
Что можно написать в данном случае: "s:=...."???
А ещё такой маленький вопрос: Есть ли операция очищающая StringGrid? Ну на подобии лист-бокса: ListBox1.Items.Clear; ???

[Mr.User]

s:=IntToStr(a); Вот упустишь такую маленькую строчку и всё, - программа работает неверно!
Ладно, с первой задачей разобрался!
Но вот как сделать во второй задаче вывод в StringGrid!?
Что-то совсем не получается! Помогите пожалуйста!

[mihali4]

Сообщение от Mr.User

s:=IntToStr(a); Вот упустишь такую маленькую строчку и всё, - программа работает неверно!
Ладно, с первой задачей разобрался!
Но вот как сделать во второй задаче вывод в StringGrid!?
Что-то совсем не получается! Помогите пожалуйста!

У стрингрида первая строка и первый столбец (фиксированные) имеют индекс=0.
У вас в стринггриде отключен фиксированный (серый) столбец FixedCols=0, поэтому вы не видите результата.
Делайте вывод в столбец с индексом 1:
StringGrid1.Cells[1,k]:=s;

[Mr.User]

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

У стрингрида первая строка и первый столбец (фиксированные) имеют индекс=0.
У вас в стринггриде отключен фиксированный (серый) столбец FixedCols=0, поэтому вы не видите результата.
Делайте вывод в столбец с индексом 1:
StringGrid1.Cells[1,k]:=s;

Это совет к обоим задачам? У меня в первой задаче всё работает правильно! Но во второй никак не получается сделать тоже самое по аналогии!
Вот что у меня получилось :

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;

Вообщем я не знаю как правильно описать сам вывод в СтрингГрид!