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 ^_^