VPF::перевод String -> Float - Форум программистов

Fast

Дата 15.8.2006, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 21.3.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

Как мне из переменной типа стринг сделать типа Float ?
Я имею ввиду что в стринг у меня числа типа 32.32 , 987.20 тоесть с точкой, а для флоата нужна запятая!!!
Что делать ???7

M
Snowy

Название темы должно отражать ее суть!

Romikgy

Дата 15.8.2006, 09:29 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

StrToFloat

Добавлено @ 09:32

Цитата(Fast @ 15.8.2006, 08:27

)

для флоата нужна запятая

sx:=StringReplace(sx,'.',',',[rfReplaceAll]);

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

dvamaster

Дата 15.8.2006, 09:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

DecimalSeparator := '.' и StrToFloat(str) и усе

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

Romikgy

Дата 15.8.2006, 09:36 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


var sx: string;
fl: float;
begin
sx:='32.32';
sx:=StringReplace(sx,'.', DecimalSeparator,[rfReplaceAll]);
sx:=StringReplace(sx,',', DecimalSeparator,[rfReplaceAll]);
fl:=StrToFloat(sx);
end;

всегда работать будет smile

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Guedda

Дата 15.8.2006, 09:39 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Но это уменьшает быстродействие, поэтому лучше использовать вариант, предложенный dvamaster

--------------------

Ll 2

Fast

Дата 15.8.2006, 09:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 21.3.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

Не получается =((((

Код

procedure TForm1.Button4Click(Sender: TObject);
var i: integer;
s: string;
begin
ADOTable1.Filtered := False;
ADOTable1.First;
For i:= 0 to ADOTable1.RecordCount do
begin
s := ADOTable1.Fields.Fields[4].AsString;
s:=StringReplace(s,'.', DecimalSeparator,[rfReplaceAll]);
s:=StringReplace(s,',', DecimalSeparator,[rfReplaceAll]);
ADOTable1.Edit;
ADOTable1.Fields.Fields[1].Value := s;
ADOTable1.Next;
end;
end;

Добавлено @ 09:44
Почему то ничего не меняется =(

M
z-END

кнопка код, для кого?
еще раз и в глаз! :)

Это сообщение отредактировал(а) z-END - 15.8.2006, 09:57

Romikgy

Дата 15.8.2006, 09:55 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(Fast @ 15.8.2006, 08:44

)

Почему то ничего не меняется =(

что не меняется?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

z-END

Дата 15.8.2006, 09:57 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Модератор: Название темы должно отражать ее суть!

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

dvamaster

Дата 15.8.2006, 10:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Метод post забыл

Код


ADOTable1.Fields.Fields[1].Value := s;
ADOTable1.Post; // вот тут
ADOTable1.Next;

--------------------

Fedia

Дата 15.8.2006, 10:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13

Цитата(Romikgy @ 15.8.2006, 09:36

)

sx:=StringReplace(sx,'.', DecimalSeparator,[rfReplaceAll]);
sx:=StringReplace(sx,',', DecimalSeparator,[rfReplaceAll]);

ИМХО, так пошустрее будет:

Код


  if DecimalSeparator = ',' then
  sx:=StringReplace(sx,'.', DecimalSeparator,[rfReplaceAll]) else
  sx:=StringReplace(sx,',', DecimalSeparator,[rfReplaceAll]);

--------------------

Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…

Fast

Дата 16.8.2006, 06:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 21.3.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

Нет там всё в порядке ))
Просто в эти числа заносились в другую колонку и я их не замечал smile

kostas

Дата 16.8.2006, 06:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.7.2006

Репутация: 3
Всего: 4

Есть еще функции AnsiReplaceStr из модуля strutils

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »