Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как определить - выделенна запись в таблице или нет


Страницы:   1 2

-=snoop=- ©   (2005-07-04 09:35:00) 

привет всем, есть грид у которого включен мультиселект, в цикле перебираю все записи, нужно отработать только те, которые выделенны, как это проверить?


Mike Kouzmine   (2005-07-04 21:02:00) [1]

получи из списка закладку, перейди на нее, удали запись и так до посинения.


Digitman   (2005-07-04 13:50:00) [2]


> иаду


> те


> фсе


> типа


детский сад.


-=snoop=-   (2005-07-04 13:36:00) [3]

2 Digitman hjkdlshgl;s = это по французСки

пишет ошибку типа(( не значит КОНКРЕТНО, не значит В НАТУРЕ
это просто скромное "error type"

а иаду выпить нужно те,,,фсе же


Digitman   (2005-07-04 13:28:00) [4]

а по делу - задавай КОНКРЕТНЫЙ вопрос, с КОНКРЕТНЫМ же твоим " типа"

а не ту бредь, что ты сейчас несешь, вперемешку с доморощенным жаргоном


-=snoop=-   (2005-07-04 13:20:00) [5]

ну а по делу ничего...


Digitman   (2005-07-04 13:04:00) [6]


> -=snoop=- ©   (04.07.05 13:01) [16]


на твое усмотрение


-=snoop=-   (2005-07-04 13:01:00) [7]

2 Digitman а может иаду выпить?


Digitman   (2005-07-04 12:54:00) [8]


> Не могу


к терапевту.


> ругается


матерно ?


-=snoop=-   (2005-07-04 12:45:00) [9]

Не могу удалить выделенную строку,

form1.DBGrid1.SelectedRows.Delete

ругается


msguns   (2005-07-04 12:05:00) [10]

Веселая ветка ;)


-=snoop=-   (2005-07-04 11:24:00) [11]

не конкретно)) а "типа" ))


Digitman   (2005-07-04 11:20:00) [12]


пишет


"Писатель ! Ильф и Петров !" (с)


> ошибку типа


типа типа"чиста канкретна" ?)


-=snoop=-   (2005-07-04 11:14:00) [13]

смотрел в F1 (((
сделал)))


Johnmen   (2005-07-04 11:11:00) [14]

Тут дело такое, либо париться, либо посмотреть пример в F1.
Кто что больше предпочитает...:)


Ega23   (2005-07-04 11:10:00) [15]


    SaveLocation:=DMpas.RQPers.FieldByName('PersID').AsInteger;

    With rxgPersonnel.DataSource.DataSet do
     begin
      try
        DisableControls;

        for i:=0 to rxgPersonnel.SelectedRows.Count-1 do
         begin
          Application.ProcessMessages;
          GotoBookmark(Pointer(rxgPersonnel.SelectedRows.Items[i]));
          ss:='exec S_SchedSpec @mode=51, @PersID='+
              ValX(DMpas.RQPers.FieldByName('PersID').AsInteger,',')+
              '@ModeFl='+ValX(ModeFl,',')+
              '@UserPersID='+ValX(SessInfo.PersId,',')+'@UserWorkCod='+ValX(SessInfo.Workcod,',')+
              '@DatOut='+ValX(DatOut);
          QuExec(DMpas.RQTemp,ss);
         end;

        Locate('PersID',SaveLocation,[]);
      finally
       EnableControls;
      end;//try
     end;
    rxgPersonnel.SelectedRows.Clear;


Вполне работающий код...


-=snoop=-   (2005-07-04 11:03:00) [16]

for i := 0 to DBGrid1.SelectedRows.Count-1 do
       begin
         GotoBookmark(pointer(form1.DBGrid1.SelectedRows.items[i])) ;
       end;
пишет ошибку типа((

GotoBookmark, как нужно объявить как TDataSet или как? блин парюсь


Digitman   (2005-07-04 10:27:00) [17]


> лишнее не выкинул из кода


и недовыкинул)


Johnmen   (2005-07-04 10:25:00) [18]

>ANB ©   (04.07.05 10:17) [4]

А.... :)


ANB   (2005-07-04 10:17:00) [19]


> Johnmen ©   (04.07.05 10:01) [3]
- это я лишнее не выкинул из кода.


Johnmen   (2005-07-04 10:01:00) [20]

>ANB ©   (04.07.05 09:47) [2]

А в чём оптимальность ?
Зачем if ? Зачем Delete ?

Да и вообще, пример в F1 есть.


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо