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

@Sky Walker · Регистрация: 30.04.2014

Author24 — интернет-сервис помощи студентам

Всем привет!
Подскажите пожалуйста как в Stringgrid точку заменить на запятую.
Сделал следующее - в Stringgrid я копировал файл .CSV! Отделителем целой части от дробной является точка! Нужна запятая чтобы провести в дальнейшем простые математические действия.
Буду признателен за любую полезную информацию

@mss · 09.07.2014, 16:41

Кури стандартную справку по теме "DecimalSeparator"

@Sky Walker · 09.07.2014, 16:45 **[ТС]**

Я читал по этому поводу,ничего не понял. Не могли бы помочь?

@Sky Walker · 09.07.2014, 17:16 **[ТС]**

ага( бъюсь уже оооооооочень долго... и StringReplace(StringGrid1.Cells[i,j], '.', ',', [rfReplaceAll]); попробовал, ничего не получается(((

Добавлено через 3 минуты
вот так пробовал:

Delphi

var
a,b,c: Real;
begin
StringGrid1.Cells[8,1]:=FloatToStr(a);
b:=-86.9897;
c:=a-b;
StringGrid1.Cells[9,1]:=FloatToStr(c);

значение -86.9897 делает с запятой,а значение в ячейке не хочет(

@mss · 09.07.2014, 17:21

Сообщение от Sky Walker

вот так пробовал

Не вижу в "пробе" никакого упоминания о переменной DecimalSeparator

@Sky Walker · 09.07.2014, 17:22 **[ТС]**

я decimalseparator и не пробовал. не понимаю я его,поэтому прошу помощи

@Sky Walker · 09.07.2014, 17:35 **[ТС]**

This example uses a label and a button on a form. When the user clicks the button, the current date displays in the caption of the label. Because some of the date variables are assigned new values, the format of the date in the label changes. For example, if the date is 9/15/94, the date displays as 9-15-1994.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 
begin
  DateSeparator := '-';
  ShortDateFormat := 'm/d/yyyy';
  Label1.Caption := DateToStr(Date);
end;

@northener · 09.07.2014, 17:36

Сообщение от Sky Walker

и StringReplace(StringGrid1.Cells[i,j], '.', ',', [rfReplaceAll]); попробовал, ничего не получается

Это как же надо умудриться пробовать, чтобы StringReplace не помог?

@Sky Walker · 09.07.2014, 17:41 **[ТС]**

я его в stringgrid1keypress засунул,ничего не делает(((

Добавлено через 2 минуты
вру,я его на кнопку повесил

@northener · 09.07.2014, 17:45

Сообщение от Sky Walker

я его на кнопку повесил

Оч любопытно как можно его повесить чтоб он ничего не делал?

@Sky Walker · 09.07.2014, 17:47 **[ТС]**

а как бы Вы сделали?
Может я файл скину чтобы понятно было?

@Sky Walker · 09.07.2014, 17:54 **[ТС]**

вот

@northener · 09.07.2014, 18:00

Сообщение от Sky Walker

вот

Значит взял в магазине с полки колбасу, донес её до кассы, оплатил, а к себе в сумку положить забыл?
И знать магазин виноват что сидишь до сих пор сидишь голодный? Или колбаса неправильная?

Не по теме:

Зря папаша Борланд разрешил вызывать функции как процедуры

@mss · 09.07.2014, 20:41

Сообщение от Sky Walker

DateSeparator := '-';

Ты в справке буквы что ли знакомые ищешь ?)

DateSeparator и DecimalSeparator - найди различия)

@Sky Walker · 10.07.2014, 00:33 **[ТС]**

Справку читал, это где про 12,34$ написано,а потом showmessage!
помогите пожалуйста кодом если несложно люди добрые!

@northener · 10.07.2014, 02:01

Сообщение от Sky Walker

помогите пожалуйста кодом

Ладно помогу, но только в одном. Замена точки на запятую во всех ячейках стринггрида.

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var
  i, j : Integer;
begin
  for i:=StringGrid1.FixedCols to StringGrid1.ColCount-1 do
    for j:=StringGrid1.FixedRows to StringGrid1.RowCount-1 do
      StringGrid1.Cells[i,j]:=StringReplace(StringGrid1.Cells[i,j], '.', ',', [rfReplaceAll]);
end;

Не по теме:

P.S.
Интересно чем закончились потуги ТС во вставке картинок в стринггрид/ворд/эксель.

@Sky Walker · 10.07.2014, 10:08 **[ТС]**

northener Спасибо огромное)))
по поводу вставки картинок в Ворд - все получилось,прога работает на ура!)))

Комментарий модератора

Sky Walker, пункт 5.16 Правил: Одна тема - один вопрос

@Sky Walker 0 / 25 / 13 Регистрация: 30.04.2014 Сообщений: 516
	09.07.2014, 17:47 [ТС]	11
	а как бы Вы сделали? Может я файл скину чтобы понятно было? 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,251
	09.07.2014, 18:00	13
	Сообщение от Sky Walker вот Значит взял в магазине с полки колбасу, донес её до кассы, оплатил, а к себе в сумку положить забыл? И знать магазин виноват что сидишь до сих пор сидишь голодный? Или колбаса неправильная? Не по теме: Зря папаша Борланд разрешил вызывать функции как процедуры 0

@Sky Walker 0 / 25 / 13 Регистрация: 30.04.2014 Сообщений: 516
		1
	В Stringgrid точку поменять на запятую 09.07.2014, 16:36. Показов 2799. Ответов 16 Метки нет (Все метки) Всем привет! Подскажите пожалуйста как в Stringgrid точку заменить на запятую. Сделал следующее - в Stringgrid я копировал файл .CSV! Отделителем целой части от дробной является точка! Нужна запятая чтобы провести в дальнейшем простые математические действия. Буду признателен за любую полезную информацию 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	09.07.2014, 16:41	2
	Кури стандартную справку по теме "DecimalSeparator" 0

@Sky Walker 0 / 25 / 13 Регистрация: 30.04.2014 Сообщений: 516
	09.07.2014, 16:45 [ТС]	3
	Я читал по этому поводу,ничего не понял. Не могли бы помочь? 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	09.07.2014, 17:21	5
	Сообщение от Sky Walker вот так пробовал Не вижу в "пробе" никакого упоминания о переменной DecimalSeparator 0

@Sky Walker 0 / 25 / 13 Регистрация: 30.04.2014 Сообщений: 516
	09.07.2014, 17:22 [ТС]	6
	я decimalseparator и не пробовал. не понимаю я его,поэтому прошу помощи 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,251
	09.07.2014, 17:36	8
	Сообщение от Sky Walker и StringReplace(StringGrid1.Cells[i,j], '.', ',', [rfReplaceAll]); попробовал, ничего не получается Это как же надо умудриться пробовать, чтобы StringReplace не помог? 0

@Sky Walker 0 / 25 / 13 Регистрация: 30.04.2014 Сообщений: 516
	09.07.2014, 17:41 [ТС]	9
	я его в stringgrid1keypress засунул,ничего не делает((( Добавлено через 2 минуты вру,я его на кнопку повесил 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,251
	09.07.2014, 17:45	10
	Сообщение от Sky Walker я его на кнопку повесил Оч любопытно как можно его повесить чтоб он ничего не делал? 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	09.07.2014, 20:41	14
	Сообщение от Sky Walker DateSeparator := '-'; Ты в справке буквы что ли знакомые ищешь ?) DateSeparator и DecimalSeparator - найди различия) 0

@Sky Walker 0 / 25 / 13 Регистрация: 30.04.2014 Сообщений: 516
	10.07.2014, 00:33 [ТС]	15
	Справку читал, это где про 12,34$ написано,а потом showmessage! помогите пожалуйста кодом если несложно люди добрые! 0

	10.07.2014, 10:08