الفريق العربي للبرمجةأرشيف المنتديات · 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
        
        

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

      
      

      
    

  

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