Функция и Label

[seobot]

Непойму почему в Label.Caption не передается текст?!

function VideoCart(s: string):string;
var
  lpDisplayDevice: TDisplayDevice;
  dwFlags: DWORD;
  cc: DWORD;
begin
   lpDisplayDevice.cb:= sizeof( lpDisplayDevice );
   dwFlags:= 0;
   cc:= 0;
   EnumDisplayDevices( nil, 0, lpDisplayDevice, dwFlags );
   s:= lpDisplayDevice.DeviceString;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  s: string;
begin
  Label2.Caption:= VideoCart(s);
end;

[Terran]

Вы не правильно написали функцию. Если вкратце, то замените строчку

s:= lpDisplayDevice.DeviceString;

На эту

 Result:=lpDisplayDevice.DeviceString;

[Kotofff]

Вместо этого :

s:= lpDisplayDevice.DeviceString;

Сделай так :

Result:= lpDisplayDevice.DeviceString;

И s вообще тогда не нужна ...
Функцию назови :

function VideoCart:string;

ну и далее по коду :

 Label2.Caption:= VideoCart;

Прям не поспеешь за Вами Уважаемый Terran Прости - не специально ...

[seobot]

Большое спасибо, работает!