VPF::stringreplaceall - Форум программистов

Nchanged

Дата 2.3.2006, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Мне нужно заменить '/' на '//'

replace := stringreplaceall(first,'/','\\'); - вот так вот все работает отлично. С любым символом кроме /

Вы, возможно спросите, зачем мне именно этот символ. Дело в том, что мускуль, на котором я пишу базу, никак не хочет принимать \ . Он его просто игнорит. Если ставить два символа, получается то что надо.
Строка должна быть такой:
replace := stringreplaceall(first,'\','\\');

Прошу вашей помощи!

Код


 function StringReplaceAll (text,byt,mot : string ) :string;
var
   plats : integer;
begin
While pos(byt,text) > 0 do
      begin
      plats := pos(byt,text);
      delete (text,plats,length(byt));
      insert (mot,text,plats);
      end;
result := text;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
  i, j, End_Str, n : integer;
  first, replace, new_result: string;
  StrArr : array[1..255] of string;
begin
    first:= edit1.Text;
     replace := stringreplaceall(first,'/','\\');
     if replace <> null then
    begin
      End_Str := Length(replace);
      for j := 1 to End_Str do
      begin
        StrArr[j] := replace[j];
      end;

// Получаем результат

      replace := StrArr[1];
      For j:=2 to End_Str do
      begin
        new_result := new_result + StrArr[j];
        edit2.Text:= new_result;
      end;


end;

end;

Прошу помощи.

Poseidon

Дата 2.3.2006, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Код


StringReplace('твоя строка, где нужно заметить', '/', '//', [rfReplaceAll]);

В твоем случае будет так:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
    edit2.Text := StringReplace(edit1.Text, '/', '//', [rfReplaceAll]);
end;

Это сообщение отредактировал(а) Poseidon - 2.3.2006, 20:04

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Nchanged

Дата 2.3.2006, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

безмерно благодарен! Все работает!

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