Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.09 c