missing operator or semicolon - Как получить секунды [Delphi]

[bulldog5293]

Решил перевести милисекунды в секунды, но появилась ошибка с которой столкнулся впервые

type
  BOT = class(TThread)
    FUrl: String;
  private
    FHTTP: TIdHTTP;
  zz: Integer;
  protected
    public
    h: Integer;
    procedure DoAnything;
  end;

function msectosec(msec) : integer;
begin
msectosec := Trunc(msec/1000);
end;

function SetTimeOutJS(Str: String): Integer;
var
  I: Integer;
  S: String;
begin
  S := '")'',';
  I := Pos(S, Str);
  if I > 0 then
  begin
    S := Copy(Str, I + Length(S), Length(Str));
    I := Pos(')', S);
    if I > 0 then
    begin
      S := Trim(Copy(S, 1, I - 1));
      I := StrToIntDef(S, -1);
      if I > 0 then
        Result := I
      else
        Result := 0;
    end;
  end;
end;

procedure BOT.Execute;
var 
Otvet1: String;
  secundiy: Integer;
  begin
      Otvet1 := FHTTP.get('http://' + FUrl + Ur);
      h := SetTimeOutJS(Otvet1);
      zz := secundiy(h);//тут вылетает missing operator or semicolon  
end;

[Аватар]

Что-то не понятно, что это такое:

zz := secundiy(h);//тут вылетает missing operator or semicolon

а само secundiy описано как: var secundiy: Integer;

[Serge_Bliznykov]

var
Otvet1: String; secundiy: Integer;

zz := secundiy(h);//

Переменная целого типа? Какие круглые скобки? Что это за абракадабра?!

[bulldog5293]

Что-то не понятно, что это такое:

zz := secundiy(h);//тут вылетает missing operator or semicolon

Я думал что так получится милисекунды в секунды перевести

а само secundiy описано как: var secundiy: Integer;

а как его ещё описывать?

Переменная целого типа? Какие круглые скобки? Что это за абракадабра?!

целого

Какие круглые скобки?

А толку что с круглыми что без

[GunSmoker]

Книжку в руки возьмите - и всего делов-то.

[Serge_Bliznykov]

А толку что с круглыми что без

это точно!
Когда не понимаешь, что делаешь, тут уж точно - толку нет..

ЧТО за целое число находится в h
(для отладки и понимания Выведите его значение после присвоения,
например, через ShowMessage(' h = '+IntToStr(h)); )

ЧТО Вы хотите сделать с этим числом, чтобы получить число в переменной ZZ?

приведите ответ с КОНКРЕТНЫМИ числами.
Тогда получите КОНКРЕТНЫЙ ответ.


успехов в учёбе.



___
тема явно учебная. переношу из раздела Delphi в раздел "Помощь студентам"

[Mad_Cat]

Zz:=h*1000;

переведет секунды h в миллисекунды zz

[Serge_Bliznykov]

Zz:=h*1000;

переведет секунды h в миллисекунды zz

не переведёт.
Обратите на тип данных h
Это целое число.
значит, скорее всего, там находится целое число миллисекунд.
ну-ка, например, 2350 миллисекунд по какой формуле можно перевести в секунды?...

[Mad_Cat]

не переведёт.

с чего бы это?
1 Сек=1000 мСек==> h Сек =h*1000 мСек

ну-ка,

не запрягали(

2bulldog5293
напиши

zz:=h div 1000;

- это переведет h миллисекунд в zz секунд