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";

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

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