Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Вывод всех результатов

Автор: Shokan 8.5.2007, 05:50

имеется такой код:

Код


procedure TMainForm.Button1Click(Sender: TObject);
  var i, j: integer;
begin
for i:=1 to 10 do begin
  Memo1.Lines[i] := Memo1.Lines[i];
  Memo1.Text:= IntToStr(i) + ') Запись';
  end;
end;

но, результат не выходит как мне нужно.
в мемо отображается только последний результат вычислении.
10) Запись
как сделать что бы выходило?
1) Запись
2) Запись
3) Запись
...
10) Запись

Автор: Yanis 8.5.2007, 06:30

Цитата(Shokan @ 8.5.2007, 06:50

)

for i:=1 to 10 do begin
  Memo1.Lines := Memo1.Lines[i];
  Memo1.Text:= IntToStr(i) + ') Запись';
  end;

Такое ощущение, что ты не понимаешь, что пишешь. Так от балды накатал…
Зачем присвавать строку в Memo.Lines самой себе? Объясни.
Но главная ошибка в том, что ты весь текст в memo стираешь заменяя его на [I]IntToStr(i) + ')Запись'. Поэтому и анамалия.

Добавлено через 1 минуту и 9 секунд

Цитата(Yanis @ 8.5.2007, 07:30

)

заменяя его на [I]IntToStr(i) + ')Запись'.

Здесь можно заметить как глючит форум smile

Автор: iddqd 8.5.2007, 07:32

Код


procedure TMainForm.Button1Click(Sender: TObject);
  var i: integer;
begin
for i:=1 to 10 do
  Memo1.Lines.Add(IntToStr(i) + ') Запись');
end;