function fb_CreateForms ( var amif_Init : TIniFile; const as_destination : String ) : Boolean;
var li_i : Integer;
LFileLFM : TFileStream;
aform : TF_XMLForm;
aformdico : TF_Formdico;
Begin
FreeAndNil(gxdo_FichierXML);
if fb_CreateProject ( amif_Init, Application )
and fb_LoadXMLFile ( gxdo_FichierXML, fs_getLeonDir + gs_ProjectFile ) Then
Begin
Result := True;
// La fenêtre n'est peut-être pas encore complètement créée
gchar_DecimalSeparator := ',' ;
DecimalSeparator := gchar_DecimalSeparator ;
for li_i:=0 to High(ga_Functions) do
with ga_Functions [ li_i ] do
Begin
aform:=fxf_ExecuteAFonction ( li_i, true );
aformdico := TF_FormDico.Create(Application);
aform.p_exchangeSources(aformdico);
if Assigned(aform)
Then
try
LFileLFM := TFileStream.Create(as_destination+Clep+'.lfm',fmCreate);
CreateLFMFile(aformdico,LFileLFM);
finally
LFileLFM.Destroy;
aform.Destroy;
aformdico.Destroy;
end;
end;
End
Else
Result := False;
end;