Разделить строку по разделителю

Категория: Delphi/Pascal

2011-08-22 23:22:42

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

code: #delphi

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;

Поделиться:

Sample Code

категории

Разделить строку по разделителю

Похожие статьи: