Delphi World - Синхронизация таблицы и StringList
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Синхронизация таблицы и StringList

Автор: OAmiry (Borland)

Допустим что вы имеете TTable с именем Table1 и DBGrid с именем DBGrid1:

  1. В секции модуля interface объявите переменную:

  2. FieldLst: TStringList;
    

  3. Установите свойство формы KeyPreview в TRUE
  4. В обработчике события формы OnCreate добавьте:

  5. FieldLst := TStringList.Create;
    

  6. В обработчике события формы OnDestroy добавьте:

  7. FieldLst.Free;
    

  8. В обработчике события формы OnKeyUp добавьте:

  9. if (ssCtrl in Shift) and (Key in [Ord('D'), Ord('d')]) then
    if (FieldLst.Count > 0 ) then
    begin
    {Если вам необходимы все предыдущие данные полей}
    {for nFld := 0 to Table1.FieldCount - 1 do
    Table1.Fields[nFld].AsString := FieldLst.Strings[nFld] ;}
    
    
    {Если вы хотите только поле, с которым сейчас имеете дело }
    DBGrid1.Fields[DBGrid1.SelectedIndex].AsString := FieldLst.Strings[DBGrid1.SelectedIndex];
    end ;
    

  10. Обработчик события таблицы BeforeInsert должен выглядеть следующим образом:

  11. procedure TForm1.Table1BeforeInsert(DataSet: TDataset);
    var
    nFld: Integer ;
    bmPos: TBookMark ;
    begin
    if (not Table1.BOF) and (Assigned( FieldLst )) then
    try
    bmPos := Table1.GetBookMark ;
    Table1.DisableControls ;
    Table1.Prior ;
    FieldLst.Clear ;
    for nFld := 0 to Table1.FieldCount - 1 do
    FieldLst.Add( Table1.Fields[nFld].AsString ) ;
    Table1.GotoBookMark( bmPos ) ;
    Table1.FreeBookMark( bmPos ) ;
    Table1.EnableControls ;
    except
    on E: EOutOfMemory do ShowMessage( E.Message ) ;
    end ;
    end;
    

Надеюсь, что это будет работать. {Обратите внимание, что при обработке события OnKeyUp вы можете воспользоваться закомментаренными строками, которые позволят вам с помощью комбинации клавиш Ctrl-D получить все предыдущие данные полей. Если вы уберете этот комментарий, то не забудьте прокомментировать строку с DBGrid1....}

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования