[poli-smen]

Сообщение от evgeny92

Вот у меня есть код на C++builder, подскажите как этот код записать в Delphi? Этот код из моего прошлого проекта.

void __fastcall TForm2:BGrid1CellClick(TColumn *Column)
{
AnsiString wsg = ADOTable1->FieldByName("АФИША")->AsString;
wsg = wsg.SubString(wsg.Pos("#")+1,wsg.Length());
wsg = wsg.Delete(wsg.Pos("#"),1);
CppWebBrowser1->Navigate(WideString(wsg) ) ;

}

Код:

procedure TForm2.DBGrid1CellClick(Column: TColumn);
var
  wsg: AnsiString;
begin
  wsg := ADOTable1.FieldByName('АФИША').AsString;
  wsg := Copy(wsg, Pos(wsg, '#'), Length(wsg));
  Delete(wsg, Pos(wsg, '#'), 1);
  CppWebBrowser1.Navigate(wsg);
end;