Case+String

[Roya Rayane]

سلام
دوستان اگر ممکن هست یک مثال از دستور کیس که با رشته کار می کند بزنید.

[Valadi]

شما در دستور Case ( که یک دستور ثابت است و معمولا هم برای نسبت دادن استفاده می شود ) محدودیت دارید اگر تعداد بیشتر از 20 بشود از سرعت برنامه کاسته می شود البته نه به حد که تصور می کنید
مثال هم در سایت زیاده سرچ کن
موفق وموید باشی

[Arman_1367]

سلام
دوستان اگر ممکن هست یک مثال از دستور کیس که با رشته کار می کند بزنید.

از این تابع می توانی استفاده کنی :

Function CaseString(AStrings:TStrings;Casensetive:Boolean;A Value:string):Integer;
Var I:Integer;
Begin
Result:=-1;
If Casensetive Then
Begin
For I:=0 to AStrings.Count-1 do
If AStrings[i]=AValue then
Begin
Result:=i;
break;
End;
End
else
Begin
For I:=0 to AStrings.Count-1 do
If UpperCase(AStrings[i])=UpperCase(AValue) then
Begin
Result:=i;
break;
End;
End;
End;

مثال :

ShowMessage(IntToStr(CaseString(Memo1.Lines,false, Edit1.Text)));