Форум: "Основная";
Текущий архив: 2005.06.06;
Скачать: [xml.tar.bz2];

Вниз

строку по одной цифре раскидать в массив Integer   Найти похожие ветки 

← →
Cat ©   (2005-05-19 16:42) [0]

Есть строка 5678998893434534. Нужно строку по одной цифре раскидать в массив Integer. Подскажите как сделать.

---

← →
Просто Джо ©   (2005-05-19 16:44) [1]

в таком духе

S := IntToStr(IntVar);
for I := 1 to Length(S) do
 IntArr[I-1] := S[I];

---

← →
Просто Джо ©   (2005-05-19 16:45) [2]

И если массив динамический, то конечно:
SetLength(IntArr, Length(S));

---

← →
Anatoly Podgoretsky ©   (2005-05-19 17:06) [3]

Просто Джо ©   (19.05.05 16:44) [1]
Проверял? Проверь

---

← →
Marser ©   (2005-05-19 17:12) [4]

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
   intar:array of integer;
   i,c:integer;
begin
 s:="11101232323";
 SetLength(intar,length(s));
 for i:=0 to length(s)-1 do
   val(s[i+1],intar[i],c);
end;

---

← →
begin...end ©   (2005-05-19 17:13) [5]

> Cat ©   (19.05.05 16:42)

var
 S: string;
 I, L: Integer;
 Arr: array of Integer;
begin
 S := "5678998893434534";
 L := Length(S);
 SetLength(Arr, L);
 for I := 1 to L do
   if S[I] in ["0".."9"] then
     Arr[I - 1] := Ord(S[I]) - $30
   else
     raise Exception.CreateFmt("Incorrect symbol %s in position %d", [S[I], I])
end.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.06.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.012 c