Страница 1 из 1
Как подружить SelectedRows и GotoBookmark() ?
Добавлено: 20 окт 2004, 16:23
GOS
SelectedRows.Items[] из rxDBGrid - имеет тип String
а DataSet.GotoBookmark() требует Pinter...
Как преобразовать строку в указатель?
С уважением, Олег.
PS Paradox-BDE-TTable-RxDBGrid
Добавлено: 20 окт 2004, 18:32
Игорь Акопян
А если попробовать просто Bookmark?
Добавлено: 25 окт 2004, 01:17
Naeel Maqsudov
В хелпе есть пример как их подружить!
Решение как видите тривиально - это typecast
Код: Выделить всё
The following example copies the selected rows in a db grid to a list box.
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= '';
end;
end;