z
проверте в делфи кому не трудно?
Size: a a a
2021 January 21
z
пжст
z
если constructor заменить на обычную procedure начинает работать
A
Не подскажите как проще всего почту через SMTP слать в лазаре? Есть что то из коробки или искать надо?
z
похоже правильно хейтеры говорят - куда не ткни везде баги)))
$
program Project1;
{$ModeSwitch advancedrecords}
type
TGeneralFontFileDesc=record
Name:string;
FontFile:string;
constructor Init(AName:string;AFontFile:string);
class function Construct(AName:string;AFontFile:string):TGeneralFontFileDesc;static;
end;
constructor TGeneralFontFileDesc.init(AName:string;AFontFile:string);
begin
Name:=AName;
FontFile:=AFontFile;
end;
class function TGeneralFontFileDesc.Construct(AName:string;AFontFile:string):TGeneralFontFileDesc;
begin
result.init(AName,AFontFile);
end;
begin
writeln(TGeneralFontFileDesc.Construct('font','c:\fonts').Name);
readln;
end.а для чего в recorde конструктор делать?
DK
если constructor заменить на обычную procedure начинает работать
а если в Construct написать
result := TGeneral....init(....)
result := TGeneral....init(....)
DK
а для чего в recorde конструктор делать?
шобы был🙈
$
вот херней страдаете
z
я выше уже писал, что в конструкторе для рекорда польза тольео от возможного подавления варнингов, он ничем от обычной процедуры не отличается
z
но если есть - должен работать
DK
напридумывали сахара, не то, что в плюсах😂
$
но если есть - должен работать
z
а если в Construct написать
result := TGeneral....init(....)
result := TGeneral....init(....)
так писать нельзя по объявлению init
DK
ну в делфе то оно работает скорее всего
DK
так писать нельзя по объявлению init
вот тут не понял)
z
я и прошу у кого под рукой проверте, тогда зарепорчу
z
а если в Construct написать
result := TGeneral....init(....)
result := TGeneral....init(....)
понял тебя. да так работает. спасибо
z
вопросы снимаются. конструктор для рекордов буду называть create
N
😂