Jak mogę w syn edit zrobic aby wszystkie znaczniki html (np.
</del>) zamieniło na duże lub małe czyli z <BR> na
Pozdrawiam.
Jak mogę w syn edit zrobic aby wszystkie znaczniki html (np.
</del>) zamieniło na duże lub małe czyli z <BR> na
Pozdrawiam.
Mozesz uzyc tego, nie jest to rewelacyjne ale dziala. Wywolujesz po kolei Zamien('
' , '<BR>'); itd.
procedure TForm1.Zamien(zam , nowy : String) ;
var
i , j : Integer ;
S : String ;
begin
for i := 0 to SynEdit1.Lines.Count - 1 do
begin
S := SynEdit1.Lines.Strings[i] ;
if Pos(zam , S) > 0 then
begin
for j := 1 to Length(S) do
if S[j] = zam then
begin
Delete(S , j , Length(zam)) ;
Insert(nowy, S , j) ;
end ;
SynEdit1.Lines.Delete(i) ;
SynEdit1.Lines.Insert(i , S) ;
end;
end;
end;
function HTMLBigTag(s: string): string; // duże znaczniki
var
i: Integer;
HTMLTag: Boolean;
begin
HTMLTag := False;
for i := 1 to length(s) do
begin
if s[i] = '<' then
HTMLTag := True;
if (s[i] = '>') or (s[i] = ' ') then
HTMLTag := False;
if HTMLTag then
s[i] := string(AnsiUpperCase(s[i]))[1];
end;
Result := s;
end;
function HTMLSmallTag(s: string): string; // małe znaczniki
var
i: Integer;
HTMLTag: Boolean;
begin
HTMLTag := False;
for i := 1 to length(s) do
begin
if s[i] = '<' then
HTMLTag := True;
if (s[i] = '>') or (s[i] = ' ') then
HTMLTag := False;
if HTMLTag then
s[i] := string(AnsiLowerCase(s[i]))[1];
end;
Result := s;
end;