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

تاريخ الإنتساب : 12-12-2008
تاريخ الميلاد : إخفاء تاريخ الميلاد
التوقيت المحلي : 17-01-2019 في 06:37 PM
الحالة : غير متصل

mobile معلومات المنتدى
إنضم إلينا : 12-12-2008
آخر زيارة 15-01-2019, 11:13 PM
إجمالي المشاركات : 458 (0.12 مشاركات في اليوم الواحد | 1.1 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 42 (0.01 مواضيع في اليوم | 0.52 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : 5 أيام, 14 ساعات, 53 دقائق
الأعضاء المحالين: 0
Total Thanks Received: 113 (0.03 2.55 per day | 4430 percent of total 2.55)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 172 (0.05 3.87 per day | 4449 percent of total 3.87)
(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;