СП
Похоже как будто Сергей Пятыгин пытается наслушавшись советов "бывалых" бегунов пробежать 10км с первого раза на КМС))
Почему 10 км? Почему КМС? Марафон на мастера спорта международного класса. :)
Size: a a a
2020 December 01
СП
Как гласят некоторые буржуйские мотивационные плакаты что обычно достигаются самые амбициозные цели...
z
пусть. тут главное бегуны "бывалые"
z
я самый "бывалый"))
SB
да никогда так не было. fpc копирует поведение delphi для легкой миграции.
по итогу имеем, что ты сделал доброе дело, - сделал пример для новичков, но получилось много оговорок.
в идеале его бы доработать и будет супер.
по итогу имеем, что ты сделал доброе дело, - сделал пример для новичков, но получилось много оговорок.
в идеале его бы доработать и будет супер.
Была какая-то особенность, связанная с Suspend(), причем не только в FPC. Наверное, поэтому ее забанили. Я раньше пользовался Suspend() и страдал от глюков, пока не перешел на использование Terminate().
GB
Была какая-то особенность, связанная с Suspend(), причем не только в FPC. Наверное, поэтому ее забанили. Я раньше пользовался Suspend() и страдал от глюков, пока не перешел на использование Terminate().
забанили потому что дедлокам сильно способствует. И не особо взаимозаменяемо с terminate, кстати. execute неконтролируемо чтоб вызывался не слышал такого :)
СП
@sergeybodrov Сергей, верно ли я понимаю вот эту часть кода:
procedure TCalcData.Assign(ASource: TCalcData);
begin
Assert(Assigned(ASource), 'Error: TCalcData.Assign(nil)');
Volts := ASource.Volts;
Ampers := ASource.Ampers;
FWatts := ASource.Watts;
end;
Для того чтобы создать копию класса, а не ссылку на область памяти, необходимо перечислить все свойства в методе Assign (приравнять их друг другу), в противном случае если A1 и А2 это экземпляры MyClass, то А1 := A2 приведет именно к тому что, и А1 и А2 будут указывать на одну область памяти?VA
Сергей Пятыгин
@sergeybodrov Сергей, верно ли я понимаю вот эту часть кода:
procedure TCalcData.Assign(ASource: TCalcData);
begin
Assert(Assigned(ASource), 'Error: TCalcData.Assign(nil)');
Volts := ASource.Volts;
Ampers := ASource.Ampers;
FWatts := ASource.Watts;
end;
Для того чтобы создать копию класса, а не ссылку на область памяти, необходимо перечислить все свойства в методе Assign (приравнять их друг другу), в противном случае если A1 и А2 это экземпляры MyClass, то А1 := A2 приведет именно к тому что, и А1 и А2 будут указывать на одну область памяти?да. при присвоении переменных класса будет просто скопирован указатель
AG
Подскажите пож. где найти Indy 10.5.8 (или новее) для установки в lazarus?
AG
c https://www.indyproject.org/ ничего не скачивается...
RS
Online Package Manager в Lazarus. Там будет Indy 10
z
Сергей Пятыгин
@sergeybodrov Сергей, верно ли я понимаю вот эту часть кода:
procedure TCalcData.Assign(ASource: TCalcData);
begin
Assert(Assigned(ASource), 'Error: TCalcData.Assign(nil)');
Volts := ASource.Volts;
Ampers := ASource.Ampers;
FWatts := ASource.Watts;
end;
Для того чтобы создать копию класса, а не ссылку на область памяти, необходимо перечислить все свойства в методе Assign (приравнять их друг другу), в противном случае если A1 и А2 это экземпляры MyClass, то А1 := A2 приведет именно к тому что, и А1 и А2 будут указывать на одну область памяти?Также надо понимать - Assign - просто так принято называть метод присвоения в vcl\lcl. Никто тебя не заставляет это повторять и ничего волшебного он в себе не несет. ты можешь например не присваивать а клонировать и написать свои методы-функции например clone
СП
Также надо понимать - Assign - просто так принято называть метод присвоения в vcl\lcl. Никто тебя не заставляет это повторять и ничего волшебного он в себе не несет. ты можешь например не присваивать а клонировать и написать свои методы-функции например clone
Спасибо, понял, что хоть матрешкой этот метод назвать можно. Смущает одно-писать +100500 кода для присваивания свойств в каждом классе данных. Неужели это единственный вариант передавать данные?
z
Сергей Пятыгин
Спасибо, понял, что хоть матрешкой этот метод назвать можно. Смущает одно-писать +100500 кода для присваивания свойств в каждом классе данных. Неужели это единственный вариант передавать данные?
я давно переживал за твою клавиатуру))
MО
Сергей Пятыгин
Спасибо, понял, что хоть матрешкой этот метод назвать можно. Смущает одно-писать +100500 кода для присваивания свойств в каждом классе данных. Неужели это единственный вариант передавать данные?
Структуры.
z
это последствия пропертей за которые все тут так прыгали. объедени простые данные в рекорд
VA
Сергей Пятыгин
Спасибо, понял, что хоть матрешкой этот метод назвать можно. Смущает одно-писать +100500 кода для присваивания свойств в каждом классе данных. Неужели это единственный вариант передавать данные?
ещё раз повторяю: в твоём случае нет смысла копировать объекты. достаточно шарить один объект
СП
Miss Очепятка
Структуры.
Что делать с динамическими элементами в рекордах? Или структуры и рекорд это разные понятия?
property StackWidth: TIList read FStackWidth write FStackWidth;
property PlateNumber: TIList read FPlateNumber write FPlateNumber;z
как тебе удобней
СП
ещё раз повторяю: в твоём случае нет смысла копировать объекты. достаточно шарить один объект
Я ориентируюсь на пример @sergeybodrov :)