|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.04.2008, 15:39 | #1 |
Регистрация: 21.04.2008
Сообщений: 4
|
Открыть текст
Подскажите как открыть через TP текстовый файл с памяти компа
|
21.04.2008, 16:49 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
AssignFile(f,Имя файла);reset(f)
Readln(f,в переменную); - Читать в переменную.
I'm learning to live...
|
21.04.2008, 21:29 | #3 |
Регистрация: 21.04.2008
Сообщений: 4
|
Я чета недопонел обесни попонятнее плиз
|
21.04.2008, 21:38 | #4 |
Пользователь
Регистрация: 11.04.2008
Сообщений: 18
|
Все понятно тебе обьяснили, в любом учебнике про это сказано
Var f: file; S: String; C:Char; Begin {$I-} {Отключить обработчика ошибок} Repeat {ввод имени файла, попытка открыть для чтения} Write (‘ Input name of file’); Readln(S); Assign(f, S); Reset (f); C:=ReadKey {Возможность завершить без поиска файла} Until (IOResult =0) Or (C=#27); { IOResult =0 - файл найден} {$I+} {Включить обработчика ошибок} If IOResult =0 Then Begin Работа с файлом; Close (f) End Else Writeln (‘File’, S, ‘is not find’) End. |
22.04.2008, 20:15 | #5 | |
Регистрация: 21.04.2008
Сообщений: 4
|
Цитата:
|
|
23.04.2008, 08:32 | #6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
В этом коде переменная S должна содержать путь или проще:
Assign(f, 'c:\temp\my.txt');
I'm learning to live...
|
23.04.2008, 14:47 | #7 |
Регистрация: 21.04.2008
Сообщений: 4
|
Спасибо буду пробовать
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как открыть в DIV слое | antfrolov | PHP | 4 | 14.07.2008 03:29 |
Как открыть в Delphi БД | Ellita | Помощь студентам | 4 | 07.07.2008 22:33 |
открыть с помощью | tarasov | Win Api | 3 | 13.12.2007 19:00 |
Как открыть DVD-rom | Kalewa-Uliss | Win Api | 2 | 16.07.2007 07:24 |
как открыть текст | -=Alex=- | Общие вопросы Delphi | 2 | 27.11.2006 21:15 |