-
Постов
20 -
Зарегистрирован
-
Посещение
Весь контент Legit Coder
-
Привет, Я пытаюсь создать клиент для повторного получения данных в реальном времени из "twelvedata.com " это возвращается с сервера websocket. Вот строка JSON 2022-12-13T22:43:30.142Z <== {"event":"subscribe-status","status":"ok","success":[{"symbol":"USD/JPY","exchange":"PHYSICAL CURRENCY","mic_code":"PHYSICAL CURRENCY","country":"","type":"Physical Currency"},{"symbol":"BTC/USD","exchange":"Coinbase Pro","mic_code":"Coinbase Pro","country":"","type":"Digital Currency"},{"symbol":"ETH/BTC","exchange":"Huobi","mic_code":"Huobi","country":"","type":"Digital Currency"}],"fails":null} 2022-12-13T22:43:30.541Z <== {"event":"price","symbol":"BTC/USD","currency_base":"Bitcoin","currency_quote":"US Dollar","exchange":"Coinbase Pro","type":"Digital Currency","timestamp":1670971410,"price":17722.7,"bid":17722.7,"ask":17722.7,"day_volume":38419} Я написал клиентский код Delphi, как показано ниже, чтобы получить объект Json, но он вернул статическое значение, и программа зависла. ПРИМЕЧАНИЕ: Я использую эту бесплатную библиотеку websocket bird-socket-client я хочу, чтобы данные отображались следующим образом: 12dataClient.zip
-
Спасибо за объяснение! Но я решил использовать ListView1.Selected, потому что мы должны указать вид выбора. Но, как вы и предположили, я заменил весь свой код, и теперь ничего не выбрано, ничего не появляется. .это безумие, но я знаю, что если я буду упорствовать, я пойму свои недостатки и буду прогрессировать.
-
вот что я написал, это работает, но я думаю, что есть более профессиональный подход, не могли бы вы меня поправить? procedure TForm1.ListView1ItemClick(const Sender: TObject; const AItem: TListViewItem); begin if FClickedButton = Base then begin FirstValue := TListViewItem(ListView1.Selected).Index; // SelectedList.Add(AItem.Index); end else begin SecondValue := TListViewItem(ListView1.Selected).Index; // SelectedList.Add(AItem.Index); end; UpdateValueLabels(); end Это UpdateValueLabels() procedure TForm1.UpdateValueLabels(); begin if Assigned(ListView1.Selected) then Base.text := IntToStr(FirstValue) else Base.text := ''; if Assigned(ListView1.Selected) then Hypo.text := IntToStr(SecondValue) else Hypo.text := ''; end;
-
хорошо, как я уже говорил в начале, У меня есть приложение с 2 TLabels, 1 TListView. 1. Когда я нажимаю на 1-й TLabel, я выбираю text в TListView и сохраняю его во 2-м TLabel. 2. Когда я нажимаю на 2-й TLabel, я выбираю другой текст, отличный от 1-го, в же TListView, и он сохраняется во 2-м TLabel. Sorry for my bad Russian. извините за мой плохой русский язык
-
Something like that ? что-то в этом роде? procedure TForm3.ListView1ItemClick(const Sender: TObject; const AItem: TListViewItem); var elvitem : TListViewItem; i,n : integer; begin n:=0; for i:=0 to ListView1.ItemCount-1 do begin if ListView1.Items[i].Purpose=TListItemPurpose.None then // it's an item begin if ListView1.Items[i].Checked then begin inc(n); case n of 1 : base.text:=ListView1.Items[i].Text; 2 : begin hypo.text:=ListView1.Items[i].Text; break; // don't search more end; end; end; end; end; end;
-
How to display / Select only one TListViewItem from "OnItemClick" event?
Legit Coder опубликовал вопрос в TListView
У меня есть приложение с 2 TLabels, 1 TListView. Я хотел бы отобразить значение или (текст) содержимое TListViewItem внутри тегов TLabels образом, чтобы содержимое первой метки не могло быть одинаковым. Мой код : .... ListView1: TListView; Base: TLabel; Hypo: TLabel; .... procedure TMainForm.BaseClick(Sender: TObject); begin ListView1.Visible := True; end; procedure TMainForm.HypoClick(Sender: TObject); begin ListView1.Visible := True; end; procedure TMainForm.ListView1ItemClick(const Sender: TObject; const AItem: TListViewItem); begin if Assigned(ListView1.Selected) then begin Base.Text := TListViewItem(ListView1.Selected).Text; end else Hypo.Text := TListViewItem(ListView1.Selected).Text; ListView1.Visible := False; end; на изображении я хочу, чтобы XAG выделялся, когда я нажимаю на 1-ю TLabel, а другое значение также выбиралось как XAF, например, когда я нажимаю на 2-ю TLabel. -
code?