Windows и Android считают по разному?

@antuanidze · Регистрация: 31.01.2016

Author24 — интернет-сервис помощи студентам

Здраствуйте уважаемые форумчане! Пишу программу для заметок расходов и доходов на андроид. Использую Делфи 11 и бд sqlite. Имеется код который работает по разному на разных платформах. Если вызывать "процедуру" на компе то все работает норм, если использовать этот же код при нажатии на кнопку, выводится какая то белиберда. На телефоне совсем наоборот. Если использовать "процедуру"=белиберда, Код на кнопке=норм. Как понять это? Заранее всем спасибо.

Delphi

procedure TMainForm.AutoSumm;
var
  i: Integer;
  FullSumm: Real;
begin
  case TabControl1.ActiveTab.Index of
    0:
      TableName := IncomeTable;
    1:
      TableName := SpendingTable;
  end;
  TableName.First;
  for i := 0 to TableName.RecordCount - 1 do
  begin
    FullSumm := FullSumm + TableName.FieldByName('summ').AsFloat;
    TableName.Next;
  end;
  if TabControl1.ActiveTab.Index = 2 then
    Label1.TextSettings.FontColor := MainForm.Fill.Color
  else
    Label1.Text := 'Итого: ' + FormatFloat('0.00', FullSumm) + ' ман.';
end;

Забыл добавить. Компоненты FDConnection и FDTable

@D1973 · 12.03.2024, 08:48

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

FullSumm: Real;

Забудьте уже этот турбопаскалевский пережиток. Используйте типы double или extended

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

FullSumm := FullSumm + ...

А где у Вас эта переменная начальное значение получает? Она не глобальная, поэтому нулем автоматически не инициализируется и, по итогу, на первой итерации цикла в этой переменной содержится мусор.

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

for i := 0 to TableName.RecordCount - 1 do

Индексация записей в наборе данных начинается, если мне склероз не изменяет, с 1. Интересно, как Вы AV не получаете из за выхода за границы?

Не по теме:

Почему работа ведется не с помощью SQL-запросов - это спрашивать бессмысленно.

@krapotkin · 12.03.2024, 09:16

также как и цикл

Delphi

while not Query.EOF do
begin
 
  Query.Next;
end;

Добавлено через 2 минуты
а кто-нибудь расскажет автору, что обозначают буквы SQL в названии SQLite ?
https://www.sqlitetutorial.net/sqlite-sum/

@antuanidze · 12.03.2024, 09:25 **[ТС]**

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

Интересно, как Вы AV не получаете из за выхода за границы?

Если убрать -1 то он считает не правильно. Лишний один раз. Так что с 0.

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

переменная начальное значение получает

Delphi

1	FullSumm:=0

Теперь норм, я вроде делал так. Но теперь норм, считает все правильно. Правда я и тип изменил на double, видать в совокупности теперь работает.
В общем Большое спасибо, теперь норм.

Добавлено через 5 минут

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

а кто-нибудь расскажет автору, что обозначают буквы SQL в названии SQLite ?

Никак не соберусь изучить sql(( А оказывается есть способ легче чем мой))

@D1973 · 12.03.2024, 09:36

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

Если убрать -1 то он считает не правильно. Лишний один раз. Так что с 0.

Delphi

1	for i := 1 to TableName.RecordCount do

ну, собственно, понятно, почему не происходит AV: нигде в теле цикла нет обращения к итерационной переменной - только это и спасает.

И вообще, на значение RecordCount полагаться нельзя. Если уж делаете цикл по обходу записей набора данных - делайте его с помощью цикла while, как krapotkin показал в посте 3

@antuanidze · 12.03.2024, 09:38 **[ТС]**

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

цикл по обходу записей набора данных - делайте его с помощью цикла while

Хорошо, спасибо, переделаю код.

Новые блоги и статьи
Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .

@D1973 Модератор 9646 / 6254 / 2426 Регистрация: 21.01.2014 Сообщений: 26,676 Записей в блоге: 3
	12.03.2024, 08:48	2
	Сообщение было отмечено antuanidze как решение Решение Сообщение от antuanidze FullSumm: Real; Забудьте уже этот турбопаскалевский пережиток. Используйте типы double или extended Сообщение от antuanidze FullSumm := FullSumm + ... А где у Вас эта переменная начальное значение получает? Она не глобальная, поэтому нулем автоматически не инициализируется и, по итогу, на первой итерации цикла в этой переменной содержится мусор. Сообщение от antuanidze for i := 0 to TableName.RecordCount - 1 do Индексация записей в наборе данных начинается, если мне склероз не изменяет, с 1. Интересно, как Вы AV не получаете из за выхода за границы? Не по теме: Почему работа ведется не с помощью SQL-запросов - это спрашивать бессмысленно. 1

@antuanidze 0 / 0 / 0 Регистрация: 31.01.2016 Сообщений: 101
	12.03.2024, 09:38 [ТС]	6
	Сообщение от D1973 цикл по обходу записей набора данных - делайте его с помощью цикла while Хорошо, спасибо, переделаю код. 0

Windows и Android считают по разному?

Решение