[mobac]

Сообщение от Страдалецъ

Ну это не сложно, можно конечно ручками распарсисть строку по пробелам, но есть проще вариант - использовать класс TStringList

Код:

Var
  SL: TStringList;
  i: Integer;
  Result: LongWord;
begin
SL := TStringList.Create;
SL.Delimiter := #32;
SL.DelimitedText := 'AAA AAA AAA CAA';
for i := 0 to SL.Count - 1
do begin
    TryBaseXToUInt(SL.Strings[i],8,Result);
    ShowMessage(IntToStr(Result));
    end;
end;

:C Incompatible types 'String' and 'Integer'