Изменение StringGrid

← →
Марат (2004-08-12 09:21) [0]

Здравстуйте, мастера. Вопрос такой. Можно ли в StringGrid с одним столбцом изменить символ на другой символ, например "," на ";"?

← →
KADAN © (2004-08-12 09:29) [1]

AnsiReplaceText(Stringgrind[i,j],",",";")

← →
Anatoly Podgoretsky © (2004-08-12 09:33) [2]

В StringGrid хранятся только строки, поэтому можно.

← →
Марат (2004-08-12 12:10) [3]

Ругается Undeclared identifier "AnsiReplaceText"

← →
begin...end © (2004-08-12 12:12) [4]

> [3] Марат (12.08.04 12:10)

uses StrUtils;

← →
Марат (2004-08-12 12:17) [5]

Ругается File not found "StrUtils.dcu"

← →
begin...end © (2004-08-12 12:22) [6]

Хм... Видимо, в Delphi 5 нету этого. StringReplace не подойдёт?

← →
Марат (2004-08-12 12:39) [7]

Ругается Class does not have a default property

← →
Марат (2004-08-12 12:45) [8]

Вру.
StringReplace(SG.Cells[0,i],",",";");
Ругается Not enough actual parameters

← →
begin...end © (2004-08-12 12:46) [9]

> [7] Марат (12.08.04 12:39)

А... Ну так надо писать не StringGrid[I, J], а StringGrid.Cells[I, J]

← →
begin...end © (2004-08-12 12:48) [10]

> [8] Марат (12.08.04 12:45)

> StringReplace(SG.Cells[0,i],",",";");

StringReplace(SG.Cells[0,i], ",", ";", [rfReplaceAll]

P.S. Описание StringReplace посмотри.

← →
Марат (2004-08-12 12:49) [11]

Ну так все одно ругается.

← →
Рамиль © (2004-08-12 12:49) [12]

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
$&#@!!!

← →
Рамиль © (2004-08-12 12:54) [13]

> Ну так все одно ругается.

Скобку поставь, не будет ругаться.
StringReplace(StringGrid1.Cells[1,1], ",", ";", [rfReplaceAll]);

← →
Марат (2004-08-12 13:00) [14]

Классно! Но в догонку есть еще вопрос. А если есть символ нажатие Enter, то как тогда будет выглядеть этот оператор?

← →
Марат (2004-08-12 13:27) [15]

Может неправильно задал вопрос. Попробую по-другому. Как будет выглядеть оператор замены нажатия Enter на, например,"*"
StringReplace(StringGrid1.Cells[1,1], ??Enter??, "*", [rfReplaceAll]);

Есть символы перевода строки (#10) и возврата каретки (#13).
только откуда они могут появиться в StringGrid"е - там же обычно однострочные ячейки, как я понимаю?

← →
Марат (2004-08-12 14:14) [17]

Попробую объяснить. В моей задаче проходят заявления клиентов. Этапов прохождения может быть много и на каждый из них есть примечание которое из Memo-поля пишется в базу. Моя задача заключается в следующем при поиске того или иного заявления я должен собрать все эти примечания в одну кучу и закинуть в Excel. Делаю я это через *.csv. И т.к. народ у нас разный, то при преобразовании в Excel появляется вместо одной строчки 2 и более из-за ";" и примечание, которое должно быть в одной ячейке разрывается на 2 и более из-за "," и еще выяснилось что и из-за #10,#13 тоже происходит перенос на следующую строку. Я вот сейчас попробовал данный алгоритм, но у меня почему-то не получилось, хотя на транскрипцую никаких жалоб.
for i:=0 to SG_Note.RowCount-1 do
begin
StringReplace(SG_Note.Cells[0,i],",","_",[rfReplaceAll]);
StringReplace(SG_Note.Cells[0,i],";","_",[rfReplaceAll]);
StringReplace(SG_Note.Cells[0,i],#10,"_",[rfReplaceAll]);
StringReplace(SG_Note.Cells[0,i],#13,"_",[rfReplaceAll]);
StringReplace(SG_Note.Cells[0,i],#9,"_",[rfReplaceAll]);
end;

> [18] GrayFace © (12.08.04 15:31)

http://sunny.aha.ru/~vinsk/dic.htm
Действительно, нету почти.

> $�@!!!

А может, восклицательные знаки тут тоже... того...

← →
Марат (2004-08-12 16:05) [20]

Я конечно понимаю, что метод с сохранением в *.csv не самый лучший, но через F1Book в сетевой версии ничего не получилось может быть кто и помнит тот вопрос. Через OLE-объект получилось плохо потому что проект изменяется почти каждый день, и каждый раз ковырять его нет сил. Поэтому был выбран на мой взгляд самый простой способ.

Изменение StringGrid Найти похожие ветки