|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.09.2007, 21:12 | #1 |
Пользователь
Регистрация: 18.09.2007
Сообщений: 11
|
Button1 и на Form2 открылся текст из файла (таблица)в StringGrid1.
Как сделать так чтобы на Form1 я нажал Button1 и на Form2 открылся текст из файла (таблица)в StringGrid1. Но файл задавать в Edit1 на первой форме (но без SaveDialog1, OpenDialog1). Заранее большое спасибо.
Последний раз редактировалось KSP; 18.09.2007 в 21:15. |
19.09.2007, 00:04 | #2 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
И какие сложности?
TForm1=class(TForm) ... implemintation uses Unit2 ... procedure TForm1.Button1Click(Sender: TObject); var i, j: integer; f: TextFile; buf: string; begin AssignFile(f, Edit1.Text); Reset(f); for i := 0 to Form2.StringGrid1.RowCount - 1 do for j := 0 to Form2.StringGrid1.ColCount - 1 do begin ReadLn(f, buf); Form2.StringGrid1.Cells[i, j] := buf; end; CloseFile(f); Form2.Show; end;
Не надо ничего усложнять. Все достаточно тривиально.
|
19.09.2007, 18:51 | #3 |
Пользователь
Регистрация: 18.09.2007
Сообщений: 11
|
Большое спасибо.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как вывести из текстового файла на экран русский текст? | Mischa | Помощь студентам | 8 | 12.03.2008 06:23 |
текст из файла -> переменная | regedit2 | Общие вопросы C/C++ | 5 | 29.12.2007 01:25 |
как запустить приложение из к примеру текст файла!!! | Volkogriz | Общие вопросы Delphi | 12 | 12.10.2007 12:27 |
HELP! Как мне вытащить текст из файла? | kl45gp | Общие вопросы Delphi | 12 | 17.08.2007 22:26 |
Загрузить текст из файла в мемо | Teen4jump | Общие вопросы Delphi | 2 | 17.08.2007 21:05 |