+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : فصل كلمتين موجودان في حقل (/showthread.php?tid=5139)
الصفحات:
1
2
فصل كلمتين موجودان في حقل - m.rabee - 22-04-2013
ماهو اصدار دلفي لديك؟
فصل كلمتين موجودان في حقل - عبد الهادي - 22-04-2013
دلفي السابع لايت
وهل تنصحني بدلفي 8 او بدلفي 2010
فصل كلمتين موجودان في حقل - m.rabee - 22-04-2013
الموضوع مختلف في دلفي 7
استخدم:
كود :
procedure ParseDelimited(const sl : TStrings; const value : string; const delimiter : string) ;
var
dx : integer;
ns : string;
txt : string;
delta : integer;
begin
delta := Length(delimiter) ;
txt := value + delimiter;
sl.BeginUpdate;
sl.Clear;
try
while Length(txt) > 0 do
begin
dx := Pos(delimiter, txt) ;
ns := Copy(txt,0,dx-1) ;
sl.Add(ns) ;
txt := Copy(txt,dx+delta,MaxInt) ;
end;
finally
sl.EndUpdate;
end;
end;مثال الاستخدام:
كود :
var
mySList : TStringList;
I : Integer;
begin
ParseDelimited(mySList,Edit1.Text,' ');
for I := 0 to (mySlist.Count) -1 do
showMessage(myslist[i]);
mySList.Free;
end;فصل كلمتين موجودان في حقل - m.rabee - 22-04-2013
إقتباس :وهل تنصحني بدلفي 8 او بدلفي 2010
أنا استخدم حالياً xe2
لكن يوجد في المنتدى خبراء قد ينصحوك بشيء مختلف والله أعلم
فصل كلمتين موجودان في حقل - عبد الهادي - 22-04-2013
جزاك الله كل خير
اجرب الكود وانظر بعدها على كل افادتك قيمة فبارك الله فيك