|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.06.2009, 20:23 | #1 |
Пользователь
Регистрация: 25.04.2009
Сообщений: 11
|
помогите отредактировать
...................................
private { Private declarations } public { Public declarations } end; ff= file of real; mas= array of real; var Form1: TForm1; f:ff; m:mas; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin memo1.Clear; edit1.Clear; comboBox1.text:='имена'; end; procedure TForm1.N5Click(Sender: TObject); begin close; end; procedure TForm1.N1Click(Sender: TObject); var i : real; k : integer; begin rewrite(f); setlength(m,0); k:=memo1.Lines.Count; for i:=0 to n-1 do // тут я не до конца понял, //как сделать чтобы записать набранные слова в memo1 в файл. begin setlength(m,i+1); ComboBox1.Enabled:= false; Writeln(f,m[i]); closefile(f); end; |
23.06.2009, 10:52 | #2 |
Форумчанин
Регистрация: 07.04.2009
Сообщений: 245
|
Для сохраанения введённых строк в файле проще всего воспользоваться методом memo1.Lines.SaveToFile
Всякое безобразие должно быть единообразным. Тогда это называется порядком.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалоста отредактировать программу | girkoff | Общие вопросы C/C++ | 4 | 31.03.2009 04:01 |
Отредактировать макрос | Romuald | Microsoft Office Excel | 3 | 11.02.2009 16:13 |
Delphi Работа с файлами. Помогите пожалуйста отредактировать программу)) | katia230990 | Помощь студентам | 10 | 03.06.2008 17:14 |
помогите отредактировать прогу | finch | Помощь студентам | 3 | 25.06.2007 07:42 |