Incompatible types: 'PWideChar' and 'string'

[Aleksandr69]

Непонятно что за дела

procedure TForm1.StringGrid1DblClickCell(Send er: TObject; ARow,
ACol: Integer);
var
j:string;

begin
j:= StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];

if StringGrid1.Col = 1 then
ShellExecute( Handle, 'open', j, nil, nil, SW_NORMAL );
end;

Ошибка вся все время пробовал по разному

Делаешь так то ошибка при клике по ячейки

procedure TForm1.StringGrid1DblClickCell(Send er: TObject; ARow,
ACol: Integer);
var
j:Pwidechar;
s:string;
begin
s:= StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row];
s:=widechartostring(j);
if StringGrid1.Col = 1 then
ShellExecute( Handle, 'open', j, nil, nil, SW_NORMAL );
end;

[Пепел Феникса]

j:= StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
 if StringGrid1.Col = 1 then 
 ShellExecute( Handle, 'open', PChar(j), nil, nil, SW_NORMAL );

[Aleksandr69]

Сообщение от Пепел Феникса

j:= StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
 if StringGrid1.Col = 1 then 
 ShellExecute( Handle, 'open', PChar(j), nil, nil, SW_NORMAL );

Тогда ошибка тут ,грид от тмс


[DCC Error] Unit1.pas(177): E2010 Incompatible types: 'PWideChar' and 'string'

j:= AdvStringGrid1.Cells[AdvStringGrid1.Col, AdvStringGrid1.Row];

[Пепел Феникса]

j должна быть типа string.

[Aleksandr69]

Сообщение от Пепел Феникса

j должна быть типа string.

так у меня так и было изначально вот программа запускается и ошибка уже при клике

procedure TForm1.AdvStringGrid1DblClickCell(S ender: TObject; ARow,
ACol: Integer);
var
j:Pwidechar;
s:string;
begin
s:= AdvStringGrid1.Cells[AdvStringGrid1.Col, AdvStringGrid1.Row];
j:=widechartostring(s);
if AdvStringGrid1.Col = 1 then //ткнули в ячейку второй колонки
ShellExecute( Handle, 'open', j, nil, nil, SW_NORMAL );
end;

[Пепел Феникса]

это совсем другое.

procedure TForm1.StringGrid1DblClickCell(Send er: TObject; ARow,
 ACol: Integer);
 var
 j:string;
 begin
 j:= StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
 if StringGrid1.Col = 1 then 
 ShellExecute( Handle, 'open', PChar(j), nil, nil, SW_NORMAL );
 end;

[Aleksandr69]

Точно простите вот так все запускается и ошибки нет только на клик не реагирует и ничего не происходит


procedure TForm1.AdvStringGrid1DblClickCell(S ender: TObject; ARow,
ACol: Integer);
var
j:Pwidechar;
s:string;
begin
s:= AdvStringGrid1.Cells[AdvStringGrid1.Col, AdvStringGrid1.Row];
j:=PWidechar(s);
if AdvStringGrid1.Col = 1 then //ткнули в ячейку второй колонки
ShellExecute( Handle, 'open', j, nil, nil, SW_NORMAL );
end;



Вот ваш вариант тоже самое

procedure TForm1.AdvStringGrid1DblClickCell(S ender: TObject; ARow,
ACol: Integer);
var
j:string;
begin
j:= AdvStringGrid1.Cells[AdvStringGrid1.Col,AdvStringGrid1.R ow];
if AdvStringGrid1.Col = 1 then
ShellExecute( Handle, 'open', PChar(j), nil, nil, SW_NORMAL );
end;


Не хочет открывать ссылку из ячейки и все ,вот засада

[Пепел Феникса]

ссылка записана как положено? с указанием протокола?

[Aleksandr69]

Сообщение от Пепел Феникса

ссылка записана как положено? с указанием протокола?

да http://www.site.ru ,значит что то в системе ,даже браузер не запускается реакции 0

Проверил так тоже реакции нет

ShellExecute( Handle, 'open', 'http://www.site.ru', nil, nil, SW_NORMAL );

Что может быть,придется в прогу браузер добавлять наверно.

Все работает спасибо моя ошибка)))) была в строке if AdvStringGrid1.Col = 1 then а нужно if AdvStringGrid1.Col = 4 then