Перейти к содержанию
  • Регистрация
  • 0
Roma77751

Косяк в студии 10.3.1? или я чего то недопонимаю. Помогите разобраться...

Вопрос

Привет друзья! Помогите разобраться с проблемой. Уже почти неделю сижу не могу одолеть одну ошибку. Весь код перелопатил, толку нет. Причем ошибка только на IOs и только на устройстве. Я поднимал тему в "Отладке", но что то никто не отреагировал😪

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Рекомендуемые сообщения

  • 0

Проект приложите.... тогда поможем....

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
18 часов назад, #WAMACO сказал:

Проект приложите.... тогда поможем....

Если пройдете по ссылке в рубрику "Отладка" там есть проблемная часть кода с подробным описанием проблемы. Что еще нужно пришлю, отвечу на любые вопросы касаемо проекта и проведу все необходимые экперименты). Я не прошу решить проблему за меня,  мозгового штурма будет достаточно) я уже все что мог перепробовал. ошибка появляется рандомно, что затрудняет ее исправление. Может с первого клика появиться а может и через 5 минут активного пользования. 

Изменено пользователем Roma77751

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
6 часов назад, Roma77751 сказал:

Если пройдете по ссылке в рубрику "Отладка" там есть проблемная часть кода с подробным описанием проблемы. Что еще нужно пришлю, отвечу на любые вопросы касаемо проекта и проведу все необходимые экперименты). Я не прошу решить проблему за меня,  мозгового штурма будет достаточно) я уже все что мог перепробовал. ошибка появляется рандомно, что затрудняет ее исправление. Может с первого клика появиться а может и через 5 минут активного пользования. 

Никуда никто проходить я думаю не будет. Проект не приложен, тогда не поможем!!! 🤠

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
1 минуту назад, #WAMACO сказал:

Никуда никто проходить я думаю не будет. Проект не приложен, тогда не поможем!!! 🤠

могу процедурами кинуть(все задействованные), там просто много всего не относящегося к делу... весь его лопатить, думаю никто не захочет. я задал вопрос тут:

 http://fire-monkey.ru/topic/5611-column-index-1-out-of-bound-но-не-все-так-просто-как-может-показатьсянужна-помощь-или-совет/?tab=comments

Но отладку кажется никто не смотрит🙄... Прошла неделя как бьюсь башкой об стену.

Там всего то 5 процедур участвует в этой движухе.

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
В 04.05.2019 в 21:11, #WAMACO сказал:

Проект приложите.... тогда поможем....

Прикладываю

procedure TTabbedForm.FormCreate(Sender: TObject);
    var result:string;ver:tstringlist;    Db:TMemorystream; open:integer; 
    begin
  { This defines the default active tab at runtime }
  TabControl1.ActiveTab := TabItem1;
  launch2:=launch2t.Create(false);
  launch2.FreeOnTerminate:=true;
 try
  sqlite.ConnectionString:='DriverID=SQLite;Database='+ TPath.Combine(TPath.GetDocumentsPath, 'leon.db');
  sqlite.Connected:=true;
  		with fdquery1 do begin
        sql.Add('SELECT * FROM sqlite_master WHERE type="table" and name <> "sqlite_sequence" ORDER BY name');
 		 active:=true;
  		open;
  		end;
 Except
 On E:exception do showmessage(e.Message);
 end;
 while not fdquery1.Eof do begin
   listview1.Items.Add.Text:=FDQuery1.FieldByName('name').AsString;
   fdquery1.Next;
 end;

 finally

 end;
//загрузили названия таблиц в listview
end;

procedure TTabbedForm.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
begin
button1.Visible:=true;
image18.Visible:=false;
colom:='';
colom:=TListViewItem(ListView1.Selected).Text;
	fdquery1.sql.Clear;
	fdquery1.sql.Add('SELECT "Наименование","Цена","Количество","Сумма","Фото","id" FROM "'+colom+'" where "Наличие"<>"0" ORDER BY "Наименование"');


	 	try
		fdquery1.openorexecute;
 		Except
		 end;

SG1.Visible:=true;
datasource1.DataSet.Open;
datasource1.DataSet.First;
sg1.Columns[1].Header:='Цена (тг)';
sg1.Columns[2].Header:='Кол-во (шт)';
   sg1.Columns[3].Visible:=false;
    sg1.Columns[4].Visible:=false;
    sg1.Columns[5].Visible:=false;


  sg1.Columns[0].Width:=tabbedform.Width/2;
  sg1.Columns[1].Width:=tabbedform.Width/4;
   sg1.Columns[2].Width:=tabbedform.Width/4;
   search.Text:='Поиск товара';
   search.FontColor:=TAlphaColors.Silver;
   search.Visible:=true;
SG1.Visible:=true;
button1.Visible:=true;
end;

procedure TTabbedForm.SG1CellClick(const Column: TColumn; const Row: Integer);
var i,p:integer;
 begin
 datasource1.DataSet.open;
 label1.Text:=datasource1.DataSet.FieldByName('Количество').Value;
 label8.Text:=datasource1.DataSet.FieldByName('Наименование').Value;
 panel1.Position.X:=tabbedform.Width-panel1.Width;
 panel1.Position.Y:=tabbedform.Height-tabcontrol1.TabHeight-50-panel1.Height-search.Height;
 if label8.Text.Length<20 then label8.TextSettings.Font.Size:=15;
 if (label8.Text.Length>20)and (label8.Text.Length<35) then label8.TextSettings.Font.Size:=14;
 if label8.Text.Length>30 then label8.TextSettings.Font.Size:=12;

 panel1.Visible:=true;// это панелька с фоткой товара и кнопками добавить в корзину или убрать
photo:=datasource1.DataSet.FieldByName('Фото').Value;
if photo<>'' then   begin

for i :=0 to photo.Length do
  if (pos('\',photo[i])<>0) or (pos('/',photo[i])<>0) then p:=i;
photo1:=copy(photo,p+2,photo.Length-p+1);

getimg:=getimgt.Create(false);
//в потоке загружается фото с сервера и через синхронизацию отображается картинка в панеле1
end;
end;
   
procedure TTabbedForm.Image1Click(Sender: TObject);
//кнопка добавления выбранного товара в корзину
begin

image12.Position.X:=tabbedform.Width/4;
image12.Position.Y:= tabcontrol1.Height;
image12.Visible:=true;
label1.Text:=inttostr(strtoint(label1.Text)+1);
attention.Text:=inttostr(strtoint(attention.Text)+1);

datasource1.DataSet.open;
fdquery1.Edit;
datasource1.DataSet.FieldByName('Количество').Value:=label1.Text;
datasource1.DataSet.FieldByName('Сумма').Value:=datasource1.DataSet.FieldByName('Количество').Value*datasource1.DataSet.FieldByName('Цена').Value;
fdquery1.Post;

end;
   
procedure TTabbedForm.Image2Click(Sender: TObject);
//убирает товар из корзины
begin
if attention.Text='0' then image12.Visible:=false;
if strtoint(label1.Text)<=0 then exit else begin
  label1.Text:=inttostr(strtoint(label1.Text)-1);
  image12.Position.X:=tabbedform.Width/4;
image12.Position.Y:= tabcontrol1.Height;
attention.Text:=inttostr(strtoint(attention.Text)-1);
image12.Visible:=true;
                         datasource1.DataSet.open;
fdquery1.Edit;
datasource1.DataSet.FieldByName('Количество').Value:=label1.Text;
datasource1.DataSet.FieldByName('Сумма').Value:=datasource1.DataSet.FieldByName('Количество').Value*datasource1.DataSet.FieldByName('Цена').Value;
fdquery1.Post;
           
procedure TTabbedForm.Image8Click(Sender: TObject);
//чистит корзину
var i:integer; ps:string;
begin
for i := 0 to listview1.ItemCount-1 do begin
ps:=listview1.Items[i].text;
    fdquery2.sql.Clear;
  fdquery2.sql.Add('SELECT * FROM "'+ps+'" where "Количество"<>0');
try
  fdquery2.openorexecute;
  except
  end;
  end;
end;
           
procedure TTabbedForm.searchChange(Sender: TObject);
//это Edit, использую для поиска товара в гриде
var poisk2:string;
begin
if search.Text='ПОИСК ТОВАРА' then exit;

poisk2:='%'+search.text+'%';

fdquery1.sql.Clear;
fdquery1.sql.Add('SELECT "Наименование","Цена","Количество","Сумма","Фото","id" FROM "'+colom+'" where "Наименование" like "'+poisk2+'" and "Наличие"<>"0" order by "Наименование"');
 try
  fdquery1.openorexecute;
 except
    end;
    datasource1.DataSet.Open;datasource1.DataSet.First;
     sg1.Columns[1].Header:='Цена (тг)';
   sg1.Columns[2].Header:='Кол-во (шт)';
   sg1.Columns[3].Visible:=false;
    sg1.Columns[4].Visible:=false;
        sg1.Columns[5].Visible:=false;
  sg1.Columns[0].Width:=tabbedform.Width/2;
  sg1.Columns[1].Width:=tabbedform.Width/4;
   sg1.Columns[2].Width:=tabbedform.Width/4;

end;

procedure TTabbedForm.searchClick(Sender: TObject);
begin

search.Text:='';
search.FontColor:=TAlphaColors.Black;
end;

procedure TTabbedForm.searchKeyDown(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
if key=vkReturn then search.ResetFocus;
if (key=vkReturn) and(search.Text='') then begin
search.FontColor:=TAlphaColors.Silver;
search.Text:='Поиск товара';

fdquery1.sql.Clear;
fdquery1.sql.Add('SELECT "Наименование","Цена","Количество","Сумма","Фото","id" FROM "'+colom+'" where "Наличие"<>"0" ORDER BY "Наименование"');

  try
  fdquery1.openorexecute;
 except
    end;
     datasource1.DataSet.Open;datasource1.DataSet.First;
     sg1.Columns[1].Header:='Цена (тг)';
   sg1.Columns[2].Header:='Кол-во (шт)';
   sg1.Columns[3].Visible:=false;
    sg1.Columns[4].Visible:=false;
    sg1.Columns[5].Visible:=false;
  sg1.Columns[0].Width:=tabbedform.Width/2;
  sg1.Columns[1].Width:=tabbedform.Width/4;
   sg1.Columns[2].Width:=tabbedform.Width/4;

end;
end;
//Возможно что то можно было сделать проще, но я сделал как смог, 
//так что строго не судите... лучше помогите разобраться почему вылетает ошибка...

 

Изменено пользователем Roma77751

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

В общем поставил все назад Эль капитана со студией 10.2.3, Скомпилировал тот же проект проблемы не увидел. У кого есть совет что мне теперь делать????

походу больше недели убил на борьбу с ветряными мельницами😪

Изменено пользователем Roma77751

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...