Форум: "Начинающим";
Текущий архив: 2013.09.22;
Скачать: [xml.tar.bz2];
Внизне могу обработать одномерный массив введённый в едит. Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.002 c