Case Statement menggunakan String Di delphi

tidak seperti bahasa pemerograman lainnya case statemen dapat digunakan oleh vb, java, php , dan lain dengan varible string , delphi hanya bisa case dengan variable integer, maka untuk itu perlu sedikit fungsi untuk mengubah pilihan string ke integer
berikut code fungsinya :
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;

misalkan kita punya Tedit text sebagai inputan dan mempunyai tombol ketika diklik merespon pilihan dari inputan textbox tersebut ke label:

berikut contoh kodenya:

procedure TForm1.Button1Click(Sender: TObject);
begin
//dari fungsi
//coba ketikan string berikut '42', '23', 'tiga', 'hello'
case CaseOfString(Edit1.Text, ['42', '23', 'tiga', 'hello']) of
0: Label1.Caption := 'Pilihan string 42?';
1: Label1.Caption := 'Pilihan string 23';
2: Label1.Caption := 'Tigaa !';
3: Label1.Caption := 'Hello people.';
else
Label1.Caption := '?';
end;
end;

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s