Помогите перевести пару строк на Делфи в СИ
TBrowserProc = procedure of object;
и
procedure ShowSettings();
begin
with TfSettings.Create(Application) do
begin
ShowModal;
Free;
end;
end;
В упор не понимаю =(
и
procedure ShowSettings();
begin
with TfSettings.Create(Application) do
begin
ShowModal;
Free;
end;
end;
В упор не понимаю =(
Цитата: newcss
TBrowserProc = procedure of object;
http://www.rsdn.ru/article/Delphi/delphiabs.xml
Цитата: newcss
и
procedure ShowSettings();
begin
with TfSettings.Create(Application) do
begin
ShowModal;
Free;
end;
end;
В упор не понимаю =(
ShowSettings()
{
TfSettings* fs = new TfSettings(Application);
fs->ShowModa();
delete fs; // not Free !!!!!
}