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

تاريخ الإنتساب : 12-12-2008
تاريخ الميلاد : إخفاء تاريخ الميلاد
التوقيت المحلي : 20-05-2019 في 02:05 PM
الحالة : غير متصل

mobile معلومات المنتدى
إنضم إلينا : 12-12-2008
آخر زيارة 18-04-2019, 09:28 PM
إجمالي المشاركات : 465 (0.12 مشاركات في اليوم الواحد | 1.09 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 42 (0.01 مواضيع في اليوم | 0.51 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : 5 أيام, 22 ساعات, 11 دقائق
الأعضاء المحالين: 0
Total Thanks Received: 117 (0.03 2.4 per day | 4877 percent of total 2.4)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 173 (0.05 3.53 per day | 4896 percent of total 3.53)
(Find All Thanked ThreadsFind All Thanked Posts)
  
معلومات إضافية عن 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;