Выборка из строки

[aimk0]

Всем привет!
Есть строка с размерами, например 100х200х300, разделитель - русская буква 'х'. Надо присвоить каждой переменной свой размер, т.е. a:=100, b:=200, c:=300;
Пробовал делать так

l:=length(str);
for i:=1 to l do 
 begin
   if str[i]<>'x' then a:=a+str[i];
   if str[i]='x' then continue;
 end;

В общем не пойму, как сделать так, чтобы после того как найден разделитель, следующее число уже записывалось в переменную b, а третье в переменную с.

[Utkin]

Ну можно поискать первую позицию х. В вашем случае это будет 4. Затем скопировать 3 символа из оригинала в переменную. Затем отрезать от оригинала 4 символа. Итак до тех пор пока символы не кончатся, либо пока находится символ х.

[MadReason]

procedure TForm1.Button1Click(Sender: TObject);
var
  st:TStringList;
  i:Byte;
begin
  st := TStringList.Create;
  st.Delimiter:='x';
  st.DelimitedText:='100x200x300';
  for i:=0 to st.Count-1 do
    Memo1.Lines.Add(st[i]);
end;

в delphi например можно так. причем будет не важно сколько параметров в строке, главное чтоб разделялись иксом.

а в вашем случае из строки просто удалятся иксы.

[MadReason]

procedure TForm1.Button2Click(Sender: TObject);
var
i,k:Byte;
str,a:string;
m:array[1..3]of string;
begin
str:='100x200x300';
k:=1;
a:='';
for i:=1 to length(str) do
 begin
   if str[i]<>'x' then a:=a+str[i]
   else
   begin
   m[k]:=a;
   Inc(k);
   a:='';
   end;
 end;
 m[k]:=a;

 {вывод для проверки}
 for i:=1 to 3 do
 Memo1.Lines.Add(m[i]);
end;

а вот ваш видоизмененный метод.
переменные занесутся в массив m[]

[aimk0]

Большое спасибо, все отлично работает!