Не могу открыть textfile!!

[NEoMASTERR]

Доброе утро, игра ведет логи в файлик, мне надо считать последнюю строчку

function TForm1.getlaststr: string;
var
  f: textfile;
begin
  assignfile(f,'D:\Games\COD4\main\games_mp.log');
  reset(f);
  while not eof(f) do readln(f,result);
  CloseFile(f);
end;

Выскакивает ошибка EInOutError ... 32 ...
Но через блокнот файл открывается спокойно! (akelpad,textpad) Подскажите в чем проблема
с 6 утра мучаюсь

[Вадим Мошев]

Попробуйте написать код таким образом

function TForm1.getlaststr: string;
var
  f: textfile;
t: string;
begin
  assignfile(f,'D:\Games\COD4\main\games_mp.log');
  reset(f);
  while not eof(f) do readln(f,t);
  result:=t;
  CloseFile(f);
end;

[FaTaL]

Тогда лучше так сделать

function TForm1.getlaststr: string;
var
  f: TStringList;
begin
  f := TStringList.Create;
  f.LoadFromFile('D:\Games\COD4\main\games_mp.log');
  result := f.Strings[f.Count - 1];
  f.free;
end;

[NEoMASTERR]

не катит

[NEoMASTERR]

вот функция пхп (вроде бы она). Она считывает с этого файла все отлично. Но беда в пхп я ноль

public function getNewLines() {
	    //clearstatcache();
	    if (filesize($this->logfile) < $this->logpos) {
	        //Return pointer if log file was deleted and recreated
	        $this->logpos = 0;
	        $GLOBALS['logging']->write(MOD_WARNING, "Filepointer was bigger than filesize");
	    }

		$fp = fopen($this->logfile, "r");
		fseek($fp, $this->logpos, SEEK_SET);

		$newlines = array();


		while (!feof($fp)) {
			$get = fgets($fp);
			if ($get === false) {
				break;
			}
			$this->logpos += strlen($get);
			$newlines[] = $get;
		}

		fclose($fp);

		return $newlines;
	}

[GunSmoker]

Учить мат-часть про режимы открытия файлов.

function TForm1.GetLastStr: String;
var
  Str: TStringList;
  FS: TFileStream;
begin
  Str := TStringList.Create;
  try
    FS := TFileStream.Create('D:\Games\COD4\main\games_mp.log', fmOpenRead or fmShareDenyNone);
    try
      Str.LoadFromStream(FS);
    finally
      FreeAndNil(FS);
    end;

    Result := Str[Str.Count - 1];
  finally
    FreeAndNil(Str);
  end;
end;

[Аватар]

Открыть файл с доступом только на чтение (например FileStream). Может не прокатить, если файл занят другой прогой и она не разрешает его читать

[VAM]

Даст в присутствии данного параметра : fmShareDenyNone

[NEoMASTERR]

Спасибо всем) помогло

function TForm1.GetLastStr: String;
var
  Str: TStringList;
  FS: TFileStream;
begin
  Str := TStringList.Create;
  try
    FS := TFileStream.Create('D:\Games\COD4\main\games_mp.log', fmOpenRead or fmShareDenyNone);
    try
      Str.LoadFromStream(FS);
    finally
      FreeAndNil(FS);
    end;

    Result := Str[Str.Count - 1];
  finally
    FreeAndNil(Str);
  end;
end;

[Аватар]

Даст в присутствии данного параметра : fmShareDenyNone

А попробовать в одной проге открыть с fmShareExclusive, а в другой с fmShareDenyNone и посмотреть какую ошибку выдаст