в Lazarus 1.6 все отлично работало, но вот Lazarus 2.06 выдает такую ошибку:
main.pas(550,116) Error: Call by var for arg no. 6 has to match exactly: Got "LongWord" expected "QWord"
Что тут поменяли, и как мне исправить ошибку?
Вот соответствующий код:
- Код: Выделить всё
procedure TMainForm.PlayStation(Sender: TObject);
var
ThreadId: Cardinal;
lvstreamurlfav, lvstreamurlfix: String;
begin
RepeatPlayTimer.Enabled := True;
StrPCopy(proxy, SettingsForm.ProxyEdit.Text); // copy the Servertext to the Proxy array
if (cthread <> 0) then
//MessageBeep(0);
else
begin
if Sender = FavListView then
cthread := BeginThread(nil, 0, @OpenStationURL, PAnsiChar(favstations[FavListView.ItemIndex, 2]), 0, ThreadId) <<<---- Вот тут выдает эту ошибку
else if Sender = FixListView then
cthread := BeginThread(nil, 0, @OpenStationURL, PAnsiChar(fixstations[FixListView.ItemIndex, 2]), 0, ThreadId)
else if Sender = PlayBitBtn then // Letzten abgespielten Sender wiedergeben
begin
Большое спасибо!