| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

помогите пожалуйста разобрать (что-то не работает) [D6, WinXP]

laser ©   (2003-01-15 23:30:00) 

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 = "разобрать"

---

Думкин   (2003-01-16 08:29:00) [1]

> gek © (16.01.03 07:58)
> Ну а если слов стоящие по бокам неизвестны и строка состоит
> из n-го количества слов?

И там можно - надо указать какие функции он может юзать.
1. Можно составить список всех слов используя Copy,Pos,Delete. 2. Если разделители разные, то можно прпойтись как и описано и опять же составить список.
3. Если можно юзать TStringList - то там проще, если разделитель один.

---

gek   (2003-01-16 07:58:00) [2]

Нет парень идет в верном направлении
можно конечно и так

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


Ну а если слов стоящие по бокам неизвестны и строка состоит из n-го количества слов?

в качестве примера чуть подправим


p1:=pos("пожалуйста",str) + length("пожалуйста")+1;

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

p1:=pos("пожалуйста",str)-1;
if p1 <= 0 then exit;

while(str[p1] <> "")do
begin
s1:=str[p1] + s1;
dec(p1);
end


Думаю принцип понятен

---

OlDemon   (2003-01-16 07:28:00) [3]

Ура я понял что не работает - твой голова!!! :)))

---

OlDemon   (2003-01-16 07:27:00) [4]

тебя кто так учил?
1. Код при компиляции выдал 3! ошибки
2. s1 никогда не будет равен "помогите" поймешь почему?
3. Здаешь функцию copy? С ней твой код уложится в 2 строчки.
4. и т.д.

---

OlDemon   (2003-01-16 07:22:00) [5]

не я просто $#%%# от такого кода

---

MXA   (2003-01-16 00:17:00) [6]

:) а на каком это языке вообще?
понажимай F7 да Ctrl+F7 - через минуту сам все поймеш!!!

---

Наверх