Доп вопрос в зал, а если делать так (я раньше

Question

Доп вопрос в зал, а если делать так (я раньше

так делал) в чем хорош или плохо?
type
PMyRec = class
I : integer;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
P : PMyRec;
begin
for var i := 0 to 99 do
begin
P := PMyRec.Create;
P.I := 42;
ListBox1.AddItem('One',Pointer(P));
end;
end;

#lazarus #programming #russian

0

27.12.2023

9 ответов

37 просмотров

Kirill Filippenok

Называть так переменные и типы плохо. ’’’Pascal type TMyRec = class I : integer; end; procedure TForm1.FormCreate(Sender: TObject); var MyRec : TMyRec; begin for var i := 0 to 99 do begin MyRec := TMyRec.Create; MyRec.I := 42; ListBox1.AddItem('One',Pointer(MyRec)); end; end; ’’’

0

12 месяцев назад

🥓 Хамон Эврибади

Kirill Filippenok
Называть так переменные и типы плохо. ’’’Pascal ...

`

0

12 месяцев назад

Fil Автор вопроса

Kirill Filippenok
Называть так переменные и типы плохо. ’’’Pascal ...

это для примера, дабы не уходить от первого вопроса

0

12 месяцев назад

Alexey Gavrilov

Kirill Filippenok
Называть так переменные и типы плохо. ’’’Pascal ...

Не про то... Вот когда TMyRec.... а должен быть TMyIntegerHolder

0

12 месяцев назад

Igor

Fil
это для примера, дабы не уходить от первого вопрос...

если не полениться написать классу конструктор, можно будет писать заполнение кратко и без лишней переменной: for var i := 0 to 99 do ListBox1.AddItem('One', TMyRec.Create(42));

0

12 месяцев назад

Денис Аленин

Igor
если не полениться написать классу конструктор, мо...

А как потом эти объекты освобождать?

0

12 месяцев назад

Hemul GM

Денис Аленин
А как потом эти объекты освобождать?

Идти по списку и освобождать

0

12 месяцев назад