var terme,def:string;
begin
terme := GetParam('terme','');
def := GetParam('def','');
if Condition('_HLP_') then
begin
write('<<MCR(PI(qchPath,`IDEF_')>>+terme+<<FNT(STRING.-,-,-,-:'_')>>+<<FNT(NUMBER.-,-,-,-:#39)>>+<<FNT(STRING.-,-,-,-:'):')>>);
<<FNT(KEYWORD.-,-,-,-:write)>>(terme+<<FNT(STRING.-,-,-,-:')>>'
);
end else if Condition('_HTML_') then
begin
write('<acronym title="'+def+'" class="definition">');
write(terme+'</acronym> ');
end;
end;
end.

Sommaire