Ну просто очень нужно помощь

[Doget]

такая задача : приходит строка тип string (;10;13;54;62;486;884;21;556;4)
надо значения этой строки загрузить в переменные, т.е. a:= 10, b:=13
что то не разберусь ни как , а надо срочно! буду премного благодарен.

[SERG1980]

Самый простой способ перебирай в цикле строку если итый элемент не ; то добавляй его в другую переменную если ; то преобразовывай спомощью strtoint и присваивай своим переменным а b и т.д
или или с помощью pos copy delete

[puporev]

Если написано так как написано можно сделать что-то такое. Программа работает но если что-то в строке менять, то и код надо ремонтировать.
Я оставил числа в строковом массиве, т.к. не понял какой окончательный вывод тебе нужен. Можно оставить так, можно перекинуть в числовой массив, можно в символьный массив, если нужно а=10;b=20; и т.д.

uses crt;
var s:string;
    i,j:integer;
    a:array[1..100]of string;
    b:array[1..100]of integer;
begin
clrscr;
s:=';10;13;54;62;486;884;21;556;4';
j:=0;
for i:=1 to length(s) do
begin
if s[i]=';'then
    begin
     j:=j+1
    end
else a[j]:=a[j]+copy(s,i,1);
end;
for i:=1 to j do
write(a[i],' ');
readln
end.

[Killer_djon]

Я думаю проще можно зделать следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
var l : TStrings;
i : integer;
s: string;
begin
s:=edit1.Text;
l:=TStringList.Create;
s:=StringReplace(s, ';', #13#10, [rfReplaceAll]); // заменяем разделитель ; на символ переноса строки
l.Text:=s;
listbox1.Items.AddStrings(l);
end;

[Killer_djon]

правда я все вставил в listbox а тебе нужно создать масив например
a : array[0..10] of integer; и в него поочеродно запихивать полученные значения. Компилировал сам так что код рабочий

[puporev]

Автор хоть бы раскрыл секрет, на каком языке он творит.