const
TAG_CAT='Bonusova';
function ExportExtension: string;
begin
result := 'HTML';
end;
function ExportDescription: string;
begin
result := 'HTML prehled pro lov';
end;
function ExportHeader: string;
begin
Result := '<'+'html'+'>' + CRLF;
Result := Result + '' + CRLF;
Result := Result + 'Kešky s bonusem a poznámkou' + CRLF;
Result := Result + '' + CRLF;
Result := Result + '' + CRLF;
end;
function ExportFooter: string;
begin
result := '
';
end;
function ExportPoint: string;
var sTag:string;
begin
sTag:='';
if(gc.TagHaveCategory(TAG_CAT)) then sTag:=ReplaceString(gc.TagValues(TAG_CAT),CRLF,', ');
Result := ''
+'| '+gc.id+' | '
+''+GC.IDTag+' | '
+''+UtfToAnsi(GC.Name)+' | '
+''+UtfToAnsi(GC.Hint)+' | '
//+''+sTag+' | '
//+''+GC.Comment+' | '
+'
'+CRLF;
end;