| imho.ws |
![]() |
|
|
|
# 7 |
|
Guest
Сообщения: n/a
|
Отправляю вам решение на поставленную мною задачу
procedure TForm1.Button1Click(Sender: TObject); var i, N: Integer; begin if OpenDialog1.Execute then with TStringList.Create do try LoadFromFile(OpenDialog1.FileName); stringgrid1.RowCount:=Count; for i:=0 to Count-1 do begin stringgrid1.Rows[i].CommaText:=Strings[i]; end finally end; Добавлено через 1 минуту: Flex256 Отправляю решение на поставленную мною задачу procedure TForm1.Button1Click(Sender: TObject); var i, N: Integer; begin if OpenDialog1.Execute then with TStringList.Create do try LoadFromFile(OpenDialog1.FileName); stringgrid1.RowCount:=Count; for i:=0 to Count-1 do begin stringgrid1.Rows[i].CommaText:=Strings[i]; end finally end; |