[grib_aga]

Написал вот так, не работает:

Код:

var   n, b: string;
        FileFrom, FileTo: TFileStream;


        FileFrom := TFileStream.Create('filefrom.txt', fmOpenRead);
        FileTo := TFileStream.Create('outfile.txt', fmCreate);
        FileFrom.ReadBuffer(n, 1);
        b := 'мое значение';
        if n = b then Exit;

Получаю ошибку Access violation и Runtime Error.
Как исправить?

[M.A.D.M.A.N.]

Код:

Setlength(n, сколько нужно);
FileFrom.ReadBuffer(@n[1], сколько нужно);

При условии, что строка из символов char.

[grib_aga]

Сообщение от M.A.D.M.A.N.

Код:

Setlength(n, сколько нужно);
FileFrom.ReadBuffer(@n[1], сколько нужно);

При условии, что строка из символов char.

Не работает, 'Constant object cannot be passed as var parameter'.
Если не сложно и будет свободное время, прошу помочь сделать рабочий вариант.
Delphi 7.

[NumLock]

Код:

var
  f: TFileStream;
  b: String;
  v: String;
begin
  v:='unit Unit1;';
  f:=TFileStream.Create('Unit1.pas', fmOpenRead);
  try
    SetLength(b, 11);
    f.ReadBuffer(PChar(b)^, 11);
    if v=b then ShowMessage('Ok');
  finally
    f.Free;
  end;
end;

[grib_aga]

NumLock, подскажи как прочитать первый байт файла и сравнить его с эталоном, например,

a := первый байт в файле;
b := 01001101;
if a = b then ShowMessage('Ok');

[NumLock]

Код:

var
  f: TFileStream;
  v: Byte;
  b: Byte;
begin
  v:=$75;
  f:=TFileStream.Create('Unit1.pas', fmOpenRead);
  try
    f.ReadBuffer(b, 1);
    if v=b then ShowMessage('Ok');
  finally
    f.Free;
  end;
end;

[grib_aga]

NumLock, спасибо(большое!), думаю последний вовпрос, как разложить байт на биты? Например, в целочисленный массив.

[NumLock]

проверкой младшего бита с помощью and 1 и циклическим сдвигом вправо shr 1.

[grib_aga]

Сообщение от NumLock

проверкой младшего бита с помощью and 1 и циклическим сдвигом вправо shr 1.

Спасибо! Проблема решена.