Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];

Вниз

Изменение 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]);


 
begin...end ©   (2004-08-12 13:29) [16]

Есть символы перевода строки (#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;


 
GrayFace ©   (2004-08-12 15:31) [18]

Рамиль ©   (12.08.04 12:49) [12]
$&#@!!!

Кто-нибудь знает мат из 4 букв?


 
begin...end ©   (2004-08-12 15:54) [19]


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

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

> $�@!!!

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


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

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.031 c
4-1090241608
Григорьев Антон
2004-07-19 16:53
2004.08.29
Изменение порядка сообщений в очереди


8-1086294454
Дмитрий
2004-06-04 00:27
2004.08.29
Записывающие устройства


14-1091848578
Думкин
2004-08-07 07:16
2004.08.29
С днем рождения! 7 августа


6-1088541682
Daemon
2004-06-30 00:41
2004.08.29
Как узнать кто пингует


4-1090178231
nea
2004-07-18 23:17
2004.08.29
Работа с ком портом





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский