Загрузка тестового файла

← →
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]

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

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

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

var
F: TextFile;

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

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