Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как можно заменить ` на 0

Автор: Des666 9.1.2007, 20:38

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

Код


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

Автор: VICTAR 9.1.2007, 20:46

Код


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

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

Код


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

Автор: VladBD 9.1.2007, 21:29

Код


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

Автор: Sunvas 9.1.2007, 21:33

Код


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

Автор: Winprogrammer 13.1.2007, 16:45

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

Код


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

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

Автор: aktuba 14.1.2007, 11:51

Winprogrammer, а твой код не рабочий smile

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

Код


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

Автор: Winprogrammer 14.1.2007, 19:49

Цитата(aktuba @ 14.1.2007, 11:51)

Winprogrammer, а твой код не рабочий smile

Ведь VICTAR дал самый удобный и правильный код:

Код


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

То, что мой сложнее - я не спорю. Но почему он не рабочий?

Автор: Nicholas_S 14.1.2007, 20:09

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

Автор: Winprogrammer 14.1.2007, 20:37

Да ладно: забыл вписать begin. Не критично же. smile

Нечто подобное я видел в дельфовом хелпе.

Автор: VICTAR 14.1.2007, 20:53

Цитата(Winprogrammer @ 14.1.2007, 20:37

)

Да ладно: забыл вписать begin. Не критично же. Нечто подобное я видел в дельфовом хелпе.

Совсем никакой разницы smile

Неплохой подход...

Автор: CatATonik 15.1.2007, 09:39

Тогда уж:

Код


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