....
   
  Selamat datang
  Mengolah String Pada Delphi
 
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 ^_^
 
   
 
=> Do you also want a homepage for free? Then click here! <=