что получиться из этого кода? или что мы ищем через него?

[kroatoani]

procedure refreshlist(list:tstringgrid);
var
i:integer;
g: pt;
begin
g:=beglist;
i:=0;
while g<>Nil do
begin
list.cells[i,0]:=inttostr(g^.Info);
g:=g^.Next;
i:=i+1;
end;
list.ColCount:=i;
g:=nil;
dispose(g);
end;

[ex.cluz]

Лично я тут кода не вижу - он оформляется соответствующим образом (кнопка с решеткой).

А что за тип такой "pt"?


Добавлено позже:

Видимо, это record с полями Info, Next. Такие часто делают для поиска/сортировки.

На этом мои телепатические возможности заканчиваются и вопрос "зачем они нужны?" требует вашей помощи.
Выкладывайте объявление типа "pt", тогда попробуем разобраться.

From Stilet: Поправил.

[kroatoani]

вот что написано про типа
TInfo = integer;
Pt = ^T;
T = record
Info: TInfo;
Next: Pt;

[p51x]

идет распечатка списка, поиска здесь нет

[ex.cluz]

идет распечатка списка

Точно, но я бы уточнил: заносятся целочисленные значения в нулевую строку стринггрида.

[kroatoani]

спасибо вам большое ребята ))) если бы кто нибудь нарисовал мне схему как этот код выгледит через компонентов я бы силно блогодорил)))