الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Split String - How To

مغلق
بدأه prof_1982 في 1 مايو 2006 · 12 رد · 990 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

انا هذه اول مشاركة لي في منتداكم العريق ، وارجوا ان اجد ما ابحث عنه .

لدي نص مكون من كلمات وبين هذه الكلمات حرف معين (الفاصل) اريد طريقة لتقطيع النص واضافة الكلمات في مصفوفة من نوع TStringList

هكذا .

Ahmad@ali@Basel@mohammed

الحل ان تكون الكلمات مقطعة موجودة في مصفوفة

A[0]='ahmad'

A[1]='ali'

A[2]='Basel'

A[3]='mohammed'

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#2

مرحبا بك

جرب هذا الكود

procedure TForm1.Button1Click(Sender: TObject);
var
  s, s1 : string;
  stl: TStringList;
begin
 s := 'Ahmad@ali@Basel@mohammed';
 s := StringReplace(s,'@',#13#10,[rfReplaceAll, rfIgnoreCase]);
  stl := TStringList.Create;
  stl.Text := s;
  ShowMessage(stl[1]);
  stl.Free;
end;

تحياتي

:)

#3

مشكور جدا عزيزي بارك الله فيك ،

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#4

مرحبا بك أخي prof_1982

حاول ان تكتب العنوان بالعربي مرة أخرى

d4baa0.gif
#5

brkapart components

brkapart.zip

#6

كيف ممكن اركب الـbrkapart Component ??? السابقة

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#7
اقتباس
كيف ممكن اركب الـ.... Component

في المواضيع المثبة فوق، رابط لموضوع كتبه الأخ عروة جزاه الله خيرا،

d4baa0.gif
#8

الاخ prof_1982

مرحبا بك بالمنتدى والعنوان كان واضحا جدا

.jpg

______________________________________________________________________________

[وسط]9ber.gif

ip2location.png

______________________________________________________________________________

(فَقُلْتُ اسْتَغْفِرُوا رَبَّكُمْ إِنَّهُ كَانَ غَفَّارًا (10) يُرْسِلِ السَّمَاء عَلَيْكُم مِّدْرَارًا (11) وَيُمْدِدْكُمْ بِأَمْوَالٍ وَبَنِينَ وَيَجْعَل لَّكُمْ جَنَّاتٍ وَيَجْعَل لَّكُمْ أَنْهَارًا (12)

مَّا لَكُمْ لَا تَرْجُونَ لِلَّهِ وَقَارًا (13) وَقَدْ خَلَقَكُمْ أَطْوَارًا (14))

* سورة نوح[/وسط]

من اجمل المواقع على الاطلاق

القرآن الكريم

#9

ومن سئلك يا wdusif إذا كان العنوان واضح ولا مش واضح...ولا إنتا عايز تفتن وخلاص...

لا تتدخل فى ما لا يعنيك حتى لا تسمع ما لا يرضيك.

لا إله إلا الله محمد رسول الله

busbar : يجب ان تدرك انه هناك حد ادنى للمعرفة المطلوبة قبل البدء في عمل أي شئ.

#10

هذا رائى في موضوع العنوان واعتقد ان الموقع يكفل لي حرية التعبير عن رائى الشخصى

ام لانك (المراقب العام ومدير التطوير ) تريد ان تسمعنى ما لا يرضينى ؟؟؟؟

.jpg

______________________________________________________________________________

[وسط]9ber.gif

ip2location.png

______________________________________________________________________________

(فَقُلْتُ اسْتَغْفِرُوا رَبَّكُمْ إِنَّهُ كَانَ غَفَّارًا (10) يُرْسِلِ السَّمَاء عَلَيْكُم مِّدْرَارًا (11) وَيُمْدِدْكُمْ بِأَمْوَالٍ وَبَنِينَ وَيَجْعَل لَّكُمْ جَنَّاتٍ وَيَجْعَل لَّكُمْ أَنْهَارًا (12)

مَّا لَكُمْ لَا تَرْجُونَ لِلَّهِ وَقَارًا (13) وَقَدْ خَلَقَكُمْ أَطْوَارًا (14))

* سورة نوح[/وسط]

من اجمل المواقع على الاطلاق

القرآن الكريم

#11

لا يا استاذ الموقع لا يكفل لك شئ, هذا موقع تعليمي وليس مركز الحزب الديمقراطي, هنا إما تستفيد بما فى الموقع او تفيد الاعضاء, وغير كدا مافى, ولا تستفزني اكثر من كدا..

لا إله إلا الله محمد رسول الله

busbar : يجب ان تدرك انه هناك حد ادنى للمعرفة المطلوبة قبل البدء في عمل أي شئ.

#12
اقتباس
لا يا استاذ الموقع لا يكفل لك شئ,....

حسبى الله ونعم الوكيل

.jpg

______________________________________________________________________________

[وسط]9ber.gif

ip2location.png

______________________________________________________________________________

(فَقُلْتُ اسْتَغْفِرُوا رَبَّكُمْ إِنَّهُ كَانَ غَفَّارًا (10) يُرْسِلِ السَّمَاء عَلَيْكُم مِّدْرَارًا (11) وَيُمْدِدْكُمْ بِأَمْوَالٍ وَبَنِينَ وَيَجْعَل لَّكُمْ جَنَّاتٍ وَيَجْعَل لَّكُمْ أَنْهَارًا (12)

مَّا لَكُمْ لَا تَرْجُونَ لِلَّهِ وَقَارًا (13) وَقَدْ خَلَقَكُمْ أَطْوَارًا (14))

* سورة نوح[/وسط]

من اجمل المواقع على الاطلاق

القرآن الكريم

#13

لك حرية الرأي في المناقشات العلمية و ليس في الامور الجدلية

التي تبعث على الفتن و المشاكل

اللهم صل و سلم على سيدنا محمد

كاف و نون خلقهم و فنائهم كاف و نون

عالمي شاشة و لغتي صفر و واحد

Just Smile ............You can do it

When you stop learning ... You stop leading

لساني بنطقي صامت عنه عادل............وقلبي بصمتي ضاحك منه هازل

وأتـعـب من نـاداك من لا تـجيبـه............وأغـيظ من عـاداك من لا تـشاكـل

مدونتي الشخصية : Tammam Koujan

آخر مواضيع المدونة :

هذا الموضوع مغلق.

مواضيع مشابهة