[R-18Rus]

Код:

if TryStrToFloat(LabeledEdit1.Text,unit1.stk) then

Выдаёт ошибку: there is no overloaded version of 'trystrtofloat' that can be called with these arguments

[NumLock]

Код:

var
  f: Double;
begin
  TryStrToFloat(Edit1.Text, f);
end;

[R-18Rus]

Помогло. А не подскажете почему? Что double что real поддерживают 15 знаков (в их описании отличий нет)

[NumLock]

потому что:

Delphi syntax:

function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload;

function TryStrToFloat(const S: string; out Value: Double): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Single): Boolean; overload;

function TryStrToFloat(const S: string; out Value: Extended; const FormatSettings: TFormatSettings): Boolean; overload;

function TryStrToFloat(const S: string; out Value: Double; const FormatSettings: TFormatSettings): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Single; const FormatSettings: TFormatSettings): Boolean; overload;

нет Real

[R-18Rus]

Спасибо за ответ.

Чтобы не делать новой темы и не сильно думать ещё спрошу.
В double для разделения целой и дробной части используется точка? Как реализовать автозамену запятой на точку? (Или наоборот, если запятая)

[poli-smen]

Сообщение от R-18Rus

Спасибо за ответ.

Чтобы не делать новой темы и не сильно думать ещё спрошу.
В double для разделения целой и дробной части используется точка? Как реализовать автозамену запятой на точку? (Или наоборот, если запятая)

Если в самом исходнике, то используется исключительно точка.
Если при вводе/выводе, то используется тот символ, который настроен у тебя в Windows (в региональных настройках). В программе можно использовать переменную DecimalSeparator. Пример:

Код:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage(FloatToStr(1.234));
  DecimalSeparator := '*';
  ShowMessage(FloatToStr(1.234));
end;