VPF::диапазон значений (строка) в TStrings

JS2

Дата 8.4.2009, 11:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 25.3.2009

Репутация: нет
Всего: нет

планирую написать функцию которая будет преобразовывать входную строку вида '1-6, 8, 11-14' в список TStrings (в данном случае список должен иметь такой вид:

Код

).

Какой наиболее оптимальный вариан реализации посоветуете?

uranpro

Дата 8.4.2009, 11:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1

JS2, так-так =)
ня:

Код


procedure ToSL(Nums:string; OutSL:TStringList);
var
  i,j:integer;
  SL1,SL2:TStringList;
begin
  try
    SL1:=TStringList.Create;
    try
      SL2:=TStringList.Create;
      ExtractStrings([','], [' '], PChar(Nums), SL1);
      for i:=0 to SL1.Count-1 do begin
        ExtractStrings(['-'], [' '], PChar(SL1.Strings[i]), SL2);
        if SL2.Count>1 then begin
          for j:=strtoint(SL2.Strings[0]) to strtoint(SL2.Strings[1]) do
            OutSL.Add(inttostr(j));
          end
        else
          OutSL.Add(SL2.Strings[0]);
        end;
    finally
      SL2.Free;
      end;
  finally
    SL1.Free;
    end;
end;

--------------------

I want a perfect soul

JS2

Дата 8.4.2009, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 25.3.2009

Репутация: нет
Всего: нет

Че-то не работает. Трижды повторяется диапазон до 1-й запятой:

Код


procedure ToSL(Nums:string; OutSL:TStringList);
  var
    i, j: integer;
    SL1, SL2:TStringList;
  begin
    try
      SL1 := TStringList.Create;
      try
        SL2 := TStringList.Create;
        ExtractStrings([','], [' '], PChar(Nums), SL1);
        for i := 0 to SL1.Count-1 do begin
          ExtractStrings(['-'], [' '], PChar(SL1.Strings[i]), SL2);
          if SL2.Count > 1 then begin
            for j := strtoint(SL2.Strings[0]) to strtoint(SL2.Strings[1]) do
              OutSL.Add(inttostr(j));
            end
          else
            OutSL.Add(SL2.Strings[0]);
          end;
      finally
        SL2.Free;
      end;
    finally
      SL1.Free;
    end;
end;

var
  lst: TStringList;
begin
  lst := TStringList.Create;
  try
    ToSL('1-6, 8, 11-14', lst);
    ShowMessage(lst.Text);
  finally
    lst.Free;
  end;
end;

uranpro

Дата 8.4.2009, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1

JS2, я не проверял его) это идея, ты немного поправь код.
вот тут посмотри

Код


ExtractStrings(['-'], [' '], PChar(SL1.Strings[i]), SL2);

--------------------

I want a perfect soul

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »