+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف ينسخ نص بين وسمين <1> <4> (/showthread.php?tid=3361)
الصفحات:
1
2
كيف ينسخ نص بين وسمين <1> <4> - yassine_hell - 23-08-2011
جرب هذا
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var p1,p2,i : integer;
s : string;
begin
for i := 0 to Memo1.lines.count - 1 do
begin
p1 := 0;
p2 := 0;
s := Memo1.Lines.Strings[i];
repeat
delete(s,p1,p2);
p1 := pos('<',s);
p2 := pos('>',s);
until ((p1 = 0) and (p2 = 0));
Memo1.Lines.add(s);
end;
end;