Подскажите пожалуйста, как записать в имеющийся текстовый файл text.txt фрагмент текста в несколько строк, набранный в Edit1 и как можно было бы его обозначить с тем, чтобы потом можно было бы его найти и вывести скажем в Label или Memo? Заранее спасибо!
Unconnected
28.06.2009 22:43
Начнём с того, что TEdit - однострочное поле. А как работать с текстовым файлом - поиск очень хорошо рассказывает.
KljaGGsa
29.06.2009 7:08
Исчерпывающий ответ . . ((
Client
29.06.2009 7:46
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;
Возможно так
KljaGGsa
29.06.2009 7:51
Спасибо, пытаюсь написать)))
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.