![]() |
|
|
#16
|
|||
|
|||
|
Возникла ещё одна проблема. Мне необходимо считать из MaskEdita Число и символ вида 90-00,0 N и преобразовать его в дробь в такой вид 90,000N Как это возможно сделать?
|
|
#17
|
||||
|
||||
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:= MaskEdit1.Text;
Delete(s, Pos(',', s), 1);
MaskEdit1.Text:= StringReplace(s, '-', ',', [rfReplaceAll]);
end; |