Arsip: menhilangkan titik pada format string, please help...

 
user image
more 12 years ago

normanforeverus

teman² seperjuangan, sepemrograman... ijinkan saya bertanya... bagaimana menhilangkan titik ( . ) dan koma (,) pada format string seperti contoh ini dari 10.000.000,00 menjadi 1000000000 mungkin ini sudah pernah di bahas, cuman saya cari di search enginenya delphi-id tidak ada topic yang cocok... jadi saya mohon bantuan temen² terima kasih banyak sebelumnya... :?
user image
more 12 years ago

donlego

coba ini bos

var j, i: integer;
  atext, s: string;
begin
  Atext := ed3.Text;
  for j := 1 to length(ed3.text) do
    if not (atext[j] in ['.']) then
      s := s + atext[j];
user image
more 12 years ago

LuriDarmawan

ga pake fungsi StringReplace saja ?

      x := stringreplace( x, '.', '', [rfReplaceAll]);
begitulah kira2 barangkali sesuai harapan coba semangat nge-search-nya lebih diperbesar, dan ..... kadang ga perlu search, dari IDE Delphi, coba tekan "F1" kalau nemu fungsi regex, akan lebih ampuh lagi
user image
more 12 years ago

normanforeverus

i'll try this script.. and I'll try more hard too search... anyway thanks a lot... mohon jika ada method yang laen di tambahkan aja biar bisa berguna bagi yang laen... ones thank you very much...
user image
more 12 years ago

simple_code


function DelDot(ACaption: String): String;
var Poss :integer;
begin
  begin
    Poss := Pos('.',  ACaption);
    if Poss >0 then Delete(ACaption, Poss, 1);
    Result := ACaption;
  end;
end;
smuga membantu lagi...
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com