دستور Case ... of ، متغير String در شرطش قبول نمي كنه؟!!!!

سلام دوستان عزيزم
آدم بعضي وقتها به اشكالايي بر مي خوره كه هيچ وقت فكرشو نمي كنه. جاي تعجبه!!:18:
مي خوام با Case...of كار كنم. ولي مثل اينكه String در شرطش جواب نميده. علتش هم ميگه Ordinal Type مي خواد.
حالا اگه بخوام String رو تو شرط Case بنويسم بايد چيكار كنم؟
موفق باشين
باي

باید از else if استفاده کنی. در همین سایت شبیه سازی case رو با else if گفته شده. جستجو کن.

نقل قول:

---

ولي مثل اينكه String در شرطش جواب نميده

---

romixery عزیز شما دیگه چرا؟ این مورد قبلا بحث شده بود. در case نمیتونی از رشته استفاده کنی.

سلام

نقل قول:

---

Romixery عزيز شما ديگه چرا؟

---

مي دونم مي خواين چي بگين فرهاد جان حتما ميگين. اين ناشي ديگه كيه. ديگه اينقدرا بوق نيستم كه نفهمم وقتي ارورر ميده Ordinal Type مي خواد نميشه از String استفاده كرد. مطمئنم باشين اگه نمي دونستم ميشه اين رو نمي گفتم.
من اين رو گفتم چون تقريبا يك سال پيش يكي از دوستام يه مقاله از دلفي رو كه استادشون كه فوق نرم افزار از صنعتي شريف داشت رو نشونم داد كه اين استاده با استفاده از يه مشت دستور عجيب غريب تونسته بود اين رو به شرط Case اضافه كنه. صد البته مشكل من با يه If..elseif ساده حل ميشه.
البته تقصير از من بود كه تيكه آخر امضاي Noneforce عزيز رو رعايت نكردم و پست زدم(و اونايي كه نمي تونن Search كنند). بايد قبلش جستجو مي كردم. به خدا نمي دونستم اين موضوع قبلا بحث شده و به نتيجه نرسيده. ولي اين رو هم بدونين بالاخره ميشه اين كار رو كرد يعني String رو در Case آورد.
اميدوارم موفق باشين
باي

نقل قول:

---

نوشته شده توسط romixery [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام

مي دونم مي خواين چي بگين فرهاد جان حتما ميگين. اين ناشي ديگه كيه. ديگه اينقدرا بوق نيستم كه نفهمم وقتي ارورر ميده Ordinal Type مي خواد نميشه از String استفاده كرد. مطمئنم باشين اگه نمي دونستم ميشه اين رو نمي گفتم.
من اين رو گفتم چون تقريبا يك سال پيش يكي از دوستام يه مقاله از دلفي رو كه استادشون كه فوق نرم افزار از صنعتي شريف داشت رو نشونم داد كه اين استاده با استفاده از يه مشت دستور عجيب غريب تونسته بود اين رو به شرط Case اضافه كنه. صد البته مشكل من با يه If..elseif ساده حل ميشه.
البته تقصير از من بود كه تيكه آخر امضاي Noneforce عزيز رو رعايت نكردم و پست زدم(و اونايي كه نمي تونن Search كنند). بايد قبلش جستجو مي كردم. به خدا نمي دونستم اين موضوع قبلا بحث شده و به نتيجه نرسيده. ولي اين رو هم بدونين بالاخره ميشه اين كار رو كرد يعني String رو در Case آورد.
اميدوارم موفق باشين
باي

---

سلام
اينطوري ميتونيد تا حدودي مشكل را حل كنيد :

کد:

---

function StringToCaseSelect
  (Selector : string;
CaseList: array of string): Integer;
var cnt: integer;
begin
  Result:=-1;
  for cnt:=0 to Length(CaseList)-1 do
begin
    if CompareText(Selector, CaseList[cnt]) = 0 then
    begin
      Result:=cnt;
      Break;
    end;
  end;
end;

{
Usage:

case StringToCaseSelect('Delphi',
      ['About','Borland','Delphi']) of
  0:ShowMessage('You''ve picked About') ;
  1:ShowMessage('You''ve picked Borland') ;
  2:ShowMessage('You''ve picked Delphi') ;
end;
}

---

سلام
اينم روشش:

کد:

---

Function Tform1.Caseof(st1:string;st2:array of string):integer;
var
  i:integer;
Begin
  for i:=0 to length(st2)-1 do
    if st1=st2[i] then
    begin
      result:=i;
      exit;
    end
    else Result:=-1;
end;
 
//-------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  case caseof(edit1.Text,['Delphi','VB','C++']) of
    0:Label1.Caption:='Delphi';
    1:Label2.Caption:='VB';
    2:Label3.Caption:='C++';
  else
    Label4.Caption:='No Valid Value';
  end;
end;

---

موفق باشين
باي

Noneforce جان:
مثل اينكه هردو همزمان اين پست رو داديم. ولي خوب اينم روشيه ديگه نه؟
موفق باشين
باي

NoneForce و romixery عزیز، از هر دو ممنون
به راه راست هدایت شدم.