Подскажите пожалуйста, как правильно перевести Char to STR

← →
max1991 (2006-09-09 14:05) [0]

при попытке компиляции компилятор выдаёт такое сообщение:
Incompatible types: "Array" and "String"
я понимаю, что нужно преобразовать Char В String, но как?

честно говоря, почемуто думал, что свойство Caption уже имеет тип String.
Вот код процедуры:

procedure TForm1.FormCreate(Sender: TObject);
var

wVerReq: WORD;
wsaData: TWSAData;
i: pchar;
h: PHostEnt;
c: array[0..128] of char;

no: TNotifyIconData;
Hicon1: HIcon;
begin

wVerReq := MAKEWORD(1, 1);
WSAStartup(wVerReq, wsaData);
GetHostName(@c, 128);
h := GetHostByName(@c);
i := iNet_ntoa(PInAddr(h^.h_addr_list^)^);
WSACleanup;

HIcon1:=ExtractIcon(Handle,"105.ico",0);
with no do
begin
cbSize:=Sizeof(TNotifyIconData);
Wnd:=Handle;
uID:=0;
UFlags:=NIF_MESSAGE+NIF_ICON+NIF_TIP;
SzTip:="HostName : "+h^.h_Name+#10#13+"IPAddress : "+i;
HIcon:=HIcon1;
uCallBackMessage:=WM_USER+2;
end;
Shell_NotifyIcon(NIM_ADD,@no);
end;

← →
palva © (2006-09-09 14:14) [1]

А на какую строку ругается?
Приведенный вами код дает
Undeclared identifier: "TWSAData"

А если отвечать на ваш вопрос, то, наверно, можно перевести так.
var c: Char s: String ... SetLength(s, 1); s[1] := c;

← →
max1991 (2006-09-09 14:15) [2]

procedure TForm1.FormCreate(Sender: TObject);
var

wVerReq: WORD;
wsaData: TWSAData;
i: pchar;
h: PHostEnt;
c: array[0..128] of char;

no: TNotifyIconData;
Hicon1: HIcon;
begin

wVerReq := MAKEWORD(1, 1);
WSAStartup(wVerReq, wsaData);
GetHostName(@c, 128);
h := GetHostByName(@c);
i := iNet_ntoa(PInAddr(h^.h_addr_list^)^);
WSACleanup;

HIcon1:=ExtractIcon(Handle,"105.ico",0);
with no do
begin
cbSize:=Sizeof(TNotifyIconData);
Wnd:=Handle;
uID:=0;
UFlags:=NIF_MESSAGE+NIF_ICON+NIF_TIP;
SzTip:="HostName : "+h^.h_Name+#10#13+"IPAddress : "+i;
HIcon:=HIcon1;
uCallBackMessage:=WM_USER+2;
end;
Shell_NotifyIcon(NIM_ADD,@no);
end;

← →
Dmitrij_K (2006-09-09 14:15) [3]

> Подскажите пожалуйста, как правильно перевести Char to STR

String := Char;
-

> я понимаю

плохо понимаешь, надо string записать в Array of Char
... String := "HostName : "+h^.h_Name+#10#13+"IPAddress : "+i; lstrcpyn(szTip, @String[1], SizeOf(szTip)); HIcon:=HIcon1; ...

← →
max1991 (2006-09-09 14:30) [4]

спасибо за помощь!

Подскажите пожалуйста, как правильно перевести Char to STR Найти похожие ветки