Скачать: CL | DM;

Замена строки   Найти похожие ветки 

← →
WhiteGuy ©   (2005-01-26 15:19) [0]

Привет! Прикол вот в чём:
я хочу в edit2.text удалить все буквы П. я делаю так
strreplace(edit2.text,"П","");
Но при обработке прога вылетает... В чём подвох??

---

← →
RA ©   (2005-01-26 15:34) [1]

Делай так:
s:=edit2.text;
strreplace(s,"П","");
edit2.text:=s;

---

← →
WhiteGuy ©   (2005-01-26 15:40) [2]

Да-да! Я так тоже делал! Из-за этого и вылетает, хотя компилируется нармал! И по-моему strreplace - это булев?!

---

← →
BelchonokH   (2005-01-26 15:47) [3]

Вроде так:

While strreplace(s,"П","") do;

---

← →
WhiteGuy ©   (2005-01-26 15:48) [4]

> While strreplace(s,"П","") do;

do чего?? :)

---

← →
sldragon   (2005-01-26 16:10) [5]

Привожу код на паскале аналогичной функции

Function StrRep(s: string; ch: char): String;
Var
i: word;
st: string;
Begin
st:=s;
For i:=1 to length(st) do
 if st[i]=ch then Delete(st,i,1);
StrRep:=st
End;

Все, по идее должно работать.

---

← →
WhiteGuy ©   (2005-01-26 16:14) [6]

Ну спасибо!

---

← →
dimaxx ©   (2005-01-26 21:17) [7]

2 WhiteGuy: Вот именно, что ничего. Просто цикл проверяет заменена ли очередная буква и переходит сам на себя. Как только вернули False - все, букв больше нет.

---

← →
Solik   (2005-01-27 09:01) [8]

у sldragon работать неправильно будет, если сработает delete, то следующая буква встанет на место текущей и она в очередной итерации будет пропущена, нужно так:

i:=1;
while i<=Length(st) do if st[i]=ch then delete(st,i,1) else inc(i);


---

← →
SPeller ©   (2005-01-27 15:11) [9]

А чем вам StrReplace не по душе? Если смущает цикл, то напишите процедурку

procedure MyStrReplace(var Str: string; const SFrom, STo: string);
begin
  while StrReplace(Str, SFrom, STo) do ;
end;

И будет вам счастье.

---

← →
KonstantinXaker(KX)   (2005-06-08 18:18) [10]

Народ! В каком модуле хранится StrReplace?

---

← →
Thaddy   (2005-06-08 20:28) [11]

BelchonokH   (26.01.05 15:47) [ 3 ]

Like thus:

While strreplace(.s, 'P ','') do;

This is the correct answer ;) True!

It simply should not do anything else but replace!

Very good, BelchonokH

---

← →
Thaddy   (2005-06-08 20:30) [12]

BelchonokH   (26.01.05 15:47) [ 3 ]

Like thus:

While strreplace(.s, 'P ','') do;

This is the correct answer ;) True!

It simply should not do anything else but replace!

Very good, BelchonokH

---

← →
VooDoo3d   (2005-07-14 11:13) [13]

Народ!!!Срочняк  надо!!! plz,п омогите из строки "a" заменить подстроку "$$$" на любую другую более длинную подстроку!!!!!

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.025 c