Memo.lines nach StringGrid kopieren

[marabu]

Delphi-Quellcode:

procedure TMainForm.Button2Click(Sender: TObject);
var
  i: integer;
begin
  StringGrid1.RowCount := Succ(Memo1.Lines.Count);
  for i := 0 to Pred(Memo1.Lines.Count) do
    ExtractFields2(Memo1.Lines[i], ';', StringGrid1.Rows[Succ(i)]);
end;

marabu