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

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

Форум программистов > Delphi: Общие вопросы > из Memo в StringGrid

Автор: Torres 16.4.2010, 23:13

Подскажите пожалуйста, как строки из мемо занести в ячейки стринггрида, т.е. каждая строка мемо - в отдельную ячейку стринггрида?

Автор: Данкинг 16.4.2010, 23:30

Как-то так:

Код


procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
StringGrid1.RowCount:=memo1.Lines.Count+1;
for i:=0 to memo1.Lines.Count-1 do
  StringGrid1.Cells[1,i+1]:=memo1.Lines.Strings[i];
end;