Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.27;
Скачать: CL | DM;

Вниз

помогите пожалуйста разобрать (что-то не работает)   Найти похожие ветки 

 
laser ©   (2003-01-17 15:05) [0]

const str="Помогите пожалуйста разобрать";
var
p1:word;
s1,s2:string;
begin
p1=pos("пожалуйста",str);
if p1 <= 0 then exit;

while(str[p1] <> " ")
begin
s1:=s1+str[p1];
dec(p1);
end
p1:=pos("пожалуйста",str) + length("пожалуйста");

while(str[p1] <> " ")
begin
s2:=s2+str[p1];
inc(p1);
end

Result:
s1 = "п"
s2 = " "

,а должно быть

s1 = "помогите"
s2 = "разобрать"



 
MBo ©   (2003-01-17 15:12) [1]

Сколько раз уже будешь спрашивать?
with TStringList.Create do begin
CommaText:=str;
s1:=Strings[0];
s2:=Strings[2];
Free;
end;


 
Th ©   (2003-01-17 15:13) [2]

я бы сделал так:

const str="Помогите пожалуйста разобрать";
var buf: string;
p1: integer;
begin
buf:=str;
p1=pos("пожалуйста",buf);
if p1 <= 0 then exit;

delete(buf,p1,length("пожалуйста"));
s1:=copy(buf,1,p1-1);
s2:=copy(buf,p1,length(buf)-p1+1);

Что касается твоего кода, то корректно было бы условия циклов такими сделать:
while p1>0
и
while p1<=length(str)
end;


 
Skier ©   (2003-01-17 15:14) [3]

const
str="Помогите пожалуйста разобрать";
StrToCheck = "пожалуйста";
var
ADstStr : String;
begin
ADstStr := StringReplace(str, StrToCheck, "", []);
ShowMessage(ADstStr);
end;


 
Игорь Шевченко ©   (2003-01-17 15:20) [4]

В школу!
Абсолютно ошибочный код!


 
Игорь Шевченко ©   (2003-01-17 15:22) [5]

Имеется в виду, естественно, код в вопросе :-)



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

Текущий архив: 2003.01.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
14-87095
ZG
2003-01-03 02:48
2003.01.27
хочу под локальную сеть чего-нибудь написать, но не знаю с чего


3-86673
Kurt_
2003-01-08 13:06
2003.01.27
Вопрос по DBComboBox-у! проблема в следующем: когда быстро переме


1-86840
Song
2003-01-19 14:22
2003.01.27
Чей-то я туплю... Скажите как сплиттер приладить.


14-87121
Вадим
2003-01-08 23:28
2003.01.27
а можно?


1-86910
Андрусь
2003-01-16 12:49
2003.01.27
Как уникально иденцифицировать систему на машине.