Автор Анатолий Манаенков задал вопрос в разделе Другие языки и технологии
Delphi FormatFloat и получил лучший ответ
Ответ от Поклонник Мыла[гуру]
А что именно сделать то надо?Edit3.Text:=FormatFloat(' #.##',z)илиFormatFloat(' #.##',StrToFloat(Edit3.Text))
Ответ от Ewe 2e¶ CoЛнЫшКоcBeTиТоЧеНЬяРкО*[гуру]
// Set up our floating point number float := 1234.567; // Display a sample value using all of the format options // Round out the decimal value ShowMessage('##### : '+FormatFloat('#####', float)); ShowMessage('00000 : '+FormatFloat('00000', float)); ShowMessage('0 : '+FormatFloat('0' , float)); ShowMessage('#,##0 : '+FormatFloat('#,##0', float)); ShowMessage(',0 : '+FormatFloat(',0' , float)); ShowMessage(''); // Include the decimal value ShowMessage('0.#### : '+FormatFloat('0.####', float)); ShowMessage('0.0000 : '+FormatFloat('0.0000', float)); ShowMessage(''); // Scientific format ShowMessage('0.0000000E+00 : '+FormatFloat('0.0000000E+00', float)); ShowMessage('0.0000000E-00 : '+FormatFloat('0.0000000E-00', float)); ShowMessage('#.#######E-## : '+FormatFloat('#.#######E-##', float)); ShowMessage(''); // Include freeform text ShowMessage('"Value = "0.0 : '+FormatFloat('"Value = "0.0', float)); ShowMessage(''); // Different formatting for negative numbers ShowMessage('0.0 : '+FormatFloat('0.0' , -1234.567)); ShowMessage('0.0 "CR";0.0 "DB" : '+ FormatFloat('0.0 "CR";0.0 "DB"', -1234.567)); ShowMessage('0.0 "CR";0.0 "DB" : '+ FormatFloat('0.0 "CR";0.0 "DB"', 1234.567)); ShowMessage(''); // Different format for zero value ShowMessage('0.0 : '+FormatFloat('0.0' , 0.0)); ShowMessage('0.0;-0.0;"Nothing" : '+ FormatFloat('0.0;-0.0;"Nothing"', 0.0));
// Set up our floating point number float := 1234.567; // Display a sample value using all of the format options // Round out the decimal value ShowMessage('##### : '+FormatFloat('#####', float)); ShowMessage('00000 : '+FormatFloat('00000', float)); ShowMessage('0 : '+FormatFloat('0' , float)); ShowMessage('#,##0 : '+FormatFloat('#,##0', float)); ShowMessage(',0 : '+FormatFloat(',0' , float)); ShowMessage(''); // Include the decimal value ShowMessage('0.#### : '+FormatFloat('0.####', float)); ShowMessage('0.0000 : '+FormatFloat('0.0000', float)); ShowMessage(''); // Scientific format ShowMessage('0.0000000E+00 : '+FormatFloat('0.0000000E+00', float)); ShowMessage('0.0000000E-00 : '+FormatFloat('0.0000000E-00', float)); ShowMessage('#.#######E-## : '+FormatFloat('#.#######E-##', float)); ShowMessage(''); // Include freeform text ShowMessage('"Value = "0.0 : '+FormatFloat('"Value = "0.0', float)); ShowMessage(''); // Different formatting for negative numbers ShowMessage('0.0 : '+FormatFloat('0.0' , -1234.567)); ShowMessage('0.0 "CR";0.0 "DB" : '+ FormatFloat('0.0 "CR";0.0 "DB"', -1234.567)); ShowMessage('0.0 "CR";0.0 "DB" : '+ FormatFloat('0.0 "CR";0.0 "DB"', 1234.567)); ShowMessage(''); // Different format for zero value ShowMessage('0.0 : '+FormatFloat('0.0' , 0.0)); ShowMessage('0.0;-0.0;"Nothing" : '+ FormatFloat('0.0;-0.0;"Nothing"', 0.0));
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Delphi FormatFloat
делфи. когда присваиваю edit переменную он пишет ошибку. подскажите как правильно присвоить а то мож я не так пишу.
Правильно тут говорят. Ошибка не связана ни с Edit ни с присвоением. Идентификатор X объявлен
подробнее...