![]() |
|
|
#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; |