freepascal.ru

Не могу найти нигде упоминание о такой вещи как "inbox", Используется в случае когда надо вести неопределённую последовательность, не задавая число членов последовательности. Кто-нибудь что то похожие слышал? В простонародье называют коробочкой. Он вообще существует или это миф???

А не TList?

Вот этот зверь :
Tfrm1 = class(TForm)
btnok: TButton;
edts: TEdit;
edtn: TEdit;
lbls: TLabel;
lbln: TLabel;
procedure btnokClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
frm1: Tfrm1;

implementation

{$R *.lfm}

{ Tfrm1 }

procedure Tfrm1.btnokClick(Sender: TObject);
var a,s,i,n: integer;
begin
S:=0;
n:=StrToInt(edtn.text);
for i:=1 to n do
begin
a:=StrToInt(InputBox('Ввод','Введита a'+IntToStr(edtS.text)); где то здесь ошибка, немогу догнать.
S:=S+a;
edtS.Text:=IntToStr(s);
end;
end;

end.
end.

Добавлено спустя 1 минуту:
"Дана последовательность из n целых чисел. Найти сумму всех элементов." Текст этой задачи

Код: Выделить всё

InputBox(const ACaption, APrompt, ADefault: string): string;

и что это такое?

Код: Выделить всё

IntToStr(edtS.text)

По условию не могу догнать этот конец, строки ('Ввод','Введита a'+IntToStr(?))

Я бы заменил ? на i. Но это слишком очевидно

('Ввод','Введита a'+ IntToStr(edti.text); если так то все равно не работает, выдает ошибку в строке.

Неудивительно.
Преобразование Int в String, а в качестве параметра указана String.
InputBox требует три параметра, а ему пытаются скормить два, но не уверен, может быть ему и двух хватит.

Код: Выделить всё

edti.text

Сдаюсь.