Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.09.22;
Скачать: 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 вся ветка

Текущий архив: 2013.09.22;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.008 c
10-1185369660
Magedon
2007-07-25 17:21
2013.09.22
Access и экспорт


15-1365712202
Юрий
2013-04-12 00:30
2013.09.22
С днем рождения ! 12 апреля 2013 пятница


2-1357841185
Разведка
2013-01-10 22:06
2013.09.22
как определить контрол вызвавший popupmenu


15-1363286070
Bitt
2013-03-14 22:34
2013.09.22
TImage рисование точки


2-1357671425
hansa
2013-01-08 22:57
2013.09.22
Собственник визуальных компонент