Форум: "Основная";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];

Вниз

Поиск символа в строке   Найти похожие ветки 

← →
Evgen77   (2004-02-19 05:41) [0]

Имеется строка SDSFSYST, как с этой строки убрать S
Спасибо!

---

← →
miwa   (2004-02-19 05:47) [1]

>> Поиск символа в строке
и
>> Имеется строка SDSFSYST, как с этой строки убрать S
это разные вещи.

Поиск символа: функции Pos и, начиная с 7 версии, PosEx.
Удалиние символа - процедура Delete.
Ну, а дальше - F1 и читать, читать...

---

← →
Defunct   (2004-02-19 05:49) [2]

Var S,S1 : String;
I : Integer;
...
...
S:="SDSFSYST";

S1 := "";
For I:=1 To Length(S) Do
If S[i]<>"S" Then S1 := S1 + S[i];
...

---

← →
Defunct   (2004-02-19 05:51) [3]

Defunct © (19.02.04 05:49) [2]
В S1 будет строка без символов "S"

---

← →
Evgen77   (2004-02-19 05:56) [4]

Всем спасибо!

---

← →
dr Tr0jan   (2004-02-19 06:50) [5]

2 Defunct © (19.02.04 05:49) [2]:

Или:

Var S : String;
I : Integer;
...
...
S:="SDSFSYST";

For I:=1 To Length(S) Do
If S[i]<>"S" Then Delete(S, i-1, 1);
...

---

← →
Defunct   (2004-02-19 07:01) [6]

dr Tr0jan © (19.02.04 06:50) [5]

Хотите сказать это удаляет символы "S"? этот код вообще непонятно, что делает.

проверил:
S:="SDSFSYST1234567890";
результат:
S = "DFYT24680"

Так мы удаляем символы "S" или просто каждый второй символ?

---

← →
dr Tr0jan   (2004-02-19 08:42) [7]

Упс, извини, попутал. Уже в который раз убеждаюсь, что Не надо лезт ь поперёд батьки в пекло.

program Proga;

var
s: string;
i: integer;

begin
S:="SDSFSYST1234567890";
i:=0;
while i<Length(s) do begin
if s[i]="S" then Delete(s,i,1);
inc(i);
end;
writeln(s);
readln;
end.

---

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

Форум: "Основная";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c