18 Mart 2015, 14:37
|
#1 |
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Memo Filter
Kod: Kodu kopyalamak için üzerine çift tıklayın! function FilterMemo(S: string): string;
var
TagBegin, TagEnd, TagLength: integer;
begin
TagBegin := Pos( '<', S);
while (TagBegin > 0) do begin
TagEnd := Pos('>', S);
TagLength := TagEnd - TagBegin + 1;
Delete(S, TagBegin, TagLength);
TagBegin:= Pos( '<', S);
end;
Result := S;
end;
Memo1.Text := FilterMemo(Memo1.Text);
__________________ SusKun ve Sessiz Mürekkep... Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|
| |