Модератор: Модераторы
Код: Выделить всё
function TLabels.CreateLabel(var Params: RLabelParams):TLabel;
var
Leb:TLabel;
begin
Leb:=TLabel.Create(FPanel);
Leb.Parent:=FPanel;
Leb.Left:=Params.LayoutParams.Left;
Leb.Top:=Params.LayoutParams.Top;
....
Leb.Caption:=Params.LabelText;
FLabels.Add(TLabel(Leb));
end;
Код: Выделить всё
with TLabel.Create(FPanel) do
begin
...
end;Снег Север писал(а):В таких случаях даже нет нужды в локальной переменной - можно писать так:
Код: Выделить всё
with TLabel.Create(FPanel) do
begin
...
//FLabels.Add(Leb);
end;alexs писал(а):Ибо нефиг использовать эту конструкцию...
zub писал(а):Снег Север
>>В таких случаях даже нет нужды в локальной переменной - можно писать так:
к сожалению тогда придется воттак:Код: Выделить всё
with TLabel.Create(FPanel) do
begin
...
//FLabels.Add(Leb);
end;
WAYFARER писал(а):А чего в ней плохого?
Код: Выделить всё
with Label1 ...
begin
... потом много текста
а тут Left:=1111
то как то не очевидно - чей этот Left
end
Код: Выделить всё
unit Unit1
...
procedure Test;
var
a: string;
b: TClass1;
begin
with b do begin
c := a;
end;
end;
unit Unit2
TClass1 = class
с: string;
end;
Код: Выделить всё
procedure Test;
var
a: string;
b: TClass1;
begin
with b, Test do begin
c := a;
end;
end;
sts писал(а):запутаться ладно..., это мелочь,