плавающая точка

[varelik]

Добрый день
Подскажите, что не так в коде:

procedure TForm1.Button1Click(Sender: TObject);
 var s:string; n:extended;
begin
 s:='0.34';
 n:=strtofloat(s)*20;
 edit2.Text:=floattostr(n);
end;

Вопрос конечно жутковат, но всегда думал что strtofloat именно так должна работать, пока впервые не столкнулся

[vizir1989]

procedure TForm1.Button1Click(Sender: TObject);
 var s:string; n:extended;
begin
 s:='0.34';
 n:=strtofloat(s)*20;
 edit2.Text:=floattostr(n);
end;

на сколько я знаю ставиться запятая (0,34), а не точка.

[Grag]

По-моему, это (запятая или точка) определяется настройками Винды... По-умолчанию - запятая...

[varelik]

Вот кстати да, действительно, запятая, спасибо.
Теперь, что на самом деле нужно:
эта строка S='0.34' приходит с внешнего устройства на ПК. Как бы эту точку вырезать и заменить на запятую?
Есть pos для определения положения точки в строке. Есть delete для удаления из строки. А вот для замены символа что нибудь типа paste есть?

[Grag]

if Pos('.',S)<>0 then
  S[Pos('.',S)]:=','

[varelik]

а, ну да, либо както так:
for n:= 1 to length(s) do
if s[n] = '.' then s[n]:= ','
спасибо за подсказку

[Alexandr90]

В заданном тексте подсчитать количество строчных букв

[Sibedir]

Ну, можно еще вот так

  DecimalSeparator := '.';
  s := '0.34';
  n := StrToFloat(s) * 20;
  Edit2.Text := FloatToStr(n);

[Terran]

Вот ещё вариант для замены:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit1.Text:=StringReplace(Edit1.Text,'.',',',[RfReplaceAll]);
End;