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

Insert не вставляет символ 0 , странно...   Найти похожие ветки 

← →
Kiril   (2003-06-20 22:34) [0]

[пропущено]
If s[1] in cifra then insert("0",S,1);
[пропущено]

Почему то не работает, обидно...
Может нужно в какие-нибудь символы нолик взять?

---

← →
dataMaster ©   (2003-06-20 23:02) [1]

Что такое cifra?

---

← →
Kiril   (2003-06-20 23:18) [2]

procedure TForm1.Button1Click(Sender: TObject);
type
Mcifra = set of "0".."9";
var i:integer;
s:string;
cifra:Mcifra;
begin
s:=" 5555 5555";
i:=0;
repeat
inc(i);
If S[i]=" " then begin
If (S[i+1] in cifra)and(S[i+3] in cifra)and(S[i+4] in cifra) then
insert("0",S,i+1); end;
until i<>Length(s);
Edit1.Text:=s;
end;

Мужики при этом если так...
If (S[i+1] in cifra)and(S[i+3] in cifra) то ставит перед первыми пятёрками, но и то если в insert не ноль ставить, а любой другой символ...

Отслеживаю значения, всё верно, но почемуто просто не идёт на строку со вставкой...

Это чего глюк что-ли?

---

← →
dataMaster ©   (2003-06-20 23:29) [3]

Я понял, что символ надо вставлять перед каждой группой пятерок. Если это так, то ошибка в завершении цикла. Вместо until i<>Length(s); поставь until i=Length(s);

---

← →
Palladin ©   (2003-06-20 23:34) [4]

ну если задача сводится к замену пробелов нулями

1 Edit1.Text:=StringReplace(s," ","0",[rfReplaceAll]

2 for i:=1 to length(s) do
if s[i]=" " then s[i]:="0";

---

← →
Вася Пупкин ©   (2003-06-20 23:47) [5]

procedure TForm1.Button1Click(Sender: TObject);
type
Mcifra = set of "0".."9";
var i:integer;
s:string;
cifra:Mcifra;
begin


cifra := ["0".."9"];


s:=" 5555 5555";
i:=0;
repeat
inc(i);
If S[i]=" " then
begin
If (S[i+1] in cifra)and(S[i+3] in cifra)and(S[i+4] in cifra) then
insert("0",S,i+1);
end;
until i=Length(s);
Edit1.Text:=s;
end;

---

← →
Evg12   (2003-06-21 02:35) [6]

Вообщето правильней будет всетаки не просто Insert а
System.Insert

---

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

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



Память: 0.46 MB
Время: 0.012 c