Помогите исправить ошибку.

hacker_007 · 04.02.2012, 11:55

Вот есть код для определения времени простоя компьютера:

Код Delphi

 
function CheckIddleTime: DWord;
var
LastInput: TLastInputInfo;
begin
LastInput.cbSize := SizeOf(TLastInputInfo);
GetLastInputInfo(LastInput);
Result := GetTickCount - LastInput.dwTime;
end;

Вот моя задумка:

Код Delphi

 
if vartostr(CheckIddleTime/1000)  >= '120,937' then
ShowMessage('Время постоя более 2-х минут!');
else

Я знаю что условие задано не верно.
Я сравниваю число со строкой.
Помогите исправить ошибку.

Pho3nix · 04.02.2012, 16:59

вы сравниваете строку со строкой..
1) уберите vartostr
2) чтобы поделить на 1000 нужен вещественный тип (например real)
3) уберите кавычки в правой части условия

hacker_007 · 04.02.2012, 18:39 **[ТС]**

Код Delphi

 
if CheckIddleTime/1000  >= 120,937 then
ShowMessage('Время постоя более 2-х минут!');
else

Не помогло на запятую ругается: 120,937

Arcor · 04.02.2012, 18:42

разделителем обычно является точка, а не запятая, хотя это настраивается в самой ОС, что будет являться децимальным разделителем. Как уже сказал обычно это точка

Pho3nix · 04.02.2012, 18:45

а если точку поставить?

Добавлено через 25 секунд

Сообщение от Arcor

разделителем обычно является точка, а не запятая, хотя это настраивается в самой ОС, что будет являться децимальным разделителем. Как уже сказал обычно это точка

опередили)

hacker_007 · 04.02.2012, 18:45 **[ТС]**

Я впринципи точку то и поставил.. просто спросить решил)

04.02.2012, 16:59	#2
Pho3nix Новичок Регистрация: 16.12.2010 Сообщений: 15 Репутация: 0 (0)	Re: Помогите исправить ошибку. вы сравниваете строку со строкой.. 1) уберите vartostr 2) чтобы поделить на 1000 нужен вещественный тип (например real) 3) уберите кавычки в правой части условия

04.02.2012, 18:42	#4
Arcor Форумчанин Регистрация: 20.11.2009 Адрес: Германия, Troisdorf Сообщений: 3,689 Записей в блоге: 1 Репутация: 1926 (1189)	Re: Помогите исправить ошибку. разделителем обычно является точка, а не запятая, хотя это настраивается в самой ОС, что будет являться децимальным разделителем. Как уже сказал обычно это точка

04.02.2012, 18:45	#5
Pho3nix Новичок Регистрация: 16.12.2010 Сообщений: 15 Репутация: 0 (0)	Re: Помогите исправить ошибку. а если точку поставить? Добавлено через 25 секунд Сообщение от Arcor разделителем обычно является точка, а не запятая, хотя это настраивается в самой ОС, что будет являться децимальным разделителем. Как уже сказал обычно это точка опередили)

04.02.2012, 18:45 [ТС]	#6
hacker_007 Новичок Регистрация: 15.09.2011 Сообщений: 51 Репутация: 1 (1)	Re: Помогите исправить ошибку. Я впринципи точку то и поставил.. просто спросить решил)

Похожие темы
Тема	Автор
Turbo Pascal помогите исправить ошибку мне дали лабораторную по моделированию построить модель движения планет (меркурий, земля и луна, марс) вокруг солнца максимально похожую по мат. формулам начал писать и тут же ошибка несоответствия типов незнаю как исправить ткните носом uses crt,graph; var tz, xs,ys, gd, gm,i,s,d,f:integer;...	gudvin666
PascalABC Вычислить элементы матрицы Y по известным элементам вектора X Составить программу для вычисления элементов матрицы Y по известным элементам вектора X. Program N1; uses crt; Var y: array of Real; x: array of Real; i,j,n,m: integer; Begin Clrscr; Write('n='); Read(n);	MaSS-MC
C для начинающих помогите исправить ошибку Помогите исправить ошибку в коде программы. #include <iostream.h> #include <string.h> #include <conio.h> int maim() { int; int n; srand(time0)); char str1=" ";	Надюшка
С++ для начинающих Помогите исправить ошибку Условие задачи Из входного потока вводится произвольное число строк. Каждая строка представляет собой последовательность слов , разделенных одним или несколькими пробелами и/или знаками табуляции. Длина каждой строки не превышает 80 символов . Конец ввода определяется концом файла Для каждой...	Sheishin
C# для начинающих Помогите исправить ошибку ошибку Помогите пожалуйста исправить ошибку Type or namespace definition, or end-of-file expected Вот код программы: using System; using System.Drawing; using System.Collections; using System.ComponentModel; using System.Windows.Forms; using System.Data; using System.Text; using...	fanich

После регистрации реклама в сообщениях будет скрыта

Опции темы