Скачать: CL | DM;

Загрузка тестового файла   Найти похожие ветки 

← →
Kot Vaska ©   (2004-11-08 12:54) [0]

У меня будет небольшая программа по обработке данных. Подскажите как сделать так чтобы при её запуске автоматически текстовый файл был готов для чтения т.е. стал открытым.

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 12:58) [1]

> Kot Vaska ©   (08.11.04 12:54)

Если это текстовый файл, то, может быть, проще воспользоваться типом TextFile и процедурами AssignFile и Reset?

---

← →
Kot Vaska ©   (2004-11-08 13:03) [2]

Возможно. Главная задача: Запустил прогу, она открывает доступ к текстовику и я могу читать из него. Т.е. не обязательно вызывать диалог и кликать что согласен открыть файл

---

← →
begin...end ©   (2004-11-08 13:08) [3]

> [2] Kot Vaska ©   (08.11.04 13:03)

Ну так и открывай.

var
 F: TextFile;

begin
 AssignFile(F, FileName);
 FileMode := 0;
 Reset(F);
 // Читаем...
 CloseFile(F)
end.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c