| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Help! Нужна помощь со строками! [D6, Win95/98]
Split_ © (2003-02-06 18:30:00)Нужно найти например символьный ряд - ";%№" в строке. Как это сделать?
Shadow (2003-02-06 21:15:00) [1]:rotate:
Романов Р.В. (2003-02-06 21:02:00) [2]Удалено модератором
Примечание: OffTopic
Shadow (2003-02-06 20:30:00) [3]Удалено модератором
Примечание: OffTopic
Hint (2003-02-06 20:27:00) [4]To Shadow
Личная переписка ;o)
Не надо оно мне было, да и зачем? Можно сказать, что добавление ANSIUpperCase будет частным случаем :o)
Романов Р.В. (2003-02-06 19:56:00) [5]Рекурсионный подсчет. Извращение конечно, но в учебных целях пойдет.
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;
Shadow (2003-02-06 19:56:00) [6]2Hint
Только в pos добавь AnsiUpperCase, тогда все вообще красивенько будет %)))
Hint (2003-02-06 19:33:00) [7]to Shadow
Я этот цикл в муках рождал и в нем уверен ;o)
gsu (2003-02-06 19:25:00) [8]Удалено модератором
Примечание: Личная переписка
Shadow (2003-02-06 19:22:00) [9]Сдаюсь %)))
Tor (2003-02-06 19:15:00) [10]НЕ обращайте внимания :-)
tor (2003-02-06 19:14:00) [11]sdasd
ZmeiGorin (2003-02-06 19:12:00) [12]2Shadow: а ты посмотри, всё правильно.
Novice (2003-02-06 19:12:00) [13]2 Shadow © (06.02.03 19:07)
> -1 то зачем????
> Бред
Это для того, чтобы не получилось, как у тебя F("ababcc","abc")=2
Shadow (2003-02-06 19:07:00) [14]Удалено модератором
Примечание: Пеорсональные нападки, с этим в чат
Shadow (2003-02-06 19:05:00) [15]-1 то зачем????
Hint (2003-02-06 19:04:00) [16]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:03:00) [17]2Split_
Ну думаю переделать в ун. функцию не сложно %))
Split_ (2003-02-06 19:03:00) [18]Ни одно благое дело не должно остаться безнаказанным!
Split_ (2003-02-06 19:01:00) [19]Shadow: Извиняться мне незачто, я не грубил. А вот за пример большое спасибо.
Shadow (2003-02-06 18:57:00) [20]
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;
Хоть извинись...
| |
Страницы: 