| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
не могу обработать одномерный массив введённый в едит. [D7, WinXP]
Mixasnt © (2013-01-07 00:43:00)скажите пожалуйста,как ввести одномерный массив в едит.(нет разделителей) Пример: вводим число в едит 1111,и делаем из него массив 1 1 1 1 ?
Anatoly Podgoretsky (2013-01-07 15:28:00) [1]Ты сам принцип?
Rouse_ (2013-01-07 15:26:00) [2]
> Ega23 © (07.01.13 10:49) [11]
Посзавтра обьясню :)
Ega23 (2013-01-07 15:05:00) [3]
> memo.lines.text := edit.text;
Во-первых, не совсем.
А во-вторых, понятно что строка уже массив, я сам принцип, так сказать...
Jeer (2013-01-07 14:32:00) [4]
> Чего тебе не нравится?
Что ты тратишь клавиатуру и строки:)
memo.lines.text := edit.text;
Ega23 (2013-01-07 10:49:00) [5]
> Я тебя когда нибудь застрелю и я думаю меня оправдают :)
Чего тебе не нравится?
Германн (2013-01-07 03:48:00) [6]Удалено модератором
Rouse_ (2013-01-07 03:39:00) [7]Оть же...
Пока поудаляю оффтоп - потом поговорим.
Германн (2013-01-07 03:28:00) [8]Удалено модератором
Rouse_ (2013-01-07 03:17:00) [9]Удалено модератором
Германн (2013-01-07 03:03:00) [10]Удалено модератором
Rouse_ (2013-01-07 02:28:00) [11]Удалено модератором
Германн (2013-01-07 02:24:00) [12]Удалено модератором
Rouse_ (2013-01-07 02:13:00) [13]
> Ega23 © (07.01.13 01:32) [1]
Я тебя когда нибудь застрелю и я думаю меня оправдают :)
KilkennyCat (2013-01-07 01:57:00) [14]строка уже является одномерным массивом, нет смысла что-либо еще делать
Ega23 (2013-01-07 01:32:00) [15]
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;
| |
