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

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

@D1973 Модератор 9606 / 6215 / 2421 Регистрация: 21.01.2014 Сообщений: 26,511 Записей в блоге: 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 считают по разному?

Решение