Help! Нужна помощь со строками!

← →
Split_ (2003-02-06 18:30) [0]

Нужно найти например символьный ряд - ";%№" в строке. Как это сделать?

← →
Shadow © (2003-02-06 18:34) [1]

Удалено модератором
Примечание: Давай без мата выражать свое негодование

← →
Романов Р.В. © (2003-02-06 18:36) [2]

F1 - Pos

← →
Shadow © (2003-02-06 18:40) [3]

Удалено модератором
Примечание: Личная переписка, Романов сам решит

← →
Романов Р.В. © (2003-02-06 18:41) [4]

Удалено модератором
Примечание: Личная переписка

← →
Shadow © (2003-02-06 18:42) [5]

Удалено модератором
Примечание: Личная переписка

← →
Романов Р.В. © (2003-02-06 18:44) [6]

Удалено модератором
Примечание: Личная переписка

← →
Split_ (2003-02-06 18:44) [7]

Удалено модератором
Примечание: Без мата давай

← →
Романов Р.В. © (2003-02-06 18:46) [8]

Ну дак это... в цикле

← →
Shadow © (2003-02-06 18:47) [9]

Удалено модератором
Примечание: Без мата давай

← →
Романов Р.В. © (2003-02-06 18:49) [10]

Удалено модератором
Примечание: Личная переписка

← →
Split_ (2003-02-06 18:50) [11]

А ну-ка все быстро мне ответили!

← →
Split_ (2003-02-06 18:50) [12]

Удалено модератором
Примечание: Личная переписка

← →
Shadow © (2003-02-06 18:51) [13]

2Романов Р.В.
Не знаю, может быть... Но ТАКИЕ вопросы меня убивают... Вот я и сопротивляюсь %)))

← →
Hint © (2003-02-06 18:54) [14]

To Split_
> А ну-ка все быстро мне ответили!
А хамить не надо, хоть бы смайлик подставил!
Между прочем тебе все ответили:

>Романов Р.В. © (06.02.03 18:36)
>F1 - Pos
...
>Романов Р.В. © (06.02.03 18:46)
>Ну дак это... в цикле
ИТОГО:
делать pos в цикле.

← →
Shadow © (2003-02-06 18:57) [15]

procedure TForm1.Button1Click(Sender: TObject); var inStr, fnStr, dist: string; C,i: integer; begin C:=0; inStr:="IRE"; fnStr:="sdfdsf IRE dfgdf iredfgd gdiredfg"; dist:=fnStr; for i:=1 to length(fnStr) do begin if pos(AnsiUpperCase(inStr), AnsiUpperCase(dist))>0 then begin inc(C); delete(dist, pos(AnsiUpperCase(inStr), AnsiUpperCase(dist)), length(inStr)); end else Break; end; ShowMessage(IntToStr(C)); end;
Хоть извинись...

← →
Split_ (2003-02-06 19:01) [16]

Shadow: Извиняться мне незачто, я не грубил. А вот за пример большое спасибо.

← →
Split_ (2003-02-06 19:03) [17]

Ни одно благое дело не должно остаться безнаказанным!

← →
Shadow © (2003-02-06 19:03) [18]

2Split_
Ну думаю переделать в ун. функцию не сложно %))

← →
Hint © (2003-02-06 19:04) [19]

function CountPos(substr, str: string) : integer;
begin
result:=0;
while Pos(substr, str) <> 0 do begin
inc(result);
delete(str, 1, Pos(substr, str)+Length(substr)-1);
end;

end;

← →
Shadow © (2003-02-06 19:05) [20]

-1 то зачем????

← →
Shadow © (2003-02-06 19:07) [21]

Удалено модератором
Примечание: Пеорсональные нападки, с этим в чат

← →
Novice © (2003-02-06 19:12) [22]

2 Shadow © (06.02.03 19:07)
> -1 то зачем????
> Бред

Это для того, чтобы не получилось, как у тебя F("ababcc","abc")=2

← →
ZmeiGorin © (2003-02-06 19:12) [23]

2Shadow: а ты посмотри, всё правильно.

← →
tor © (2003-02-06 19:14) [24]

sdasd

НЕ обращайте внимания :-)

Сдаюсь %)))

Удалено модератором
Примечание: Личная переписка

to Shadow
Я этот цикл в муках рождал и в нем уверен ;o)

2Hint
Только в pos добавь AnsiUpperCase, тогда все вообще красивенько будет %)))

Рекурсионный подсчет. Извращение конечно, но в учебных целях пойдет.

function RecuseCalcSubstring(const Str, SubStr: string): Integer;
var
i: Integer;
begin
Result := 0;
i := Pos(SubStr, Str);
if i <> 0 then
begin
Inc(Result);
Result := Result + RecuseCalcSubstring(copy(Str, i + Length(SubStr), MaxInt), SubStr);
end;
end;

To Shadow
Личная переписка ;o)
Не надо оно мне было, да и зачем? Можно сказать, что добавление ANSIUpperCase будет частным случаем :o)

Удалено модератором
Примечание: OffTopic

:rotate:

Help! Нужна помощь со строками! Найти похожие ветки