Скачать: CL | DM;

не могу обработать одномерный массив введённый в едит.   Найти похожие ветки 

← →
Mixasnt ©   (2013-01-07 00:43) [0]

скажите пожалуйста,как ввести одномерный массив в едит.(нет разделителей) Пример: вводим число в едит 1111,и делаем из него массив 1 1 1 1 ?

---

← →
Ega23 ©   (2013-01-07 01:32) [1]

var
 arr: array of Integer;
 i: Integer;
begin
 SetLength(arr, Length(Edit1.Text));
 for i := 0 to Length(Edit1.Text) - 1 do
  arr[i] := StrToInt(Edit1.Text[i + 1]);

 Memo1.Clear;
 for i := 0 to Length(arr) - 1 do
   Memo1.Lines.Add(IntToStr(arr[i]));
end;

---

← →
KilkennyCat ©   (2013-01-07 01:57) [2]

строка уже является одномерным массивом, нет смысла что-либо еще делать

---

← →
Rouse_ ©   (2013-01-07 02:13) [3]

> Ega23 ©   (07.01.13 01:32) [1]

Я тебя когда нибудь застрелю и я думаю меня оправдают :)

---

← →
Германн ©   (2013-01-07 02:24) [4]

Удалено модератором

---

← →
Rouse_ ©   (2013-01-07 02:28) [5]

Удалено модератором

---

← →
Германн ©   (2013-01-07 03:03) [6]

Удалено модератором

---

← →
Rouse_ ©   (2013-01-07 03:17) [7]

Удалено модератором

---

← →
Германн ©   (2013-01-07 03:28) [8]

Удалено модератором

---

← →
Rouse_ ©   (2013-01-07 03:39) [9]

Оть же...
Пока поудаляю оффтоп - потом поговорим.

---

← →
Германн ©   (2013-01-07 03:48) [10]

Удалено модератором

---

← →
Ega23 ©   (2013-01-07 10:49) [11]

> Я тебя когда нибудь застрелю и я думаю меня оправдают :)

Чего тебе не нравится?

---

← →
Jeer ©   (2013-01-07 14:32) [12]

> Чего тебе не нравится?


Что ты тратишь клавиатуру и строки:)
memo.lines.text := edit.text;

---

← →
Ega23 ©   (2013-01-07 15:05) [13]

> memo.lines.text := edit.text;

Во-первых, не совсем.
А во-вторых, понятно что строка уже массив, я сам принцип, так сказать...

---

← →
Rouse_ ©   (2013-01-07 15:26) [14]

> Ega23 ©   (07.01.13 10:49) [11]

Посзавтра обьясню :)

---

← →
Anatoly Podgoretsky ©   (2013-01-07 15:28) [15]

Ты сам принцип?

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.003 c