delphi continue

Ответ от Ў В[гуру]
Вот пример подобной процедуры
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile; // файл
fName: String[80]; // имя файла
buf: string[80]; // буфер для чтения из файла
begin
fName := Edit1.Text;
AssignFile(f, fName);
{$!-}
Reset(f); // открыть для чтения
{$I+}
if IOResult <> 0 then
begin
MessageDlgt 'Ошибка доступа к файлу ' + fName,
mtError, [mbOk], 0); exit;
end;
// чтение из файла
while not EOF(f) do
begin
readln(f, buf); // прочитать строку из файла
Memo1.Lines.Add(buf); // добавить строку в поле Memo1
end;
CloseFile(f); // закрыть файл
end;
Для проверки наличия файла можно использовать функцию FileExists()
Для уточнения места нахождения файла можно использовать ExtractFileDir(Application.ExeName), это если файл в самом деле в папке с задачей.
Если файл не в одной папке с программой нужно просто указывать полный путь к нему, начиная с диска.