Главная страница
    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.193 c
14-1091790129
Kurtevich
2004-08-06 15:02
2004.08.29
Каюсь, каюсь, каюсь-юсь... :(


11-1080062398
nester
2004-03-23 20:19
2004.08.29
Как в КОЛ определить существует ли экземпляр объекта?


3-1091451475
Andy
2004-08-02 16:57
2004.08.29
Update в ADO


11-1079788821
Stargazer
2004-03-20 16:20
2004.08.29
Таймер под WinXP


14-1092207513
BillyJeans
2004-08-11 10:58
2004.08.29
Размер переменной типа Boolean, кто знает?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский