как изменить точку на запятую

[Poltev86]

доброго времени суток!!! подскажите пожалуйста...Проблема такова..есть исходный файл DBF в нем есть суммы...имеющие следующий вид 1254.12 так вот как в делфи сделать так чтоб он пробежался по этому столбцу и заменил точку на запятую..тоесть чтоб результат был таким 1254,12

[raxp]

...а зачем? если есть проблема с расчетами в дельфях с данными из этой базы, может быть проще decimalseparator('.') при инициализации приложения ...извиняюсь, если не в тему догадки просто.

[_Engine_]

Тип поля текстовый что-ли?

[Poltev86]

Да просто есть старая программа..она выгружает в таком формате...числовое поле..да надо посчитать сумму общую..но из за точки я что то не могу его считать..если меня на запятую..то командой strtofloat считываеться на раз..а так ругаеться...а можно поподробнее про decimalseparator('.')

[_Engine_]

F1 вам в руки
А можно еще и так:

function StrToFloat2(const S : String) : Extended;
    var FS : TFormatSettings;
  begin
    if pos('.', S) > 0 then
      FS.DecimalSeparator := '.';
    if pos(',', S) > 0 then
      FS.DecimalSeparator := '.';
    Result := StrToFloat(S, FS)   
  end;

[raxp]

тогда эта функа вам и нужна ...она даст вашей strtofloat работать с точками ...поподробней можно, курсор в конце команды и нажать F1, вам выдаст HELP ее описание.

[Poltev86]

Спасибо!!!