Bookmark hvordan

hej koden 12:
Som 'sædv.' kan jeg nok ikke svare på hele dit spm., der efter min mening er for snævert - hvilket jeg tror er årsagen til at du udelukker nogle evt.elle svarere, der kunne løse dine (for mig meget inpirerende) spm. evt i flere tempi.
M.h.t. bookmarks fandt jeg et eks. i Hjælpen, som du sikkert allerede selv har set.:
procedure Tform1.buttonclick(sender: TObject;
var
i,j: Integer;
s: string;
begin
if DBGRID1.Selectedrows.Count>0
then with DBGrid1.Datasource.Dataset 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;

Har ikke selv afprøvet det endnu.

Hej Janbb.
Du har nok ret, det er svært at formulerer det når man er ny..Jeg kender ikke alle terninalerne så vi snakker forbi hinanden.
Den der havde jeg ikke set, så tak for den.
Tilgengæld var der en i min bog, det virkede.
Især da jeg fandt ud af at sætte DBGrid til Multiselect : True.. : )
Så kørte den : )
Hele rækker i DBGrid skal blive blå ! (vælges) for at det virker.
Resten med at sætte det ind i Listboks var ikke så svært med alt den hjælp som Boris fra "føre point gruppen"  sendte : )
Ses..
VH
Koden12

ja, nu har jeg prøvet den og kan ukke få den til at virke.Men måske skulle jeg oprette et spm - som du så måske gider svare på ?.
Borrisholts eksempel - hvis det er det samme vi tænker på fra forleden:
Bruger noget med en procedure i implementationen og en 'Classes* i uses-sætningen, som kun virker i forbindelse med hans program (ingen dcu-fil) - og grunden er måske at I begge har en mere moderne version end min.
Mine programmer bliver let noget rod - sikkert fordi jeg mangler noget grundskoling.Lavede iøvrigt lidt i VB for nogle år siden (simple databaser).
Det ligner Delphi ustyrlig meget i opbygningen.
Prøver at kop. noget fra en adoDBgrid over i en Listbox, men har ingen succes.

Hej Janbb
OK så forærer jeg dig den, selv om jeg ikke har meget at give af.. :)



Bookmark := ADOTable1.Bookmark;
Try
Listbox1.Clear;
Bookmarklist := DBGrid1.SelectedRows;
for I := 0 to Bookmarklist.Count - 1 do
begin
ADOTable1.Bookmark := Bookmarklist[I];
Listbox1.Items.Add(ADOTable1.FieldByName('nummer').AsString);

Så mangler du bare 2 - 3 variabler :

procedure TForm1.Button1Click(Sender: TObject);

Var
I : Integer;
BookmarkList : TBookmarkList;
Bookmark : TBookmarkStr;

Den virker men det tod TID af lave den..
Hvor gammel er din Delphi ?
VH
koden12

Det ser spændende ud.Det prøver jeg lige.Min Delphi er såmænd ikke så gammel.Købte den ved årtusindskiftet (vers. 5), men årene går og der er jo kommet 2 nye vers. siden.Holder dog meget af min 5'er og priserne er jo steget gevaldigt, især på hjemmemarkedet - og mine indtægter er desværre ikke fulgt helt med.Den dyreste del er jo desværre den, der interesserer mig mest: DB's.
Og som du siger er det osse tidsrøvende.Men det holder hjernecellerne opladede.

Så er den jo ikke gammel..
Lad mig vide om du får det til at virke.
Husk at lave den Multiselect.
VH
koden12

Jeg tror hurtigt du får taget på det.Det er godt med ambitioner.Mine ligger lidt lavere for tiden.Jeg er lidt pas på boxene for tiden så jeg lader det ligge og roder lidt med nogle af det mindre komplicerede metoder.Jeg får nok hul på det en dag.

svar