как отобразить в edit число с ТОЧКОЙ?

[alextrof94]

У нормальных людей все нормально считает. Что тебе должно посчитать? Как? Зачем? Что за запрос отправляешь? Сначала на эти вопросы ответь, а потом уже ищи решение проблемы с точками и запятыми.

[eval]

ну вот , попкорн пригодился

[Алексей_2012]

Ради смеха написал)

var b:real;
i:Byte;
s:string;
begin
  b:=0.9;
s:=FormatFloat('0.00',b);
for i:=1 to Length(s) do
if s[i]=',' then s[i]:='.';
Edit1.Text:=s;
end;

[eval]

ужас, попкорн еще не закончился, ждем еще

[ST@LKER]

Сообщение от alextrof94

У нормальных людей все нормально считает. Что тебе должно посчитать? Как? Зачем? Что за запрос отправляешь? Сначала на эти вопросы ответь, а потом уже ищи решение проблемы с точками и запятыми.

Да я отправляю запрос и даже не один, а если точнее то у меня уже целая экспертная система которая готова на 99%, вопрос удавлитворен?

[eval]

целая экспертная система которая готова на 99%

а 1% это с точкой осталось?

[ST@LKER]

Сообщение от eval

а 1% это с точкой осталось?

да которая кстате уже решена

вариантом выше, и теперь все работает

var b:real;
i:Byte;
s:string;
begin
  b:=0.9;
s:=FormatFloat('0.00',b);
for i:=1 to Length(s) do
if s[i]=',' then s[i]:='.';
Edit1.Text:=s;
end;

[Аватар]

Вершина StringReplace так и не покорилась? Да, напряг с альпинистами

Ради смеха написал

Гы

[ST@LKER]

Сообщение от Аватар

Вершина StringReplace так и не покорилась? Да, напряг с альпинистамиГы

StringReplace, сама функция за себя отвечает что она String, и числами она не работает, так вперед скалолаз покорять непокоримое

[Аватар]

Но floattostr(b) и возвращает String. Или тот же FormatFloat. Или это я придумал? Тренеруйся скалолаз