Данные в Edit - Общие вопросы Delphi

program123 · 08.05.2009, 18:01

Здравствуйте. Подскажите идею как можно организовать следующее:
есть Edit вводим в него допустим 12345 , по нажатию на кнопку должно проиходить вычисление например суммы 1+2+3+4+5. Непонятно следующее: как именно считывать каждый символ как отдельный, заранее спасибо

Levsha100 · 08.05.2009, 18:04

Код:

a:=Edit1.Text[i];

Код:

sum:=0;
for i:=1 to Length(Edit1.Text) do
  sum:=sum+Edit1.Text[i];

Neeter · 08.05.2009, 18:07

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 sum: integer;
begin
 for i := 1 to Length(Edit1.Text) do    //В строках нумеровка с единицы
  sum := sum + StrToInt(Edit1.Text[i]);

 Edit2.Text := IntToStr(sum);
end;

Вверху немного неправильно

Levsha100 · 08.05.2009, 18:09

До чего нас довели учебники, даже имена переменных одинаковые

P.S. Проглядел о_О

Neeter · 08.05.2009, 18:10

Да уж, автоматически все вводим

program123 · 08.05.2009, 18:12

Спасибо)))

08.05.2009, 18:01	#1
program123 Подтвердите свой е-майл Регистрация: 12.02.2009 Сообщений: 144	Данные в Edit Здравствуйте. Подскажите идею как можно организовать следующее: есть Edit вводим в него допустим 12345 , по нажатию на кнопку должно проиходить вычисление например суммы 1+2+3+4+5. Непонятно следующее: как именно считывать каждый символ как отдельный, заранее спасибо

08.05.2009, 18:04	#2
Levsha100 Заблокирован Старожил Регистрация: 20.07.2008 Сообщений: 4,032	Код: `a:=Edit1.Text[i];` Код: `sum:=0; for i:=1 to Length(Edit1.Text) do sum:=sum+Edit1.Text[i];`

08.05.2009, 18:07	#3
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	Код: `procedure TForm1.Button1Click(Sender: TObject); var i: integer; sum: integer; begin for i := 1 to Length(Edit1.Text) do //В строках нумеровка с единицы sum := sum + StrToInt(Edit1.Text[i]); Edit2.Text := IntToStr(sum); end;` Вверху немного неправильно Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.

08.05.2009, 18:10	#5
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	Да уж, автоматически все вводим Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Просматривать данные из AdoTable в Edit	Mishina	БД в Delphi	2	15.06.2008 11:48
возможно ли выводить данные из полей типа Edit, ComboBox, ... и отчетах Rave	ГОСЕАН	БД в Delphi	2	05.03.2008 13:28
Edit	niva622	Помощь студентам	10	06.09.2007 17:36
Edit	PAVEL315	Компоненты Delphi	10	14.03.2007 18:58
Как считать данные из Edit?	Svop	Компоненты Delphi	11	20.11.2006 16:45

08.05.2009, 18:09	#4
Levsha100 Заблокирован Старожил Регистрация: 20.07.2008 Сообщений: 4,032	До чего нас довели учебники, даже имена переменных одинаковые P.S. Проглядел о_О

08.05.2009, 18:12	#6
program123 Подтвердите свой е-майл Регистрация: 12.02.2009 Сообщений: 144	Спасибо)))