[Михалыч]

Собственно как это реализовать. Есть Memo в котором 100 строк допустим, в строках целые числа. Как подсчитать общую сумму чисел в этих ста строках?

[Страдалецъ]

Если числа разделены пробелами, то элементарно:

Код:

Memo1.Text := StringReplace(Memo1.Text, #13#10, #32, [rfReplaceAll]); //Сначала избавимся от лишних переносов
Memo1.Text := StringReplace(Memo1.Text, #32, #13#10, [rfReplaceAll]); //Затем заменим все пробелы переносами т.е. одна строка - одно число
Result := 0; 
for i := 0 to Memo1.Lines.Count - 1 
do Inc(Result, StrToIntDef(Memo1.Lines.Strings[i],0));

[Михалыч]

Что делает процедура Inc? Я так понял что увеличивает не пойму что на значение Result?

[M.A.D.M.A.N.]

inc - инкремент
result - результат функции
второй аргумент - значение на сколько нужно инкрементить result.
как-то так.

[Михалыч]

Неправильно считает, вот код. Когда ввожу счетчик=4 и до 5 Сумму строк выдает 0

Код:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,Summa,i : integer;

begin
a:= StrToInt(Edit5.Text);
b:= StrToInt(Edit1.Text);

for i:=a to b do
begin
Memo1.Lines.Add(IntToStr(i));
Edit3.Text:=IntToStr(Memo1.Lines.Count);
end;

begin
//Memo1.Text := StringReplace(Memo1.Text, #13#10, #32, [rfReplaceAll]); //Сначала избавимся от лишних переносов
//Memo1.Text := StringReplace(Memo1.Text, #32, #13#10, [rfReplaceAll]); //Затем заменим все пробелы переносами т.е. одна строка - одно число
Summa:=0;
for i:=a to Memo1.Lines.Count do
Inc(Summa, StrToIntDef(Memo1.Lines.Strings[i],1));
Memo1.Lines.Add(('Сумма строк= '+ IntToStr(Summa)));
end;

[AND_REY]

Замени:

Код:

for i:=a to Memo1.Lines.Count do

на:

Код:

for i:=0 to Memo1.Lines.Count - 1 do

будет всё норм.