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

التعامل مع النصوص

بدأه SkyLand في 4 سبتمبر 2008 · 7 رد · 1,138 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندي سلسلة نصية أريد التعامل معها على أساس حرف حرف وأريد أن أنسخها إلى مصفوفة

فأرجو منكم مساعدتي

#2

السلام عليكم

..

مثلا النص (أحمد) هل تقصد كل حرف هو عنصر في مصفوفة .. مثال:

procedure TForm1.Button1Click(Sender: TObject);
var
  ary : array [1..20] of string;
  s : string[20];
begin
  s := 'Ahmad';
  ary[1] := s[1];
  ary[2] := s[2];
  ary[3] := s[3];
  ary[4] := s[4];
  Label1.Caption := ary[2];
end;

وهنا سوف يتم طباعة الحرف الثاني من السلسلة

تم تعديل هذه المشاركة بواسطة أحمد_ليبيا في 5 سبتمبر 2008 في 00:03

moslimbag8.gif

------

saaid.jpg

#3

جرب الكود التالي :

  1.  
  2. var
  3.   Arr : Array[1..20] Of String ;
  4.   I : Integer ;
  5.  
  6. begin
  7.  
  8.   For I := 1 To Length(Edit1.Text) Do
  9.     Arr[i] := Edit1.Text[I] ;
  10.  
  11. end;
  12.  


      
      

      
اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

    

  

    
    

      
#4
        
        

      
شكراً جزيلاً على ردكم 
أريد بشكل أدق أن أقسم سلسلة إلى سلسلتين مثل عندي 
011 - 4750012
هذا رقم هاتف أريد أن أظهر رمز المدينة في Edit و الرقم في Edit آخر بدون إشارة -

      
      

      
    

  

    
    

      
#5
        
        

      
سلام عليك 
استخدم ال copy
Edit2.Text:=copy(Edit1.Text,1,3);
Edit3.Text:=copy(Edit1.Text,5,7

      
      

      
    

  

    
    

      
#6
        
        

      
شكراً أخي ولكن إذا كنت لا أعرف مقدار رمز المدينة هل هو رقمان أم ثلاثة أم أربع

      
      

      
    

  

    
    

      
#7
        
        

      
SkyLand كتب:
شكراً أخي ولكن إذا كنت لا أعرف مقدار رمز المدينة هل هو رقمان أم ثلاثة أم أربع
استخدم كلا من التابعين Pos لتحديد مكان المحرف و Copy لنسخ الجزء الذي تريد,
procedure TForm1.FormCreate(Sender: TObject);
var str:string;
  Position:integer;
begin
  str:= '234-234234234';
  Position:= Pos('-',str);
  Edit1.Text:=  copy(str,1, Position -1);
  Edit2.Text:=  copy(str,Position + 1, length(str) );
end;
في المرات القادمة استخدم البحث, فهذا السؤال متكرر كثيرا.

      
      

      
 رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.
لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

    

  

    
    

      
#8
        
        

      
شكراً جزيلاً أخي
ولكن حاولت البحث ولكن أما أن لا يظهر لي نتائج 
وفي بعض الأحيان لا أعرف ماذا سأكتب
فأرجو مساعدتي في طريقة البحث

      
      

      
    

  

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





  

    
عدد الزوار حالياً
المتواجدون خلال آخر ساعة · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…