Mega Code Archive
List To HTML
<![CDATA[
Title: List To HTML
Question: format list to html
Answer:
function List2HTML(List: TStrings; const FmtStr: string): string;
var
intX: Integer;
line: string;
begin
Result := '';
for intX := 0 to List.Count-1 do
begin
line := Format(FmtStr,[list[intx]]);
Result := Result + line;
end;
end;
// exam
// list2html(listX,'%s');
]]>