Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.01;
Скачать: CL | DM;

Вниз

Подскажите пожалуйста, как правильно перевести 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]

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



Страницы: 1 вся ветка

Текущий архив: 2006.10.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
8-1111069004
Slawan
2005-03-17 17:16
2006.10.01
Текстовая информация в JPEG...


15-1158054448
комар
2006-09-12 13:47
2006.10.01
кодировка


15-1157965806
dera
2006-09-11 13:10
2006.10.01
Какой hard и какой soft нужен для того чтоб оцифровать ...


1-1156256825
Sergio77
2006-08-22 18:27
2006.10.01
из TWebbrowser в Memo


6-1147330346
alex30341
2006-05-11 10:52
2006.10.01
Https и картинки