mobile
(عضو بفريق مجلة دلفي للعرب)
******

تاريخ الإنتساب : 12-12-2008
تاريخ الميلاد : إخفاء تاريخ الميلاد
التوقيت المحلي : 20-10-2018 في 04:27 PM
الحالة : غير متصل

mobile معلومات المنتدى
إنضم إلينا : 12-12-2008
آخر زيارة 18-10-2018, 11:15 PM
إجمالي المشاركات : 459 (0.13 مشاركات في اليوم الواحد | 1.11 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 41 (0.01 مواضيع في اليوم | 0.52 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : 5 أيام, 7 ساعات, 34 دقائق
الأعضاء المحالين: 0
Total Thanks Received: 106 (0.03 2.6 per day | 4070 percent of total 2.6)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 173 (0.05 4.24 per day | 4085 percent of total 4.24)
(Find All Thanked ThreadsFind All Thanked Posts)

بيانات العضو mobile
مراسلة خاصة : أكتب لـ mobile رسالة خاصة .
  
معلومات إضافية عن mobile
Sex: Male

توقيع mobile
لأستهلنّ الصعب أو أدرك المنى    فما انقادت الآمال إلاّ لصابر

case of with string 5
case of with string Lazarus - Free Pascal - CrossKylix - Kylix - CrossVCL
السلام عليكم ورحمة الله
في Lazarus fpc 2.6.0
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
case edit1.Text of
'one': caption := 'one';
'111': caption := '1';
end;
end;
في دلفي
كود :
function CaseOfString(s: string; a: array of string): Integer;
begin
 Result := 0;
 while (Result < Length(a)) and (a[Result] <> s) do
   Inc(Result);
 if a[Result] <> s then
   Result := -1;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 case CaseOfString(Edit1.Text, ['42', '23', 'nerd alert', 'hello world']) of
   0: Label1.Caption := 'What is ?';
   1: Label1.Caption := 'Tow';
   2: Label1.Caption := 'yes';
   3: Label1.Caption := 'Hello';
   else
     Label1.Caption := '?';
 end;
end;