Ошибка

[sg-ua]

при нажатии на кнопку, программа создает список listview и заполняет его с БД Mysql. Потом я нажимаю на строчку, и через параметр делаю новый запрос и заполняем следующий listview и тут выскакивает ошибка. На винде работает все норма, а от на андроид выбивает ошибка, нажимаю окей, программа на секунд 10 зависает а потом срабатывает

procedure TForm2.ListView1Click(Sender: TObject);
var
  LItem: TListViewItem;
  ms: TMemoryStream;
  begin
     ListView2.ClearItems;
     MyQuery1.Active:=false;
     MyQuery1.SQL.Text:='select * from dish, type where type.id_type=dish.id_type and type.name_type= :parType';
     MyQuery1.Params.ParamByName('parType').Value:=ListView1.Selected.Text;
     MyQuery1.Active:=true;
     while (not myQuery1.Eof) do
          begin
            LItem := ListView2.Items.Add;
	          LItem.Text:=MyQuery1.FieldByName('name_dish').AsString;
            LItem.Detail:='Состав: '+ MyQuery1.FieldByName('struktyre').AsString;
            IdHTTP1 := TIdHTTP.Create(Application);
            ms := TMemoryStream.Create;
            IdHTTP1.Get(MyQuery1.FieldByName('image').AsString , ms);
            LItem.Bitmap.LoadFromStream(ms);
            MyQuery1.Next;
          end;
     TabControl1.Next();
  end;

[xxbesoxx]

Если только на эту procedure TForm2.ListView тогда обрашайте таким обиекту который не существует . Пропробуйте закоментировать это код { } и проверите будеть это Ошибка или нет , изучайте отладка кода http://habrahabr.ru/post/178007/

[Stilet]

ListView2.ClearItems;
...
MyQuery1.Params.ParamByName('parTyp e').Value:=ListView1.Selected.Text;

Меня одного только смутило, что ты пытаешься взять что-то из уже опустошенного списка?
Может стоит очищать список непосредственно после активации запроса?

[Аватар]

MemoryStream создается в цикле кучу раз и ни разу не освобождается. Его до цикла создать один раз и после цикла освободить один раз

[sg-ua]

Stilet, я очищаю ListView2, а беру с ListView1..это часть кода где происходит ошибка...
Аватар, освободил но не чего не происходит

ms.Free;

ошибка происходит там где используется параметре, но по ему там ошибка? все кажись же правильно сделано

Что не кто не знает почему через параметр к запросу может быть такая ошибка?

[Stilet]

Да, эт я не внимательно...
1) Комментируй операции, и запускай. Посмотришь на какой из них падения. после раскомментирования.
2) после IdHTTP1.Get рекомендуется переводить курсор потока в ноль (ms.position:=0). чтоб следующие функции работы с ним не пытались считать за концом потока.

ошибка происходит там где используется параметре

Если это так, то нужно проверять ListView1.Selected на nil.

[sg-ua]

Все таки параметр, а как проверит ListView1.Selected на nil?

[Stilet]

как проверит ListView1.Selected на nil?

if ListView1.Selected=nil then ... Пробелма

[sg-ua]

не правильно составил вопрос...я проверил selected не nil, а как исправить основную ошибку, я что не могу понять

procedure TForm1.ListView1Click(Sender: TObject);
var
  LItem: TListViewItem;
  ms: TMemoryStream;
  parType: string;
  begin
    if ListView1.Selected=nil then ShowMessage('NULL')
    else
    begin
    ShowMessage('NOT NULL')
    end;
    TabItem2.Visible:=True;
    ListView2.ClearItems;
    MyQuery1.Active:=false;
    MyQuery1.SQL.Text:='select * from dish, type where type.id_type=dish.id_type and type.name_type= :parType';
    MyQuery1.Params.ParamByName('parType').Value:=ListView1.Selected.Text;
    MyQuery1.Active:=true;
     while (not myQuery1.Eof) do
          begin
            LItem := ListView2.Items.Add;
	          LItem.Text:=MyQuery1.FieldByName('name_dish').AsString;
            LItem.Detail:='Состав: '+ MyQuery1.FieldByName('struktyre').AsString;
            IdHTTP1 := TIdHTTP.Create(Application);
            ms := TMemoryStream.Create;
            IdHTTP1.Get(MyQuery1.FieldByName('image').AsString , ms);
            LItem.Bitmap.LoadFromStream(ms);
            MyQuery1.Next;
          end;
          TabControl2.Next();
     ms.Free;
    IdHTTP1.Free;

end;

[Аватар]

На какой хоть строке ошибка?

PS C утечкой памяти по ms так и не исправил

ЗЫ - IdHTTP1.Free; это что, освобождение созданного мышкой? При следующем входе в ListView1Click обязательно при обращении к IdHTTP1 будет исключение.

PS Какое-то хаотичное программирование