Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Одно и тоже значение при сравнении не совпадает.

vajo © (2005-10-06 14:57:00)
Есть две переменные Log1 и Log2 : Real
Есть таблица Tab1. Поле Time - Numeric 17 знаков и после запятой 15. Log1 - тоже получается 15 знаков после запятой.

Log1:=EncodeTime(Hour, Min, Sec, 00); Tab1.Append; Tab1.FieldValues['Time']:=Log1; Tab1.Post; Tab1.First; For j:=1 To Tab1.RecordCount Do begin LogTime2:=Tab1.FieldByName('Time').AsFloat; meLog.Lines.Add( ' Проверка: '+FloatToStr(Log2)+' - '+FloatToStr(Log1)); IF Log2=Log1 Then begin meLog.Lines.Add( 'OK'); end else begin meLog.Lines.Add( ' No '); end; Tab1.Next; end;

И вот почемуто не происходит положительно результата. Т.е. записал значение, а при проверке оказывается что его там нет, хотя в meLog видно, что значения одинаковые.

AlexWlad (2005-10-06 19:56:00) [1]
Немного оффтоп, но по моим наблюдениям, тема сравнения 2-х чисел с плавающей точкой скоро станет популярнее "туда где часики".

Курдль (2005-10-06 17:24:00) [2]

> Seg (06.10.05 17:20) [9]
> Log2:=Tab1.FieldByName('Time').AsFloat;
> Возможно, что Log2 в этом случае является ссылкой.

???????? 8-()

msguns (2005-10-06 17:24:00) [3]
>vajo (06.10.05 17:11) [8]
>Log1:=EncodeTime(Hour, Min, Sec, 00);

Unit SysUtils Category date/time routines function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;

>Log2:=Tab1.FieldByName('Time').AsFloat

>IF Log2=Log1 Then

Что с чем сравниваем: тонны с километрами ?

sniknik (2005-10-06 17:21:00) [4]
голос разума в данной ветке фактически отсутствует... ;)
см.
sniknik © (06.10.05 15:09) [2]
Johnmen © (06.10.05 15:33) [6]

проверим на практическую сметку...
DateUtils CompareTime

Seg (2005-10-06 17:20:00) [5]
Log2:=Tab1.FieldByName('Time').AsFloat;

Возможно, что Log2 в этом случае является ссылкой.

попробуй сравнивать
IF Tab1.FieldByName('Time').AsFloat=Log1 Then

vajo (2005-10-06 17:11:00) [6]
Вообще я хотел чтобы в колонке таблицы были и время и дата. В DBF есть тип дата, поэтому время я начал хранить в колонке Time.
В цикле я просто сравниваю значения на предмет повторного времени.
Собственно это и есть код.

Log1:=EncodeTime(Hour, Min, Sec, 00);
Tab1.Append;
Tab1.FieldValues['Time']:=Log1;
Tab1.Post;

Tab1.First;
For j:=1 To Tab1.RecordCount Do
begin
Log2:=Tab1.FieldByName('Time').AsFloat;
meLog.Lines.Add( ' Проверка: '+FloatToStr(Log2)+' - '+FloatToStr(Log1));
IF Log2=Log1 Then
begin
meLog.Lines.Add( 'OK');
end
else
begin
meLog.Lines.Add( ' No ');
end;
Tab1.Next;
end;

Johnmen (2005-10-06 15:33:00) [7]
http://www.delphikingdom.com/asp/viewitem.asp?UrlItem=/helloworld/reals.htm

Seg (2005-10-06 15:33:00) [8]
Может все-таки привести весь код в студию?

Курдль (2005-10-06 15:29:00) [9]
А к чему извращаться с Float, если можно все объявить, как DateTime?

vajo (2005-10-06 15:19:00) [10]
> ANB
LogTime2:=Tab1.FieldByName('Time').AsFloat;
это
Log2:=Tab1.FieldByName('Time').AsFloat; это я сократил чтобы короче было.

>Курдль
Log1:=EncodeTime(Hour, Min, Sec, 00);
Log2:=Tab1.FieldByName('Time').AsFloat;

Курдль (2005-10-06 15:12:00) [11]

> For j:=1 To Tab1.RecordCount Do

Кажись лучше
while not Tabl1.Eof Do

А вот где Log2 Log1 инициализируются - не понятно :(

sniknik (2005-10-06 15:09:00) [12]
точное сравнение для типов с плавающей запятой непременимо. иши статью на королевстве дельфи по теме.

ANB (2005-10-06 15:01:00) [13]
LogTime2:=Tab1.FieldByName('Time').AsFloat; meLog.Lines.Add( ' Проверка: '+FloatToStr(Log2)+' - '+FloatToStr(Log1)); IF Log2=Log1 Then- Странный код какой то. Копируем в LogTime2, а сравниваем Log2. Имхо - где то в погрешности дело. Или в типах несостыковка. Приведенный код не полон и не верен.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »