Разделение строки на подстроки

@BuddyQ · Регистрация: 25.07.2011

Author24 — интернет-сервис помощи студентам

Есть строка вида 'А=5,Б=3,В=1,Г=2,Д=0'. Надо разделить на подстроки, разделитель - запятая. Результат надо поместить в массив, например, a[1]='А=5',a[2]='Б=3' и т.д. Помогите, кто может, потому что сам я в Delphi еще только начинаю программировать

26.07.2011, 02:36

Используй свойство DelimitedText класса TStrings. Что-то в таком роде:

Код

var
  Lst: TStrings;
  I: Integer;
begin
  Lst := TStringList.Create;
  try
    Lst.Delimiter := ','
    Lst.DelimitedText := '?=5,?=3,?=1,?=2,?=0'
    for I := 0 to Lst.Count-1 do
      ShowMessage(Lst[I])
  finally
    Lst.Free;
  end;
end;

@BuddyQ 0 / 0 / 0 Регистрация: 25.07.2011 Сообщений: 4
		1
	Разделение строки на подстроки 25.07.2011, 21:34. Показов 2166. Ответов 1 Метки нет (Все метки) Есть строка вида 'А=5,Б=3,В=1,Г=2,Д=0'. Надо разделить на подстроки, разделитель - запятая. Результат надо поместить в массив, например, a[1]='А=5',a[2]='Б=3' и т.д. Помогите, кто может, потому что сам я в Delphi еще только начинаю программировать 0

	26.07.2011, 02:36