IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Как работать с текстовым файлом?
KljaGGsa
сообщение 28.06.2009 21:51
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Женский

Репутация: -  0  +


Подскажите пожалуйста, как записать в имеющийся текстовый файл text.txt фрагмент текста в несколько строк, набранный в Edit1 и как можно было бы его обозначить с тем, чтобы потом можно было бы его найти и вывести скажем в Label или Memo?
Заранее спасибо! smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Unconnected
сообщение 28.06.2009 22:43
Сообщение #2


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


Начнём с того, что TEdit - однострочное поле. А как работать с текстовым файлом - поиск очень хорошо рассказывает.


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
KljaGGsa
сообщение 29.06.2009 7:08
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Женский

Репутация: -  0  +


Исчерпывающий ответ . . (( blink.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Client
сообщение 29.06.2009 7:46
Сообщение #4


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
f:System.Text;
begin
s:=edit1.Text;
AssignFile(f,'c:\1.txt');
Rewrite(f);
writeln(f,s:20);
delete(s,1,20);
writeln(f,s);
CloseFile(f);
end;
Возможно так
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
KljaGGsa
сообщение 29.06.2009 7:51
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Женский

Репутация: -  0  +


Спасибо, пытаюсь написать)))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 8.07.2025 10:17
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"