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

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

mobile معلومات المنتدى
إنضم إلينا : 12-12-2008
آخر زيارة 12-08-2018, 05:37 PM
إجمالي المشاركات : 452 (0.13 مشاركات في اليوم الواحد | 1.1 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 41 (0.01 مواضيع في اليوم | 0.52 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : 5 أيام, 3 ساعات, 51 دقائق
الأعضاء المحالين: 0
Total Thanks Received: 100 (0.03 2.58 per day | 3882 percent of total 2.58)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 165 (0.05 4.23 per day | 3897 percent of total 4.23)
(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;