نقل قول نوشته شده توسط AliReza Vafakhah مشاهده تاپیک
جدا کردن سه رقم در حین ورود ارقام. (مثل حالت Digit Grouping در ماشین حساب ویندوز)



procedure TFrmIns.EdtPriceChange(Sender: TObject);

begin

  if (Trim(EdtPrice.Text) = '') then  Exit;





  EdtPrice.Text:= FormatFloat(',###.##', StrToFloat(ReplaceStr(EdtPrice.Text,

    ',', '')));

  EdtPrice.SelStart:= Length(EdtPrice.Text);

end;
سلام
به ReplaceStr گیر میده! مشکلش چیه؟