Home > Case String, Tips & trik > Case statement untuk nilai string

Case statement untuk nilai string

January 10, 2012

Bagaimana cara mencari nilai string menggunakan Case statement.
Anda mungkin pernah mencoba memberikan pernyataan Kasus dengan ekspresi string tipe.

Fungsi berikut memungkinkan Anda untuk menggunakan pernyataan Kasus dengan variabel tipe string:
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;
memanggil fungsi StringToCaseSelect

procedure TForm1.Button2Click(Sender: TObject);
var
     ms : string;
begin
         case StringToCaseSelect(edit1.Text,[‘hamdi’,’boim’,’baim’,’yanto’,’jack’]) of
        0..4 : ms:=’sesuai’;
else
      ms:=’tidak sesuai’;
end;
ShowMessage(ms);
edit1.SetFocus;
end;

Categories: Case String, Tips & trik
%d bloggers like this: