Разбиение строки по значениям

[artemavd]

Добрый вечер! Нужна помощь в вопросе связанным по разбиению строки на части. Например, имеется строка 01D180810C361736A03777830. Нужно выполнить разбиение этой строки на составляющие, т.е. должно получиться примерно следующее:
Label1.Caption:=01;
Label2.Caption:=180810;
Label3.Caption:=361736;
Label4.Caption:=377783;
Нули после "С" и "А" должны быть отброшены. С помощью какой функции можно выполнить все это? Прошу подсказать. Заранее спасибо.

[Stilet]

Ну если строка четко разбивается по группам символов то:

type
 okak=record
  q:array[1..2] of char;  d:char;
  w:array[1..6] of char;  d1,d2:char;
  e:array[1..6] of char;  d3,d4:char;
  r:array[1..6] of char;  d5,d6:char;
 end;
var s:string;t:okak;
begin
 s:='01D180810C0361736A03777830';
 move(s[1],t,sizeof(t));
Label1.Caption:=t.q;
Label2.Caption:=t.w;
Label3.Caption:=t.e;
Label4.Caption:=t.r;
end;

[Dimasw]

Эту функцию надо написать самому с помощью таких функций как pos, length, copy

[artemavd]

Виталий, а если между "С" и "А" будет количество чисел разное? Может быть 5, может быть 6.

[Marsel737]

Как отбросить нули думаю догадаешся

var
  CurLines: string;
  I, CurIndex: Integer;
  arStrings: array [1 .. 4] of string;
begin
  CurIndex := 0;
  CurLines := '01D180810C361736A03777830';
  for I := 0 to Length(CurLines) - 1 do
  begin
    if CurLines[I] in ['0' .. '9'] then
      arStrings[CurIndex] := arStrings[CurIndex] + CurLines[I]
    else
      Inc(CurIndex);
  end;
  ShowMessage(arStrings[1] + '|' + arStrings[2] + '|' + arStrings[3] + '|' +
    arStrings[4]);
end;

[artemavd]

Marsel737, не работает. Выдается ошибка, что "Range check error"

[Sibedir]

В строках нумерация символов с 1

  for I := 1 to Length(CurLines) do

[Stilet]

а если

А вот тогда нужно задание уточнять.
И уточнять как можно точнее.