Procedure

AddBoiler

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Scope

Local

Local subprogram to

GetXMLFromWord

Declaration

procedure AddBoiler(txt: string);

Called-By Hierarchy


                                    AddBoiler
                             GetXMLFromWord┘ 
TfrmTemplateEditor.mnuImportTemplateClick┘   

Called-By

Name Declaration Comments
GetXMLFromWord function GetXMLFromWord(const AFileName: string; Data: TStrings): boolean; -


Source

1104  procedure AddBoiler(txt: string);
1105  var
1106    i: integer;
1107    c: char;
1108    tmp: string;
1109  
1110  begin
1111    tmp := '';
1112    for i := 1 to length(txt) do
1113    begin
1114      c := txt[i];
1115      if (c > #31) or (c = #13) or (c = #10) then
1116        tmp := tmp + c;
1117    end;
1118    Boiler := Boiler + tmp;
1119  end;