Mengolah String Pada Delphi

AnsiContainStr
Return true kalo string mengandung suatu substring

var
S : AnsiString;
begin
S := ‘Hadoitz itu keren’; //hehehe…
if AnsiContainsStr(S, ‘Hadoitz’) then ShowMessage(‘Return true’);
end;

AnsiLeftStr dan AnsiRightStr
Return string dari suatu substring

var
a, b, c: AnsiString;
begin
a := ‘Hadoitz itu keren’;
b := AnsiLeftStr(a, 5); //Ambil 5 karakter dari kiri
c := AnsiRightStr(a, 5); //Ambil 5 karakter dari kanan
ShowMessage(b);
ShowMessage(c);
end;

AnsiPos
Return posisi dari substring

var
posisi : Integer;
begin
posisi := AnsiPos(‘keren’, ‘Hadoitz itu keren’);
ShowMessage(‘Kata keren ditemukan di posisi: ‘ + IntToStr(posisi))
end;

StringReplace
Mengganti karakter tertentu dengan karakter yang kita inginkan

var
before, after : string;
begin
before := ‘Hadoitz itu keren’;
after := StringReplace(before, ‘ ‘, ‘_’, [rfReplaceAll, rfIgnoreCase]);
ShowMessage(‘Sebelum: ‘+ before);
ShowMessage(‘Sesudah:’ + after);
end;

StrScan
Men-scan karakter yang ada di string

var
s, hasil : string;
begin
s := ‘Hadoitz itu keren’;
hasil := StrScan(PChar(s), ‘i’);
ShowMessage(hasil);
end;

Trim
Menghilangkan spasi pada suatu string

const
S = ‘ Hadoitz ‘;
begin
ShowMessage(‘[‘ + TrimLeft(S) + ‘]’);
ShowMessage(‘[‘ + TrimRight(S) + ‘]’);
ShowMessage(‘[‘ + Trim(S) + ‘]’);
end;

Semoga bermanfaat ^_^

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: