При клике по БД открывать документ

[xxbesoxx]

Сообщение от Аватар

Потому, что

Понял .! Я больше не буду шутить
-- Так нормально ?

{$R *.dfm}

uses shellapi;

procedure TForm1.Button1Click(Sender: TObject);
const
  MyFile = 'C:\MyDoc\doc_1.docx';
begin
  ShellExecute(0, nil, PChar(MyFile), nil, nil, SW_SHOWNORMAL);
  Label1.caption:= ' Путь файла: '+ '  ' +MyFile;
end;

end.

[Armageddets]

Все. Проблему решил.Всем спасибо за советы. Итоговый код следующий:

if (Column.FieldName='Корреспондент')
  and (DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString<>'') then
  ShellExecute(Handle,nil, PChar(DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString) ,nil,nil,SW_ShowNormal);

  if (Column.FieldName='Ссылка на документ')
  and (DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString<>'') then
  begin
  OpenDialog1.Execute;
    if OpenDialog1.FileName<>'' then
    begin
    DBGrid1.DataSource.DataSet.Edit;
    DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString:=OpenDialog1.FileName;
    DBGrid1.DataSource.DataSet.Post;
    end;
  end;

[kropotkina-alice]

Да у вас и начальный код был нормальный.
Причина была в элементарной невнимательности - русская буква С в пути к файлу в базе...
Я запустила вашу программу из архива, который вы дали, заменила на латинскую в таблице и все заработало...