• Registered: 2015-04-10
  • Posts: 74

Topic: Функции, которой присвоивается результат

Добрый день Дмитрий!
Не подскажите как функции присвоить результат?

var
  sHello: string;
procedure HelloWorld (s: string);
begin
  ShowMessage(World(s));
end;
procedure World (s: string);
begin
 //  Result не работает
 Result := s+' said hello!';
end;
begin
  sHello := 'Script';
  HelloWorld(sHello);
end.
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Функции, которой присвоивается результат

вместо этого

procedure World (s: string);
begin
 //  Result не работает
 Result := s+' said hello!';
end;


должно быть так

function World (s: string): string;
begin
 Result := s+' said hello!';
end;
Dmitry.
  • Registered: 2015-04-10
  • Posts: 74

Re: Функции, которой присвоивается результат

Спасибо.