procedure Delete_html_tags_in_memo(source_name : TMemo);
var
znak : string[1];
html : string;
od, dokoniec : integer;
i : integer;
i2 : integer;
begin
for i:=0 to source_name.Lines.Count - 1 do
begin *wszystkie linijki, sprawdzanie po kolei
for i2:=0 to Length(source_name.lines[i]) do *sprawdzanie jednej linijki
begin
znak := source_name.lines[i] [i2];
*finish := source_name.lines[i] [i2];
if znak = '<' then
begin
od := i2;
end;
if znak = '>' then
begin
dokoniec := i2;
end;
HTML := source_name.lines[i];
Delete(HTML,od,dokoniec);
source_name.lines[i] := HTML;
end; */koniec linijka - znaczek po znaczku
end; *koniec all lines
end; *end of procka :)
I teraz jakieś błędy mi wyskakują ;(
ale jedynie jak w memo sa znaki "<" i ">", czyli normalne znaczniki HTML
Pomóżcie
i nie odsyłajcie mnie do działu gotowce - bo ja robię swoją procedure a nie zwalam kod :)