سورسهاي نمونه آموزشي

[دلفــي]

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

procedure TFrmIns.EdtPriceChange(Sender: TObject);

begin

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

  EdtPrice.Text:= FormatFloat(',###.##', StrToFloat(StringReplace(EdtPrice.Text,',','',[rfReplaceAll])));

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

end;