Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2008, 15:39   #1
Plaf-di
 
Регистрация: 21.04.2008
Сообщений: 4
По умолчанию Открыть текст

Подскажите как открыть через TP текстовый файл с памяти компа
Plaf-di вне форума Ответить с цитированием
Старый 21.04.2008, 16:49   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

AssignFile(f,Имя файла);reset(f)
Readln(f,в переменную); - Читать в переменную.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 21.04.2008, 21:29   #3
Plaf-di
 
Регистрация: 21.04.2008
Сообщений: 4
По умолчанию

Я чета недопонел обесни попонятнее плиз
Plaf-di вне форума Ответить с цитированием
Старый 21.04.2008, 21:38   #4
quf
Пользователь
 
Регистрация: 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.
quf вне форума Ответить с цитированием
Старый 22.04.2008, 20:15   #5
Plaf-di
 
Регистрация: 21.04.2008
Сообщений: 4
По умолчанию

Цитата:
Сообщение от quf Посмотреть сообщение
Все понятно тебе обьяснили, в любом учебнике про это сказано

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.
А где тогда прописать путь к файлу
Plaf-di вне форума Ответить с цитированием
Старый 23.04.2008, 08:32   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

В этом коде переменная S должна содержать путь или проще:
Assign(f, 'c:\temp\my.txt');
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 23.04.2008, 14:47   #7
Plaf-di
 
Регистрация: 21.04.2008
Сообщений: 4
По умолчанию

Спасибо буду пробовать
Plaf-di вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как открыть в 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