![]() |
|
#1
|
|||
|
|||
![]() В поле Edit прописаны цифры через символ /
Например 123,23/45/3,14 и т.д. Как мне их все перемножить на 100 и записать опять в поле Edit через символ / используя функции floattostr, strtofloat |
#2
|
|||
|
|||
![]() Надо разделить их на отдельные числа, умножить, а потом собрать обратно.
Примерно так: Код:
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; |