Jak mogę bardziej zoptymalizować kod HTML?
Zroobiłem tak:
procedure KompresujHTML(NazwaPliku:String);
var
i:integer;
begin
with Form1.ListBox1.Items do
begin
Clear;
LoadFromFile(NazwaPliku);
for i:=0 to Count-1 do
begin
if i=Count-1 then
Form1.Memo.Lines.Add(Strings[i]) else
if (Copy(Strings[i],Length(Strings[i]),1)='>') and (Copy(Strings[i+1],1,1)='<') then
Form1.Memo.Lines.Text:=Form1.Memo.Lines.Text+Strings[i]
else
Form1.Memo.Lines.Add(Strings[i]);
end;
end;
Form1.Memo.Lines.SaveToFile('11.htm');
end;
Ten kod sprawdza czy w aktualnej linijce na końcu wyrazu znajduje się znak > ,a w drugiej na początku < wtedy łączy te wyrazy.
Jakie są tagi w HTML-u i jak je inteligentnie usunąć?
np. , //--> itp.
/* Wstawiaj kod w tagi <delphi>Kod</delphi> to nie będzie ci ucinało. Jak Adam doda kodzik zamieniający < i > to będzie działać... tylko nie wiem dlaczego jeszcze nie wstawił. m. D. */