belirli seylerin arasını sil pos StdCtrls uses olacak
Function ExtractBetweenTags(Const Value,TagI,TagF:string):string;
var
i,f : integer;
begin
i:=Pos(TagI,Value);
f:=Pos(TagF,Value);
if (i>0) and (f>i) then
Result:=Copy(Value,i+length(TagI),f-i-length(TagF)+1);
end;
ve kullanırken ShowMessage(ExtractBetweenTags(cxmemo1.Text,'<html>','</font>'));
No comments:
Post a Comment