var DB_NEW:string;
Filtre,Version,texte,lien:string;
i,row,V,VA:integer;
name,css:string;
sublist:boolean;
begin

name := GetParam('Id','');
if name<>'' then name := ' id="'+name+'"';
css := GetParam('Css','');
if css<>'' then css := ' class="'+css+'"';

// début de la liste
//write('<<WEB(<div'+name+css+'>)>>');
write('<<WEB(ul')>>+name+css+<<FNT(STRING.-,-,-,-:')>>');
sublist := false;

// nom de la base contenant la liste des nouveautés (composant new.spr)
DB_NEW := 'DBNEW.csv';
// le filtre, par défaut version > 0
Filtre := GetParam('Filtre','Version>0');
dbFind(DB_NEW,filtre);
// on trie par numéro de version, du plus grand au plus petit (remplacez false par true pour l'inverse)
dbFindSortNumeric(DB_NEW,'Version',GetParam('Ordre','')='Plus ancien au plus récent');
// nombre de ligne
Row := dbFindRowCount(DB_NEW);
// pour chaque ligne
for i:=1 to row do
begin
// on se positionne dessus
dbFindGo(DB_NEW,i);
Version := dbFindGetData(DB_NEW,'Version');
V := StrToInt(Version);

if V<>VA then
begin
if sublist then
begin
writeln('<<WEB(</li>)>>');
writeln('<<WEB(</ul>)>>');
end;

write('<<WEB(li)>>');
if not Condition('_HTML_') then write(' ');
write('Version '+Copy(Version,1,length(Version)-2)+'.'+Copy(Version,length(Version)- 1,length(version)));
VA := V;
if not Condition('_HTML_') then writeln('');
write('<<WEB(<ul>)>>');
SubList := true;
end;

texte := dbFindGetData(DB_NEW,'Titre');
Lien := dbFindGetData(DB_NEW,'Goto');
if lien<>'' then texte := '<<MCR(JI(qchPath,`')>>+Lien+chr(<<FNT(NUMBER.-,-,-,-:39)>>)+<<FNT(STRING.-,-,-,-:'):')>>+texte+<<FNT(STRING.-,-,-,-:')>>';
if not Condition('_HTML_') then
begin
write(' ');
texte := ' '+texte;
end;
writeln('<<WEB(li)>>'+texte+ '<<WEB(</li>)>>');
end;

if sublist then
begin
writeln('<<WEB(</li>)>>');
writeln('<<WEB(</ul>)>>');
end;
// terminer la liste
writeln('<<WEB(/ul)>>');


end;
end.

Sommaire