Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как можно заменить ` на 0 
:(
    Опции темы
Des666
Дата 9.1.2007, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



непойму как это можно сделать ведь в делфи ` это начало строки...
Код

s:=StringReplace(s, ???? ,'0',[rfReplaceAll]);

PM MAIL WWW ICQ   Вверх
VICTAR
Дата 9.1.2007, 20:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 37
Всего: 80



Код

procedure TForm1.Button1Click(Sender: TObject);
begin
caption:='''';
end;


Наверное я непонятно выразился:
Код

s:=StringReplace(s, '''' ,'0',[rfReplaceAll]);


Это сообщение отредактировал(а) VICTAR - 9.1.2007, 21:04
PM MAIL   Вверх
VladBD
Дата 9.1.2007, 21:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Код

s:=StringReplace(s, chr(), '0', [rfReplaceAll]);


Это сообщение отредактировал(а) VladBD - 9.1.2007, 21:35
PM MAIL   Вверх
Sunvas
Дата 9.1.2007, 21:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89



Код

s:=StringReplace(s, chr(39) ,'0',[rfReplaceAll]);



--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Winprogrammer
Дата 13.1.2007, 16:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 141
Регистрация: 23.3.2006
Где: ::Россия.РСО-Алан ия.Владикавка

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



Если нужно заменить в строке все ''' на '0' тогда
Код

var
   str:String; //строка в которой нужно заменить
   i:Integer;

begin
 ...
 i:=Pos(''', str);
 while i>0 do
  str[i]:='0';
  i:=Pos(''', str);
 end;
 ...

--------------------
Я не понял Вашего вопроса, но я Вам на него отвечу…-----------
Uploading файлов без гемороя - это просто!!!
Winprogrammer.ifolder.ru
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
aktuba
Дата 14.1.2007, 11:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38



Winprogrammer, а твой код не рабочий  smile  Попробуй угадать почему... Да еще и сложный, для чего? Ведь VICTAR дал самый удобный и правильный код:
Код

s:=StringReplace(s, '''' ,'0',[rfReplaceAll]);


Это сообщение отредактировал(а) aktuba - 14.1.2007, 11:52


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Winprogrammer
Дата 14.1.2007, 19:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 141
Регистрация: 23.3.2006
Где: ::Россия.РСО-Алан ия.Владикавка

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



Цитата(aktuba @ 14.1.2007,  11:51)
Winprogrammer, а твой код не рабочий  smileВедь VICTAR дал самый удобный и правильный код:
Код

s:=StringReplace(s, '''' ,'0',[rfReplaceAll]);

То, что мой сложнее - я не спорю. Но почему он не рабочий?
--------------------
Я не понял Вашего вопроса, но я Вам на него отвечу…-----------
Uploading файлов без гемороя - это просто!!!
Winprogrammer.ifolder.ru
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Nicholas_S
Дата 14.1.2007, 20:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Winprogrammer, я насчитал как минимум 3 ошибки + плюс одна за нерациональность.
Ты проверь сначала.


--------------------
...все в мире относительно
PM   Вверх
Winprogrammer
Дата 14.1.2007, 20:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 141
Регистрация: 23.3.2006
Где: ::Россия.РСО-Алан ия.Владикавка

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



Да ладно: забыл вписать begin. Не критично же. smile Нечто подобное я видел в дельфовом хелпе.
--------------------
Я не понял Вашего вопроса, но я Вам на него отвечу…-----------
Uploading файлов без гемороя - это просто!!!
Winprogrammer.ifolder.ru
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
VICTAR
Дата 14.1.2007, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 37
Всего: 80



Цитата(Winprogrammer @  14.1.2007,  20:37 Найти цитируемый пост)
Да ладно: забыл вписать begin. Не критично же.  Нечто подобное я видел в дельфовом хелпе. 

Совсем никакой разницы smile Неплохой подход...
PM MAIL   Вверх
CatATonik
Дата 15.1.2007, 09:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Тогда уж:

Код

for I := 1 to Length(S)
  if S[I] = '''' then
    S[I] := '0';


PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0926 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.