Надо разложить строку "1,4,6-8,15,22"

← →
i2e (2004-05-24 11:42) [0]

Надо разложить строку такую, как, например, в заголовке по наличию цифр и диапозонов цифр в массив Check[1..50].
Есть цифра -> Check[..] := true;
Лишние символы в строке отфильтрованы, в наличии только цифры, "," и "-".
Кто-нибудь знает что-то уже готовое? А то так лениво это прописывать.. :)

← →
Андрей Сенченко © (2004-05-24 11:56) [1]

Если диапазон однозначно задается символом "-", то особых проблем не должно быть.
1. TstringList.DelimitedText ( по-моему так )
2. Проход по TStringList с поиском диапазонов и разворачиванием их в цикле
3. Запись СтрингЛиста в массив

По-моему так

← →
[lamer]Barmaglot © (2004-05-24 11:57) [2]

поиск на torry.net по слову parse...

http://www.torry.net/quicksearchd.php?String=Parse&Title=Yes

← →
pasha_golub © (2004-05-24 12:54) [3]

Да, е-мое, вы чего издеваетесь искать из-за какой-то ерунды компоненты? Блин, за пять минут пишется. Не сходите с ума

← →
Думкин © (2004-05-24 13:04) [4]

> pasha_golub © (24.05.04 12:54) [3]

%-)
Тут цифры с числами путают, а ты....
не пугай людей.

← →
ega23 © (2004-05-24 13:21) [5]

Стопудово это задание на зачёт какой-нить...

← →
webpauk (2004-05-24 13:28) [6]

1. Найти две соседние запятые
2. Между ними найти "-".
3. Взять число от тире и после тире.
4. Забить соответствующие индексы.

если тире не найдено - забить индекс

← →
i2e (2004-05-24 16:34) [7]

Ребяты, всё. Засим эту ветку давайте завершать.
Для ega32: Это не для зачета, "стопудово". Это ручной ввод данных для выбора параметров статистики.
Было просто лениво это делать, но пришлось. Думал, вдруг есть нечто готовое, чего же зря напрягаться. Иных дел невпроворот.
Пишется - точно, где-то за пять минут. Еще час тестируется на устойчивость от всяких выдумщиков, набирающих всяку дрянь.
Выкладываю, может кому надо будет:

procedure TFiltrsDlg.SetCheck(Filtr: byte); {разложить: 1,2,7-9,12} var N, N1, N2: integer; cmPos, dfPos: integer; cMin, cMax: integer; Str, S1, S2: string; begin // // тут лишнее убрал // Str := Edit1.Text; // // и тут // repeat S1 := Str; cmPos := Pos(",", S1); // найти "," if cmPos <> 0 then Delete(S1, cmPos, Length(S1)); // удалить от "," до конца dfPos := Pos("-", S1); // найти "-" if dfPos <> 0 then begin // строка типа: "N1-N2" S2 := S1; Delete(S1, dfPos, Length(S1)); // удалить конец строки Delete(S2, 1, dfPos); // удалить начало строки N1 := StrToInt(S1); // первое число N2 := StrToInt(S2); // второе число end else begin // строка типа: "N1" N1 := StrToInt(S1); N2 := N1; end; if N1 < cMin then N1 := cMin; if N2 < cMin then N2 := cMin; if N1 > cMax then N1 := cMax; if N2 > cMax then N2 := cMax; for N:= N1 to N2 do begin case Filtr of 0: MainForm.pmCheck[N] := True; 1: MainForm.obCheck[N] := True; end; end; if cmPos <> 0 then Delete(Str, 1, cmPos) // убрать отработанный кусок else Str := ""; until Str = ""; // есть еще ? Str := Edit1.Text; end;

А еще вот полезность, как ограничить набор символов при вводе, допустим, в строку TEdit:

procedure TFiltrsDlg.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ["0".."9", ",", "-", #08]) then Key := #27; {маска ввода} end;

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

← →
Vit@ly © (2004-05-24 16:40) [8]

А в Архангельского
if not (Key in ["0".."9", ",", "-", #08]) then Key := #27; {маска ввода}
или что-то подобное (но не хуже) видимо заглянуть некогда (запарка) :)

← →
pasha_golub © (2004-05-26 15:06) [9]

Думкин © (24.05.04 13:04) [4]

А я про цифры пропустил :-), А действительно. Надо бы статью написать, а то люди - программисты, а математика для них пустой звук.

← →
Sandman25+1 (2004-05-26 15:10) [10]

[4] Думкин © (24.05.04 13:04)

По-моему, тут как раз цифры, а не числа. Строка, состоящая из цифр и некоторых знаков пунктуации.

PS. "В пароле должны быть числа и слова" :)

Надо разложить строку "1,4,6-8,15,22"

i2e (24.05.04 11:42)

Надо разложить строку такую, как, например, в заголовке по наличию цифр и диапозонов цифр

DEF: Цифры - символы, используемые при позиционной записи числа.

Более того, если придираться к словам, то строка состоит из символов в любом случае (string == array of char) ;-)

← →
Sandman25+1 (2004-05-26 15:33) [12]

[11] pasha_golub © (26.05.04 15:19)

"Диапазон цифр" ИМХО имеет два значения:
a) 1-4
b) 153238
То есть в случае b) диапазон цифр эквивалентен понятию "число". Читаем еще раз:
Надо разложить строку такую, как, например, в заголовке по наличию цифр и чисел в массив Check[1..50].

← →
Sandman25+1 (2004-05-26 15:34) [13]

Сдаюсь. :-)))

Надо разложить строку "1,4,6-8,15,22" Найти похожие ветки