Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Использование edit1

Страницы: 1 2 3 >
rusmus © (2012-01-26 10:28:00)
Здравствуйте!
Проблема. Никак не могу сделать так чтобы в цикле через Edit1 вводит числа. Компонента должна ждать ввода. Не получается.

for i:=1 to n do
begin
edit1.SetFocus;
a[i]:=strToInt(edit2.text);
symma:=symma+1/a[i];
end;

Пишет ошибку деление на ноль.

MsGuns (2012-01-26 13:26:00) [1]
Вот он разберется с вопросом по Edit1 и у него возникнет вопрос по Edit2 :)

Медвежонок Пятачок (2012-01-26 13:02:00) [2]
>Использование edit1

> Считаю, что TMemo использовать не удобно

Я считаю, что edit1 использовать неудобно.
Надо использовать edit123

Inovet (2012-01-26 12:31:00) [3]
> [35] rusmus © (26.01.12 11:50)
> Считаю, что TMemo использовать не удобно

Это почему же? Лучше при ошибке в одном номинале заново вводить 100500 значений?
> а без сложностей жизнь не интересна

OW (2012-01-26 12:26:00) [4]
да чего тут :)

> просто замени васиковые команды ожидания/ввода на InputBox()

и правда, аля вот так
Vl: string;
i, N, s: integer;
a: array of integer;
begin
if InputQuery('Вводим общее кол-во резисторов', 'число', Vl) then
N := StrToInt(Vl);
SetLength(a, N);
s := 0;
for i := 0 to N - 1 do
begin
if InputQuery('Вводим резистор N' + IntToStr(i + 1), 'число', Vl) then
a[i] := StrToInt(Vl);
s := s + a[i];
end;
ShowMessage( 'Итого ' + IntToStr(s) );
end;

Плохиш (2012-01-26 12:13:00) [5]

> rusmus © (26.01.12 11:52) [36]
>
> Уже неделю самостоятельно, решил вам преподнести

Программиста найми.

Ega23 (2012-01-26 12:04:00) [6]

> Считаю, что TMemo использовать не удобно

Пристыженно умолкаю.

rusmus (2012-01-26 11:52:00) [7]
Уже неделю самостоятельно, решил вам преподнести

rusmus (2012-01-26 11:50:00) [8]
Всё, что нужно, это TMemo для ввода данных и определения размерности массива, TButton для рассчёта, TLabel для вывода результата и TForm, дабы всё это связать воедино.

Считаю, что TMemo использовать не удобно

Ega23 (2012-01-26 11:49:00) [9]

> а без сложностей жизнь не интересна

Это если их самостоятельно преодолевать. :)

rusmus (2012-01-26 11:48:00) [10]
Ну так и не усложняй себе жизнь -

Нет хочу что бы было визуально, а без сложностей жизнь не интересна

Сергей М. (2012-01-26 11:48:00) [11]

> древний уже давно не используют

Это как посмотреть..
Кому и кобыла невеста)

Ega23 (2012-01-26 11:48:00) [12]

> тут просто колега подошел и ему надо на дельфи

http://lurkmore.to/%D0%A3_%D0%BC%D0%BE%D0%B5%D0%B9_%D0%BF%D0%BE%D0%B4%D1%80%D1%83%D0%B3%D0%B8

Ega23 (2012-01-26 11:46:00) [13]
function Foo(Strings: TStrings): Extended; var i: Integer; begin Result := 0; for i := 0 to Strings.Count - 1 do Result := Result + 1/StrToFloat(Strings[i]); end;

rusmus (2012-01-26 11:46:00) [14]
Видимо к нему с луны нахаляву свалился готовый код на древнем Васике

Да нет, древний уже давно не используют, тут просто колега подошел и ему надо на дельфи

Сергей М. (2012-01-26 11:43:00) [15]

> basic старенький

Ну так и не усложняй себе жизнь - просто замени васиковые команды ожидания/ввода на InputBox()

Ega23 (2012-01-26 11:42:00) [16]
Всё, что нужно, это TMemo для ввода данных и определения размерности массива, TButton для рассчёта, TLabel для вывода результата и TForm, дабы всё это связать воедино.

Сергей М. (2012-01-26 11:41:00) [17]

> зачем такие извращения с вводом делать?

Видимо к нему с луны нахаляву свалился готовый код на древнем Васике, а препод требует на Делфи, с формочками, кнопочками и пр. рюшечками)

rusmus (2012-01-26 11:41:00) [18]
Да, basic старенький.

Общее число сопротивлений - это для конечного параметра цикла, затем вводим каждое значение отдельно.

Inovet (2012-01-26 11:38:00) [19]
> [20] rusmus © (26.01.12 11:29)
> Необходимо ввести общее число сопротивлений. Затем вычислить
> общее число сопротивлений для параллельно соединеных проводников.

Ну и зачем такие извращения с вводом делать? Задание не понятно, но вводи "общее число сопротивлений", нажимай на кнопку "Расчитать", выводи результат.

Сергей М. (2012-01-26 11:37:00) [20]

> хотел с basic

с невизуального что ли ?

Страницы: 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »