[Михалыч]

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

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

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

Код:

1 2 3 4 5

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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]

Замени:

Код:

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

на:

Код:

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

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