Тема: Поле Edit
Показать сообщение отдельно
  #2  
Старый 05.11.2011, 20:08
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Надо разделить их на отдельные числа, умножить, а потом собрать обратно.
Примерно так:
Код:
var
  I : Integer;
  L : TStringList;
begin
  L := TStringList.Create;
  L.Text := StringReplace(Edit1.Text,'/',#13#10,[rfReplaceAll]);
  Edit1.Text := '';
  For I := 0 To L.Count-1 Do
    Edit1.Text := Edit1.Text + FloatToStr(StrToFloat(L[i])*100) + '/';
  L.Free;
end;
"Допилишь" код до нормального состояния сам.
Ответить с цитированием