![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Пользователь
Регистрация: 16.02.2009
Сообщений: 25
|
![]()
Нужно записать в файл текст из Memo.В файл записывается всякая билибирда. Вот код:
Var stroka :string; kl :Integer; FileProect :TFileStream; begin stroka:=Memo.Text+'#'; kl:=Length(stroka); SetLength(Stroka,kl); . . . . . . FileProect.Write(stroka,kl); end. |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 12.05.2007
Сообщений: 373
|
![]()
Memo1.Lines.SaveToFile(FileName);
Перемен! - требуют наши сердца. Перемен! - требуют наши глаза.
В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!" |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 16.02.2009
Сообщений: 25
|
![]()
Если б так просто было, я бы так и сделал. Нужно в один файл несколько таких строк записать. Если объявить String[20] например, то все нормально.
Последний раз редактировалось Djonik; 15.04.2009 в 19:19. |
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 29.01.2009
Сообщений: 411
|
![]() Код:
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 16.02.2009
Сообщений: 25
|
![]()
Спасибо большое.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача со строкой | XaMeJleoH | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 12.04.2009 19:07 |
Задача со строкой | Noxil | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 22.11.2008 22:54 |
Помогите С командной строкой | manax | Помощь студентам | 6 | 08.11.2008 18:03 |
Помогите с командной строкой | ARES-IVAN | Помощь студентам | 3 | 02.11.2008 19:22 |
Головоломка со строкой | Garacio | Общие вопросы Delphi | 4 | 07.02.2007 01:38 |