| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Загрузка тестового файла [D6, Win95/98]
Kot Vaska © (2004-11-08 12:54:00)У меня будет небольшая программа по обработке данных. Подскажите как сделать так чтобы при её запуске автоматически текстовый файл был готов для чтения т.е. стал открытым.
procedure OpenForShare(const FileName: String);
var
FileHandle : Integer;
begin
FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
if FileHandle > 0 then
{valid file handle}
else
{Open error: FileHandle = negative DOS error code}
end;
Помогите разобраться в этой продцедуре
Как задать имя файлу?
Как дальше продолжать чтение из него? Как через OpenDialogs или по другому?
begin...end (2004-11-08 13:08:00) [1]
> [2] Kot Vaska © (08.11.04 13:03)
Ну так и открывай.
var
F: TextFile;
begin
AssignFile(F, FileName);
FileMode := 0;
Reset(F);
// Читаем...
CloseFile(F)
end.
Kot Vaska (2004-11-08 13:03:00) [2]Возможно. Главная задача: Запустил прогу, она открывает доступ к текстовику и я могу читать из него. Т.е. не обязательно вызывать диалог и кликать что согласен открыть файл
begin...end (2004-11-08 12:58:00) [3]
> Kot Vaska © (08.11.04 12:54)
Если это текстовый файл, то, может быть, проще воспользоваться типом TextFile и процедурами AssignFile и Reset?
| |
