Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];
Вниз
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
← →
Tor (2003-02-06 19:15) [25]НЕ обращайте внимания :-)
← →
Shadow (2003-02-06 19:22) [26]Сдаюсь %)))
← →
gsu (2003-02-06 19:25) [27]Удалено модератором
Примечание: Личная переписка
← →
Hint (2003-02-06 19:33) [28]to Shadow
Я этот цикл в муках рождал и в нем уверен ;o)
← →
Shadow (2003-02-06 19:56) [29]2Hint
Только в pos добавь AnsiUpperCase, тогда все вообще красивенько будет %)))
← →
Романов Р.В. (2003-02-06 19:56) [30]Рекурсионный подсчет. Извращение конечно, но в учебных целях пойдет.
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;
← →
Hint (2003-02-06 20:27) [31]To Shadow
Личная переписка ;o)
Не надо оно мне было, да и зачем? Можно сказать, что добавление ANSIUpperCase будет частным случаем :o)
← →
Shadow (2003-02-06 20:30) [32]Удалено модератором
Примечание: OffTopic
← →
Романов Р.В. (2003-02-06 21:02) [33]Удалено модератором
Примечание: OffTopic
← →
Shadow (2003-02-06 21:15) [34]:rotate:
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];
Память: 0.51 MB
Время: 0.009 c
